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非公式 Texinfo フォー マツ 卜 


これ は SICP の 第二 版 非公式 Texinfo 版です。 

あなた は 恐らく これ を Emacs の Info モー ドの 様な ハイパー テキス ト ブラ 
ゥ ザで 読んで いる ことでしょう。 他に も TfcK で 組版した 物 を 画面 や 印刷して 
読んで いるか も しれません がそれ は バカバカしい 上に 高く つきます。 

公式に 無料で 公開され た html- and- GIF 版 を Lytha  Ayth が 最初に 私的に、 
2001 年 4 月の 長い Emacs  Lovefest  Weekend の 間に 非公式 Texinfo 版 （UTF) バ 
一 ジョン 1 へと 変換し ました。 

UTF は HTML 版よ リ も 検索が よ り 簡単です。 また 寄付され た 古い 386 の 様 

な 質素な 計算機 上で 行う 人々 にと つてより アクセスが 容易です。 386 は 理論的 
に は Linux、  Emacs,  Scheme インタプリタ を 同時に 実行で きます。 しかし 多く 
の 386 は 恐らく  Netscape と 必要な X  Window  System を 事前に 芽の 出かけた 
資金 不足の 若い ハッカーに き ashing  、ス ラッ シン グ） の 概念 を 教える ことなしに 
動かす こと はでき ないで しょう。 UTF はまた 圧縮 無しで も 1.44MB の フロッピ 
一 ディ スケッ トに 収まります。 これ は インター ネッ トゃ LAN への 接続 環境の 
無い PC に インストール する 場合に 役立つ でしよう。 

Texinfo への 変換 は 可能な 範囲での 直接的な 翻字で し た。 TgX- to- html 変 
換の 様に ある 程度の 破れが 含まれる こと 無しに はでき ませんで した。 非公式 
Texinfo 形式に おいて は 図が 「失な われた 技術」 である アスキー アートに よる 
下手糞な" 復活" を 被りました。 また 多量の 上付き 文字と 下付き 文字の いくつ 
かの 変換の 間に 不明瞭 さに よる 変換の 失敗が 含まれて しまつ た 可能性が 大ぃ に 
あります。 読者への 課題と して 残された と 予測し ます。 しかし、 最低で も "以 
上" の 記号 を <u>&gt; く/ u> と 符号化す る ことで 我等の 勇敢な 宇宙飛行士 を 危険 
に 晒す ような こと はし ませんで し た。 

もし あなたが sicp.texi を 変更し エラー を 訂正した リ、 アスキー アート 
を 向上 させたなら Oset  utfversion  utf  version の 行 を 更新し、 あなたの 修 
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正 を 反映して 下さい。 例えば、 もし あなたが Lytha の バージョン 1 で 開始し、 
あなたの 名前が Bob なら、 改訂版 は l.bobl,  l.bob2,  l.bobn です。 また 
utfversiondate も 更新 して 下さい。 もし あなたが 自 分の 改訂版 を Web 上で 
配布 したいの なら 文字列 "sicp.  texi" を ファイル や Web ページの どこかに 埋め 
込んで お け ば 人 々にと つて Web 検索 エンジンから 探す ことが 簡単になる でし 
よ ラ。 

非公式 Texinfo 形式 は 寛大に も 自由の 下に 配布され た html 版の 魂 を 引 き 
継いで いると 信じられ ています。 しかし、 いつ 誰かの 法律家の 大 艦隊が 良心に 
基づ く 小 さ な 事に 対 して 非常に 腹 を 立て 何 か を 行わな ければ な ら なくなる かも 
しれません。 です ので あなたの フルネーム を 使ったり、 あなたの アカウント や 
マシン 名 を 含む Info,  dvi,  PostScript,  PDF 形式 を 配布す る 前に 良く良く 考えて 
下さい。 

Peath,  Lytha  Avth 

付録: Abelson と Sussman による SICP の ビデオ レクチャー も ご覧 下さい。 

MIT  CSAIL,  MIT  OCW. 

付録 2: 上記 は 2001 年の 元の UTF の 紹介です。 10 年後、 UTF は 一変し ました。 
数学 上の 記号と 式 は 適切に 組版され、 図 は ベクター グラフィック によ リ 描かれ 

ています。 元の テキス ト 形式と アスキー アートの 図 は 今でも Texinfo の ソース 
に 残って いますが、 Info 形式で コンパイルした 場合の み 表示され ます。 電子 書 

籍 リーダーと タブ レツ トの 夜明けに 画面 上で PDF を 読む こと は 正式に、 最早 バ 

カバ 力し いこと では 無くなりました。 楽しんで 下さい ！ 
A.R,  May,  2011 
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非公式 日本語 版 


SICP はかって 第一 版、 第二 版 共に 日本に て 公式に 翻訳が 商業 出版され てい 
ました。 第二 版 を 出版して いた ピアソン 桐 原が 2013 年 8 月に ピアソン グルー 
プ から 撤退し 技術 書の 取扱 を 終了した ため、 日本語で SICP を 読む 機会 は 失わ 
れ ました。 この ことが この 翻訳 を 行う ことの 契機と なりました。 

実際に は その後、 2014 年 1 月 付近に、 寛大に も 第二 版の 訳者、 和田英 一先 
生が オンライン 上に て SICP の 訳書、 「計算機 プログラムの 構造と 解釈」 全文 
を 公開して 下さいました。 この 時点で この 非公式 日 本 語 版の 価値 は 随分 と 小 さ 
くな りました。 

しかし、 その 時、 既に 3 章まで 翻訳して いた こと、 そして 非公式 Texlnfo 
版が 2013 年 11 月に 大 改訂 を 行い、 当初の 日本語に は 正式に 対応して いない 
texi2pdf から 変更 を 行い、 XeLaTeX を 採用した ために、 日本語で も 美しい 組版 
がで き る 可能性が 出て きた こと 力 ミ'、 こ の 原稿 を 廃棄す る こと を 押し止めました。 

SICP の ライセンスに ついては ィ ン ター ネッ トァー カイ ブ にて 調べて みま 
し た。 2001 年 1 月に MIT が SICP を 寛大に も オンライン で 無料で 読む こ と が 
できる ように 公開され た 時には ライセンスが 指定され ていませんでした。 

2008 年 4 月に MIT は SICP の ライセンス を CC  BY-NC と 指定し ました。 
その後 ライセンス は 2011 年 10 月に 一旦 CC  BY-SA に 変更され ます。 そして 
2 年後の 2013 年 9 月に 再び CC  BY-NC へと 戻されました。 この 事実が SICP 
原文の ライセンスの 解釈 を 難しく しています。 ライセンスの 変更 は オーナーの 
自由です が、 ラ イセ ン シ 一は コンテ ン ッ 取得 時の ライセンス を 尊重 すれば 良い 
からです。 

最初 に 非公式 Texlnfo 版 を 作成 し た Lytha  Ayth は ライセンス 指定の 無い 
SICP 公開 を Web 文化に 基づく もの だと 理解し ました。 次に LaTeX の 組版 を 
開発 し た Andres  Raba は CC  BY-SA に 基き 正式な 許諾の 下、 PDF 版 を 作成 し 
ました。 私の 翻訳 は PDF 版の ライセンス である CC  BY-SA に 従う ことが 求め 
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られ ます。 しかし、 現在の MIT が 非 商業 を 求めて いる こと を 鑑みて、 Raba 氏 
に 許可 を 頂いた 上で 非 商業 制約 を 追加した CC  BY-NC-SA  3.0 にて リ リ ース する 
ことにしました。 

CCBY- NC、 及び BY- SA は 共に 翻訳の 許可 を 明記して います。 従って この 
翻訳に は Lytha が 心配した ような 法的 問題 は 起こらな いと 信じて います。 しか 
し 同時に、 法的 問題 は 常に 一方的に 起こされる ことがある こと もまた 現実です。 
従って 読者の 皆様に は 常に ネッ ト ワーク 上の データ は （そして プログラム も!） 
消えて なくなって しまう シャボン玉 である こと を 忘れずに 御用 心願い ます。 

TeX、  LaTeX 環境の 日本語 対応 を 進めて 下さった 全ての 関係者の 皆様に 
感謝し ます。 特に 最新の 情報 を 常に 更新し 続けて 下さって いる TeX  Wiki の 奥 
村 晴彦 氏、 W32TeX を 自動で インス トールし 更新 可能な TeX インス トー ラ作 
者の 阿部 紀行 氏、 XeLaTeX 向け 日本語 パッケージ" ZXjatype" を 開発して 下 
さった 八 登 崇之 氏に 感謝 致します。 

海外で は SICP の 新しい 形の 開発が 非常に 盛んです。 PDF はも ち ろん、 epub 
や インタ ラク ティ ブ版、 Kindle 版 （mobi 形式)、 Clojure や JavaScript による 
SICP 等が 公開され ています。 この 翻訳 は CC  BY- NC- SA です ので 非 商業で あ 
れば そのような 派生 や 翻案に 利用す る ことが 可能です。 日本で も SICP の 世界 
が 広がって いくこと を 期待して います。 

《 校正 御協力 者 様 （順 不同、 敬称 略） 

•  Kei Shiratsuchi 

•  Kimura,  Koichi 
• のな 


•  Naoki  Ainoya 


献辞 


この 本 を、 尊敬と 賛美 を 込めて、 コンピュータの 中に 住む 妖精に 捧げます。 

"コンピュータサイエンスに 関わる 私達に とって コンピュータ を 使 
用す る こと を 楽しむ こと はとても 大事 だと 私 は 考えます。 コンビ 
ユー タ サイエンスが 始まった 時、 それ はとても 多くの 楽しみに 溢 
れ ていました。 ご存知の とおり、 お金 を 払う お客様 達 は 時折 酷く 
騙されました。 そして 暫く して 私達 は 彼らの 不満 を 真面目に 受け 
取り 始めて しまいました。 私達 は 考え 始めて しまった のです。 成 
功 裏に、 障害の 無い 完全な コンピュータの 使用法に ついて 私達に 
責任が あるので はない かと。 私 はそう は 思いません。 私 は、 私達が 
コンピュータサイエンス を 伸展し、 新しい 方向に 向かわせ、 そし 
て 仲間 達と 共に 楽しむ ことに 責任が あると 考えます。 私 は コンビ 
ユー タ サイエンスの 現場が 楽しむ ことの 感覚 を 失わない こと を 望 

みます。 さらに、 我々 が 伝道師に なること は 望みません。 自分が 聖 
書の セールスマン だと は 思わないで 下さい。 世界に は 既に そのよ 
うな 人が 溢れて います。 あな た が 他の 人 々 が 学ぶ コンピュータ 利 
用法に ついて 何 を 知っている でしよう。 コンピュータ 利用に 成功 
する 鍵が あなたの 手の 中に のみ あると は 決つ して 思わないで 下さ 
い。 私が 思う に、 そして 期待す る こと は、 あなたの 手の 中に ある も 
の は 知性です。 それ は あなたが 初めて 計算機に 出会った 時よ リ も 
より 多くの こと を 知る ことができる 能力で あり、 それ はよ リ 多く 
のこと を 生む ことができる のです。 " 

—Alan  J.  Perlis  (April 1, 1922  -  February  7, 1990) 
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教育者、 将軍、 栄養士、 精神分析 医、 そして 両親 は プログラム します。 軍隊、 
学生、 そして いくつかの 社会 は プログラム されます。 大きな 問題に 対する 解決 
は 一連の プログラム を 利用し ます。 それらの ほとんど は 途中で ひょっこり 表れ 
ます。 これらの プログラム は 手近な 問題に 特化され て 現れる 成果に 溢れて いま 
す。 プロ ダラ ミ ングを 独立した 知的な 活動と して 理解す るた めに は あなた はコ 
ン ピュー タブ ログ ラ ミ ングに 向かわねば なり ません。 コンピュータ プログラム 
を 読み、 書かねば なりません。 それ も 数多くです。 その プログラムが 何に つい 
てで あるか、 または どのような 適用 を 担う のか は 多く は 関係ありません。 重要 
な こと は それらが どのように 実行され、 どれ だけ 滑らかに 他の プログラムに 対 
してより 大きな プログラムの 作成の ために 適合す るの かです。 プログラマ は 部 
分の 完全 性と 集合の 妥当性の 両方 を 追求せ ねばな リ ません。 この 本で は "プロ 

グラム" の 使用 は デジタル 計算機 上に て 実行され るた めの Lisp の 方言で 書かれ 
た プログラムの 創造、 実行、 それに 学習に 焦点 を 当てて います。 Lisp の 使用 は 
プログラム 記述の 表記法の み を 制約、 制限し、 私達が 何 を プログラムす るかに 
ついては 影響 を 与えません。 

この 本の 主題 は 3 つの 事象に 焦点 を 当てます。 人の 心、 コンピュータ プロ 
グラムの 集合、 そして コンピュータです。 全ての コンピュータ プログラム は 人 
の 心の中で 生まれる 現実の、 または 精神的な 過程の モデルです。 これらの 過程 
は 人の 経験と 思考から 浮かび上が リ、 数 はとても 多く、 詳細 は 入り組んで、 い 
つで も 部分的に しか 理解され ません。 それら は コンピュータ プログラム により 
稀に しか 永遠の 充足と して モデル 化される ことはありません。 従って、 例え 私 
達の プログラムが 注意 深く 手作り された 別個の 記号の 集合 だとしても、 連動す 
る 機能の 寄せ集め だとしても、 それら は 絶えず 発展し ます。 私達の モデルの 知 
覚 がより 深まる につれ、 増える につれ、 一般化 される につれ、 モデルが 究極 的 
に 準 安定な 位置に 逹 つす るまで 変更 を 行い、 その 中には 依然と して 私達が 格闘 


する モデルが 存在し ます。 コンピュータ プロ ダラ ミ ングに 関連す る 歓喜の 源 は 
プロ グラムと して 表現され た 仕組みの 心の中と コ ン ピュー タ 上で 絶え間 無く 続 
く 発展で あり、 それにより 生まれる 知力の 爆発です。 もし 技巧が 私達の 夢 を 解 
釈 するならば、 コンピュータ は プログラム として 現わされる それら を 実行す る 

のです ！ 

その 力 全てに 対して、 コンピュータ は 厳しい 親方です。 その プログラム は 
正しく なければ な リ ません。 私達が 伝えたい と 望む 事柄 は 委細 全て 正確に 伝え 
られ ねばな りません。 全ての 他の 象徴的な 活動と 同じく、 私達 は 議論 を 通して 
プログラムの 真理 を 確信す るよう になり ます。 Lisp それ 自身に 意味論 を割リ 
当てる こと も 可能です。 （ところで これ はまた 別の モデルです)。 そしても しプ 
ログ ラムの 機能 を 指定で きる のなら、 例えば 述語 論理に おいてなら、 論理の 証 
明 方法が 容認 可能な 正確 性の 議論に 使用で きます。 残念な ことに プロ グラムが 
巨大で 複雑になる につれ、 そして ほとんど 常にそう なる のです が、 仕様の 妥当 
性、 一貫性、 正確さ それら 自身が 疑わしくな リ ます。 そのため 完全に 形式 化さ 
れた 正確さの 議論 は 巨大な プロ ダラ ム に は 伴いません。 巨大 プロ グラ ム は 小さ 
な 物から 成長す るた め 正確さ に 確信 を 持て る 標準 的な プロ ダラ ム 構造の 武器庫 
を 開発す る こと は 重要です。 私達 はこれ を idiom (イディオム） と 呼びます。 そ 
して それら を 組み合わせて 価値が 検証 さ れた 構成 技術 を 用いて より 大きな 構造 
にす る こと を 学びます。 これらの 技術 はこの 本の 中で 長々 と 扱われます。 そし 
て それら を 理解す る こと は プロ グラ ミ ングと 呼ばれる プロメテウスの 進取 性 
(Promethean  enterprise) に 参加す るのに 絶対に 必要な ことです。 他の 何事で も 
な く  、 強力な 構成 技術 を 暴き 熟達す る こ と は 巨大で 重要な プロ グラ ムを 作成す 
る 能力 を 加速し ます。 反対に、 巨大な プログラム を 書く こと はとても 苦労が 多 
いため、 私達 は 多大な 機能 や 詳細 を 巨大 プログラムに 合うよう に 減らす 新しい 
手法 を 開発す る こと を 促されて います。 

プログラムと は 異な リ、 コンピュータ は 物理 法則に 従わなければ なり ませ 
ん。 もし それら を 迅速に 動かした いのなら ば 一 状態 変更 当たり 2、  3 ナノ 秒で 
—コンピュータ は 電子 を 極小の 距離で 転送せ ねばな り ません （高々 1| フィー 
ト）。 巨大な 数の 端子に より 生じる 熱 は 空間に 集中 しま すがこれ は 取り 除かね 
ばな リ ません。 精緻な 工学の 技芸が 機能の 多重 度と 端子の 密度の 間の バラ ンス 
を 取る ために 開発され ました。 任意の イベント において、 ハードウェア は 常に 
私達が プロ グラ ムを 行う のに 気にする よりもよ リ プリ ミ ティ ブな レベルで 動作 
します。 私達の Lisp プログラム を "機械の" プログラムに 変換す る 処理 は それ 
自 体が 私達が プロ グラムす る 抽象 モデルです。 それらの 学習と 作成 はとても 多 
く の 見識 を プロ グラ ミ ン グの 自 由 裁量な モデルに 関連す る 組織的な プロ ダラ ム 
に対して 与えます。 もちろん コンピュータ それ 自身 も そのよう に モデル 化 可能 
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です。 そのこと を 考えて みましょう。 最小の 物理 スイッチング 要素の 振舞 は 量 
子 力学で モデル 化され、 微分方程式 により 記述され、 その 詳細な 振舞 は 近似値 
の 数値 演算に より 獲得され、 それ は コンピュータ プログラム により 表現され、 

それ は コンピュータ 上で 実行され、 それ は 組み立てられ...！ 

3 つの 焦点 を 別々 に 判別す る こと は 戦術 上の 利便 性の 問題で しか あ り ませ 
ん。 例え 良く 言われる ように 全てが 頭の 中に あると しても、 この 論理的 分割 は 
これらの 焦点の 間の 記号 的 通信 量の 加速 を 引き起します。 焦点の 豊か さ、 活力、 
潜在 力 は 人間の 経験の 中で 人生 自体の 発展に より 増加し ます。 最良 時には 焦点 
の 間の 関係 は 準 安定になります。 コンピュータ は 絶対に 十分に 大きく、 速く は 
な り ません。 ハー ドウ エア 技術の 全ての 飛躍的 進歩が よ り 大規模な プロ ダラ ミ 
ング 計画、 新しい 組織化 原理、 抽象 モデルの 向上へ と 導きます。 読者の 全員が 
自身に 対し 繰り返し" どの 終点に 向かって？ どの 終端に 向かって？" と 問わねば 
なりません。 しかし あまり 問い 過ぎても いけません。 ほろ 苦い 哲学の 便秘の た 
めに プログラミングの 楽し さ を 逸っして しまいます。 

私達が 書く プログラムの 間で、 いくつか （しかし 絶対に 十分で はない） は 厳 
格な 数学 上の 関数、 例えば ソート や 数列の 最大値 を 見つける、 素数 性 判定、 平 
方 根 を 求める 等が 実行 されます。 私達 は そのような プログラム を アル ゴ リ ズム 
と 呼びます。 多数の 物が それらの 最適な 振舞 を、 特に 2 つの 重要な パラメタで 
ある 実行時 間と データ ス ト レー ジの 必要 量に 関して 知られて います。 プロ グラ 
マ は 良い アル ゴ リ ズム と ィ ディ ォムを 獲得し な ければ な リ ません。 例えい く つ 
かの プログラムが 厳格な 仕様に 反しても、 それらの パフォーマンス に関して 見 
積 り 、 常に 改善に 努める こ と は プロ グラマの 責務です。 

Lisp は "生存者" であ リ 約 四 半世紀の 間 利用 されて きました。 活発な プロ グ 
ラ ミ ング 言語の 中で Fortran のみが Lisp よ リ 長い 人生 を 経てい ます。 Lisp と 
Fortran は どちらも アプリ ケーシ ヨンの 重要な 領域の プロ ダラ ミ ング 上の 必要 
性に 対処して きました。 すなわち Fortran は 科学 計算 や 工学 計算に 対して、 Lisp 
は 人工知能に 対してです。 これらの 2 つの 領域 は 重要で 有り 続けて おり、 そこ 
に 携わって いる プログラマ 達 は これら 2 つの 言語に 専念して いるた め、 Lisp と 
Fortran は 少な くと ももう 四半期 は 活発に 使われ 続ける こ とでしょう。 

Lisp は 変化し ます。 この テキス トで 使用され る Scheme 方言 は オリ ジナル 
の Lisp から 発展し いくつかの 重要な 手法に 関して 異なって います。 違いに は 
変数 束縛に 対する 静的 スコー ピ ン グゃ 関数の 値 として 関数の 生成 を 許可して 
いる 点 等が 含まれます。 その 意味 構造に おいて Scheme は 初期の Lisp と 同等 
に Algol 60 に 近い 物です。 Algol 60 は 再び 現役と なるこ とはないでしょう カ夂 
Scheme と Pascal の 遺伝子に 受け継がれ ています。 これらの 2 つの 言語の 周り 
に 集った 言語よ リも、 もう 2 つの 異なる 文化の 流通 貨幣と しての 2 つの 言語 
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を 見つける ことの ほうが 難しいで しょう。 Pascal は ピラミッド を 建築す るた め 
の 物です 一 印象的で、 息 を 飲む ような、 軍隊が 重い ブロック を 所定の 位置に 
押す ことで 建築され た 静的な 構造 物です。 Lisp は 有機体 を 構築す るた めの 物で 
す 一 印象的で、 息 を 飲む ような、 小 分隊が 不安定で 無数のより 単純な 有機体 
を 所定の 位置に 嵌め込む ことで 構築され た 動的な 構築物です。 使用され た 体系 
化の 原則 は 両者の 場合で 同じです。 ただし 並外れて 重要な 違いが 1 つ あり ま 
す。 個々 の Lisp プログラマに 委ねられた 任意の エクスポート 可能な 機能の 数 
は Pascal の 進取 性の 中に 見つかる それらよ リ も 桁違いに 多い のです。 Lisp プ 
ログ ラム は 機能の ライブラリ を 膨らませます。 その 機能の 実用 性 は それら を 生 
成した アプリケーション を 越えます。 Lisp 生来の デー タ 構造で ある リスト がそ 
のよう な 実用 性の 成長の 大きな 原因です。 簡単な 構造と 自然な リストの 適用 可 
能 性 が 驚くべき 程に 非 特異 的に 機能に 反映され ています。 Pascal では 宣言 可能 
な データ 構造の 過剰 さが カジュアルな 連携 を 抑止し、 ペナルティ を 科す 機能の 
中に 特殊 化する こと を 促して います。 1 つの データ 構造の 上で 操作す る 100 の 
機能 を 持つ ほうが 10 の データ 構造の 上で 操作す る 10 の 機能 を 持つ ょリも 優れ 
ています。 結果と して ビラ ミ ッ ドは 1000 年の 間 変わらぬ ままで いるに 違い あ 
リ ません が、 有機体 は 発展で きなければ 減んで しまう のです。 

この 違い を 説明す るた めに はこの 本の 中に ある 教材と 課題の 扱い を 任意の 
初級 課程の Pascal を 用いる テキストの それと 比べて みて 下さい。 MIT だけが 消 
費で きる、 そこ で 見つかる 血統書 付 きの 良馬の ための も のとい う 幻想の 下で 苦 
悩し ないで 下さい。 学生が 誰で ある か とかど こ で 利用 される かが 問題で は あ リ 
ません。 まさに、 Lisp プログラミング に対して 真剣な 本 は どんな 物で あるべき 
かが 問題です。 

これ は プロ ダラ ミ ング に関する テキス ト である ことに 注意して 下さい。 人 
ェ 知能の 仕事の ための 予習に 使われる 他の 多くの Lisp の 本と は 違います。 結 
局、 ソフト ゥ ヱァ 工学と 人工知能の 重大な プロ ダラ ミ ングの 課題 は 研究が よ リ 
大きく なる につれ システム として 融合す る 傾向に あり ます。 この ことが なぜ 
そのような Lisp への 興味が 人工知能の 外側で 大きく なって いるの か を 説明し 
ます。 

誰かが その ゴールから 予測 したよう に、 人工知能 研究 は 多 く の 明確な プロ 
グラ ミ ング 上の 問題 を 生成し ました。 他の プロ ダラ ミ ング 文化で はこの 相次ぐ 
問題 は 新 しい 言語 を 生み ます。 実際に どんな とても 大きな プロ グラミ ン グタ ス 
ク においても 効果的な 体系化 原理 は タスク モ ジュール 内の 情報量 を 言語の 発明 
を 通して コントロールし、 分離す る ことです。 これらの 言語 は 私達、 人間が 最 
も 良く 操作 を 行う システムの 境界へ と迪リ 着く に 従い プリミティブで はなくな 
つてい く 傾向に あります。 結果と して、 そのような システム は 何度も 複製され 
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た 複雑な 言語 処理 機能 を 含みます。 Lisp はとても シン プルな 文法 と 意味論 を 持 
ち、 パースが 初歩 的な タスクと して 扱えます。 従って パースの 技術 は Lisp プロ 
グラムに おいて は ほ とん ど ルール 無用 の 役割 を 演じます。 そして 言語 処理 機の 
構築 は 巨大な Lisp システムの 変化と 成長の 程度に 対し ほとんど 障害に なり ま 
せん。 最後に、 全ての Lisp プログラマ により 負われて いる 義務と 自由に 対して 
責任 を 持つ もの こそが この とても 単純な 文法と 意味論です。 数 行の サイズ を 越 
える Lisp プログラムなら 自由 裁量に よる 関数で 満たす ことなく 書く こと はで 
きません。 開発し、 合わせる。 合わせて、 また 開発す る！ 括弧の 入れ子の 中に 
自身の 考え を 記述す る Lisp プログラマに 乾杯。 

Alan  J.  Perns 

New  Haven,  Connecticut 
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第二 版 序文 


ソフ トウ エアが 他の 何物に も 似て いないと 言う こと はでき るで し 
よう 力 \ それが 捨てられるべき 物 だと。 つまり、 常に シャボン玉 だ 
と 見なす こと だと。 

― Alan  J.  Perlis 

この 本の 中の 教材 は 1980 年から mit の 入門 者 レベルの 計算機 科学の 科目の 中 
心と なる 物です。 私達 はこの 教材 を 4 年間、 最初の 版が 出版され た 時点で 教え 
てきました。 そして この 第二 版が 出現す るまでに さらに 12 年が 経過し ました。 
私達の 成果が 広く 受け入れられ、 他の テキストに 取り込まれ ている こと を 喜ば 
しく 思って います。 私達の 生徒が こ の 本の 考え と プログラム を 学び 新 し レ 、計算 
機 システムと 言語の 核と して それら を 組み込んで いるの を 見て きました。 古代 
の タル ムー ドの 多義 語の 文字 認識で は、 私達の 生徒が 開発 者に なって くれ まし 
た。 そのような 能力 有る 学生と 熟練した 開発 者 を 得た こと はとても 幸運な こと 
でした。 

この 版 を 準備す るに あたって、 私達 自身の 教育 上の 経験と mit や 他の 同僚 
達からの コメント により 提案 さ れた幾 百 もの 説明 を 統合し ました。 この 本の 中 
の 主な プロ グラ ミ ング システムの 多く を 包括的 数値 演算 システム、 ィ ンタ プリ 
タ、 レジスタ マシン シミュレータ、 コンパイラ を 含めて 再設 計し ました。 そして 
全ての プロ グラ ム例 を、 任意の ieee  Scheme 標準 （IEEE  1990) に 従う Scheme 
実装が そられの コード を 実行で きる こと を 確実に する ために、 書き直しました。 

この 版 はいくつ かの 新しい テーマ を 重視して います。 これらの 内、 最も 重 
要な もの は 計算 モデル 内での 時間 を 取り扱う ための 異なる 取り組み により 演じ 
られる 中心的な 役割です。 状態 を 伴う オブジェクト、 並行 プログラミング、 関 
数 型 プログラミング、 遅延 評価、 そして 非 決定 性 プログラミングです。 私達 は 
並行 性と 非 決定 性に 関わる 新しい 節 を 含め、 そして この テーマ を この 本 を 通し 
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てまと める こと を 試みました。 

こ の 本の 第一 版 は MIT の 一学 期の 科 目 の 講義 概要 を 密接に 追ってい ました。 
第二 版の 全ての 新しい 教材に より、 一学 期で 全て を カバーす る こと は 不可能と 
なりました。 そのため インス トラクタ は 選択 をし なければ なりません。 私達 自 

身の 教育 現場で は、 時々 論理 プログラミング （Section  4.4) を 飛ばします。 学生 
に は レジスタ マシンの シミュレータ を 使用 させる ので その実 装 （Section  5. 2) は 
カバーし ません。 そして コンパイラ （Section  5.5) は 概観の み を 大雑把に 教えて 
います。 それでも これ は 依然として 強烈な 授業です。 何人 かの インス トラクタ 
は 最初の 3 章から 4 章の み を カバーし、 他の 教材 を 続きの 授業に 残したい と 願 
うでしょう。 

World- Wide- Web サイ ト http:〃mitpress.mit.edu/sicp はこの 本の ユーザ 
への サポート を 提供し ます。 これに はこの 本の プログラム、 プログラミング 課 
題の サ ン プル、 補助 教材、 ダウ ン ロード 可能な Lisp の Scheme 方言の 実装が 含 
まれます。 
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第一 版 序文 


コンピュータ はヴ アイ オリ ン のよう な 物です。 初心者が 最初に 蓄 
音 機、 そして 次に ヴァイオリン を 試す こと を 想像して 下さい。 彼 
は 後者の 音 は 酷い と 言います。 これが 人間 主義者と 多く の 計算機 
科学者から 聞こえて く る 議論です。 計算機の プロ グラム は 特定の 
目的に は 良い 物 だ、 しかし 柔軟性が 無い と 彼ら は 言います。 ヴァ 
ィ オリ ンゃ タイプライタ だって 同じです。 あなたが その 使い方 を 
学ぶ まで は。 

― Marvin  Minskv,  "Why  Programming  Is  a  Good  Medium  lor  Ex- 
pressing Poorly-Understood  and  Sloppily- Formulated  Ideas" 


"The  Structure  and  Interpretation  of  Computer  Programs"  (SICP,  3 十算 機フ 口 
グラムの 構造と 解釈） は マサチューセッツ 工科大学 （MIT) での 入門 者 レベルの 

計算機 科学の 科目です。 MIT にて 電気工学、 または 計算機 工学 を 専攻す る 全て 

の 学生が "共逋 コア カリ キュ ラム" の 4 つの 内の 1 つと して 履修し なければ な 
リ ません。 共通 コア カリ キュ ラム は 回路と 線形 システム について 2 つの 科目と 
デジタル システムの 設計に ついての 科目 を 含みます。 私達 はこの 科目の 開発 を 
1978 年から 行なって きました。 そして この 教材 を 現行 様式と して 1980 年の 秋 
から、 600 名から 700 名の 学生に 毎年、 教えて きました。 これらの 学生の 多く 
は 少し、 または 全くの 事前の 公式な 計算機 利用に ついての ト レーニング を 受け 
てはいませんでした。 ただし、 多く は 事前に 計算機で 少々 遊んだ 経験が 有り、 
ほんの 少数 は 広範囲の プロ ダラ ミ ングの 経験 や ハー ドウ エア 設計の 経験が ぁリ 
ました。 

私達の この 計算機 科学の 入門 科目の 設計 は 2 つの 主な 関心事 を 反映して い 
ます。 1 つ は、 コンピュータ 言語 は コンピュータに 命令 を 実行させる ための 単 
なる 方法 等で はなく、 新しい 種類の 方法論に 関する 考え を 表現す るた めの 公式 


な メディア であると いう 考え を 証明す る ことです。 従って プログラム は 人々 が 
読む ために 書かれねば ならず、 そしてた だ 偶然に 機械に とって 実行す る 物で な 

ければ なりません。 2 つ 目 は、 この レベルの 科目に ょリ 扱われる 本質的な 教材 
と は、 特定の プログラミング 言語が 構築す る 構文で はなく、 また 特定の 関数 を 
効率的に 演算す るた めの 賢い アルゴリズム でもな く、 増して アルゴリズムと 演 
算 基盤の 数理 解析で ない という 信念です。 そうで はなく、 大きな ソフトウェア 
システムの 知的な 複雑 性 を コ ン トロール する ために 用いる 技術で なければ な リ 
ません。 

私達の 目標 は、 こ の 教科 を 完了した 学生が プログラミングの 美学と ス タイ 
ルの 原理 に対して 必ず 良 い 感触 を 得る ことです。 学生 達が 大きな システムの 複 
雑 性 を コント 口 ール する ための 主な 技術の 能力 を 得られな ければ な リ ません。 
学生 達が 50 ページの 長さの プログラム を、 それが 模範的な スタイルで 書かれ 
ている のなら ば、 読める ようにならなければ なりません。 学生 達が プログラム 
の 変更 を 行う 時に、 元の 作者の 魂 と スタイル を 維持しながら 安心で き な ければ 
なり ません。 

これらの スキル は 決して コンピュータ プロ ダラ ミ ング に対して 独自な こ 
とではありません。 私達が 教え、 利用す る 技術 は 全ての 工学 設計に 対して 共 
通な 物です。 私達 は 適切な 場合に、 詳細 を 隠す 抽象 概念 を 構築す る ことによ 
リ 複雑 性 を コントロール します。 標準 的な、 良く 理解され た 部品 を" mix  and 
match" (様々 な 物 をう まく 組み合わせる 方法） の 方法に より 組み合わせる こと 
により、 システム を 構築す る こと を 可能に する 慣習 的な ィ ン ターフェ イス を 確 
立す る ことで、 複雑 性 を コントロール します。 私達 は 設計 を 記述す るた めの 新 
しい 言語 を 確立す る こと で 複雑 性 を コントロール します。 そ して 各 言語 は 設計 
の 特定の 側面 を 重要視し、 他の 側面の 重要性 を 緩和し ます。 

私達の この 教科に 対する 取り組み 方の 根底 を 成す 物 は、 "計算機 科学" は 科 
学で はなく、 その 意義 は 計算機と は 関係が 無い という 信念です。 計算機 革命と 
は 私達の 考え方と 私達の 考えの 表現 方法に おける 革命です。 この 変化の 本質 を 
恐らく 最も うまく 言い表わ すの は procedttraZ  epistemoto 卯 (手続 的 認識論) 一 古 
典 的な 数学 上の 主題に より 取られる より 宣言的な 視点に 対立す る、 命令 型の 視 
点か ら の 知識 構造の 研究 一の 出現で しょう。 数学 は "何で ある か" の 概念 を 正 
確に 扱うた めの フレームワーク を 提供し ます。 計算機の 使用 は "行い 方" の概 
念 を 正確に 扱うた めの フレームワーク を 提供し ます。 

私達の 教材 を 教える にあたって、 プログラミング 言語 Lisp の 一方 言 を 使用 
します。 私達 は 正式に この 言語 を 教える こと はしません。 する 必要が ないから 
です。 ただ それ を 使用し、 そして 学生 は 2、  3 日で 習熟して しまいます。 これ は 
Lisp の 様な 言語の 1 つの 利点です。 これらの 言語 は 複合 式 を 形成す る 方法が あ 
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まり 多く あり ません。 そして ほ とん ど 構文 構造が 存在 し ません。 形式的な 特性 
の 全て は 一時間 も あれば カバーで きます。 まるで チェスの ルールの 様な もので 
す。 少しの 時間の 後に はこの 言語の 構文 上の 詳細 を 忘れて しまいます。 （ほ とん 
ど 存在 しないから です)。 そして 本当の 問題 一 私達が 演算 したい 物 を 把握す る 
こと、 どのように 問題 を 扱い やすい 部分へ と 分解す るか、 そして どのように そ 

の 部品 上で 働 く かにつ いて 取 り 掛か り ます。 Lisp のもう 1 つの 利点 は 私達が 知 
つてい る 他の どの 言語よりも プログラム を 分解した モジュラ に対するより 多く 
の 大規模な 戦略 を サポート する （しかし 強制 はしない） ことです。 手続 化と デー 
タ 抽象化 を 行い、 公開 関数 を 用いて 処理の 共通な パターン を 獲得し、 代入と デ 
ータの 変更 を 用いて 局所 状態の モデル 化 を 行い、 プログラムの 部品 をス トリー 
ムと 遅延 評価に 結び付け、 簡単に 組 込 言語 を 実装す る ことができます。 これら 
全て がィ ン タラ ク ティブ （相互作用） な 環境に インクリメンタル （漸増 的な） プ 
ログ ラム 設計、 構築、 テスト、 デバッグの ための 優れた サポート と共に 組 込ま 
れ ています。 私達 は 前例の 無い 力 と 洗練 さ を 供えた 素晴 しい ツール を創リ 出し 
た John  McCarthy を 始めと する 全て の 世代の Lisp  wizard (ゥ ィ ザ 一 ド 、 魔法 使 
い、 最上級の プログラマの 賞賛 を 込めた 呼び名） に 感謝し ます。 

私達が 用いる Lisp の 方言、 Scheme は Lisp と Algol の 力と 洗練 を 一緒に も 
たらそうと しました。 Lisp から は 単純な 構文から 導き出される メタ 言語の 力、 
データ オブジェ ク ト としての プログラムの 単一の 表現、 ガベー ジ コレクション 
を 持つ ヒー プ上 に 取得され る データ を 得 まし た。 Algol か ら は Algol 委員会に 
在籍 した プロ グ ラ ム 設計の 開拓者 か らの 贈り物で ある レキシ カルス コープと ブ 
口 ッ ク 構造 を 得ました。 私達 は John  Reynolds と Peter  Landin の Church (チ 
ヤー チ） の ZflmMa- calculus (ラムダ 計算） の プロ ダラ ミ ング 言語の 構造に 対する 
関係 に つ いての 彼等の 洞察に 対 して 言及した いと 願います。 また コンピュータ 
が この 世界 に 現れる 何十 年 も 前に こ の 領域 を 偵察 さ れた 数学者 達に 対する 恩 
義 も 忘れて おりません。 これらの 開拓者 に は Alonzo  Church,  Barkley  Rosser, 
Stephen  Kleene,  Haskell  Curry 等が 含まれて お リ ます。 
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手続 を 用いた 抽象化の 構築 


心が その 中で、 その 力 を 単純な 考えの 上に 発揮す る "心の 働き" は、 

主として これら 3 つです。 1. いくつかの 簡単な 考え を 1 つの 複合 
物に 組み合わせます。 全ての 複雑な 考え はこの ようにして 作られ 
ます。 2.  2 つの 考え を それが 簡単で あるか 複雑で あるかに 係らず 
一緒に もたらし、 お 互いに 合わせる ことで それら を 統合す る こと 
は 無しに、 全ての 関係 性の 考え を 得る ことで、 一度に それら を 見 
渡します。 3. 考え を それらの 実在に 付随す る 全ての 他の 考えから 
分離し ます。 これ は 抽象化と 呼ばれ、 このよう にして 全ての その 
一般的な 考え は 作られます。 

—— John  Locke,  An  Essay  Concerning  Human  Understanding  (1690) 

私達 は compttta^onaZ  process( 演算 プロセス） について 学びます。 演算 プロセス 
と は 抽象的な 存在で コンピュータの 中 に 複数が 住んで い ます。 それら が 進化す 
ると プロセス は data (データ） と 呼ばれる また 別の 抽象的な 物 を 扱います。 プロ 
セスの 進化 は program (プログラム） と 呼ばれる ルールの パターン （型、 類型） に 
より 命じられます。 人 は プログラム を 作成して プロセスに 命ずる のです。 つま 
リ 私達 は コンピュータの 精霊 に 私達の 呪文で 魔法 を かける の です。 

演算 プロセス は 本当 に 魔法使いの 精霊の 考え に似てい ます。 それ は 見た リ 
触れたり はでき ません。 物理的な 物で は 構成され ていません。 しかし とても リ 
アルな 存在です。 知的な 仕事 を 行います。 質問に も 答えます。 銀行で お金 を 払 


つたり、 工場で ロボ ッ トの腕 を コントロール する ことで 世界に 影響 を 与える こ 
とも 可能です。 私達が 利用す る プロセスに 魔法 を かける プロ グラム と は 魔法 使 

いの 呪文の よう な 物です。 難解な 秘伝の programming  languages  、プ D グラ ミ ン 
グ 言語） の 中 で 記号 的 表現 にて 慎重に 組み立てられ プロセスに 実行して ほしい 
タスク （仕事、 任務） を 指示し ます。 

演算 プロセス は、 正しく 動く コンピュータ では、 精密に 正しく プログラム 
を 実行し ます。 従って 魔法使いの 見習いの ように、 初心者の プログラマ は 魔法 
の 結果に ついて 理解し、 予測す る こと を 学ばねば なりません。 例え プログラム 
の 小さな エラー （通常 は &M が (バグ)、 またはが ite/ies (グリッチ、 誤作動） と 呼ば 
れ ます） でも 複雑で 予測 不可能な 結果 を も たらす 場合 も あるので す。 

幸運な こと に、 プログラム を 学ぶ こ と は 魔法 を 学ぶ ことより 少し も 危険で 
はあり ません。 私達が 相手に する 精霊 は 都合 良く 安全な 方法で 封じ込まれ てい 
ます。 しかし、 実際の 世界での プログラミングに は 注意力、 専門知識、 堅実 さ 
を 必要と します。 例えば CAD (計算機に よる 設計 支援） プログラムの 小さな バ 
グが 飛行機 や ダムの 最悪な 崩壊に 繋ったり、 工業 ロボ ッ トの 自己 破壊 を 起こし 
たりし ます。 

ソフ トウ エア エンジニアの マスター 達 は 最終的に プロセスが 望まれた タス 
クを 実行す る ことに 自信 を 持てる だけの 技能 を、 プログラム の 構築に 対 し て 
持って います。 彼ら は 前もって システムの 行い を 図で 説明す る ことができ ま 
す。 予測 不可能な 問題が 最悪な 結果 を もたらさ ぬよう プログラム を どのように 
構造 化 を 行う のか 知っています。 そして 問題が 発生した 時には プログラムの 
rfeimff (デバッグ、 バグ 取り） を 行えます。 良い 設計の コンピュータ システム は、 
良い 設計の 自動車 や 原子炉の ように モジュール 方式で 設計され ており、 パーツ 
は 個別に 組み立て、 置き換え、 デバッグが 可能です。 

Lisp プログラミング 

私達 は プロセス を 記述す るのに 適切な 言語 を 必要と します。 この 目的に 対 
し プログラミング 言語 Lisp を 利用し ます。 私達の 日々 の 考えが 通常、 自然言語 
(例えば 英語 や フランス語、 日本語） で 表される ように、 定量 的な 現象が 数学 
の 記号で表される ように、 手続 的な 思考 は Lisp で 表現され ます。 Lisp は 1950 
年代 後半に recursion  e9™tons (再帰 方程式） と 呼ばれる ある 種の 論理 表現に 関 
する 推論の ための 形式 化と して 開発され ました。 この 言語 は John  McCarthy 
により 着想され、 彼の 論文 "記号 式の 再帰 方程式と それらの 機械に よる 演算" 
(McCarthy  1960) を 基に しています。 

数学 上の 形式主義 としての 始ま リ にも 関わらず、 Lisp は 実用的な プロ グラ 
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ミ ン グ 言語です。 Lispinierpreier (ィ ンタプ リタ、 逐次 翻訳 処理 器） は Lisp 言 
語に て 記述され た プロセス を 実行す る 機械です。 最初の Lisp インタプリタ は 
McCarthy と MIT 研究所の 人工知能 部門の 同僚、 学生に よる 手助けに て 実装 さ 
れ ました。 1 Lisp は その 名前 を List  Processing (リ ス ト 処理） の 頭文字から 取つ 
てお リ、 記号 微分 や 代数式の 積分の 様な プロ グラ ミ ング 上の 問題に 着手す るた 
めの 記号 操作 能力 を 提供す るた めに 設計され ました。 この 目的の ために アトム 
と リストと して 知られる 新しい データ オブジェ ク ト を 含みます。 これ は その 時 
代の 他の 全ての 言語から 著しく 際立た せる 物でした。 

Lisp は 計画的な 設計の 取り組みから 生まれた 製品で はあり ませんで した。 
そうで はなく、 非公式に 試験的な やり方で、 ユーザの 要求と 実利 的な 実装 上の 
考慮への 対応と して 発展し ました。 Lisp の 非公式な 進化 は 何年 も 続き、 Lisp ュ 
一 ザの コミュニティ は 伝統的に 言語の "公式な" どんな 定義の 公表に 対しても 
抵抗し ました。 この 進化 は 初期 構想の 柔軟性と 洗練 さと 共に、 今日 世界中で 広 
く 使用され る 言語で 2 番目に 古い （Fortran のみが よ リ 古い） 言語と して、 Lisp 
に 継続的に 最新の プログラム 設計に ついての 考え を 受け入れる こと を 可能に し 
てきました。 従って Lisp は 今では 複数の 方言の 系統が 存在し、 それら は オリ ジ 
ナルの 機能の 多く を 共有しながら も、 お 互いに 大きな 違い を 持ちます。 この 本 
で 使用され る Lisp の 方言 は Scheme と 呼ばれます。 2 

実験的で あると いう 特徴と 記号 操作の 重要性の ため、 Lisp は 初期に おいて 
は 数値 演算に 対し 少く とも Fortran との 比較に て とても 非 効率でした。 しかし 
年 を 追って、 プログラム を 機械語に 変換し、 数値 演算 を 適度に 効率 良く 実行 可 


1 Lisp 1 Programmer's  Manual ぼ 1960 年に f 刀 出 し、 Lisp 1.5  Programmer ， s  Manual 
(McCarthy  et  al. 1965) は 1962 年に 出版され ま した。 Lisp の 初期の 歴史 は McCarthy 
1978 にて 説明され ています。 

2 1970 年代に 最も メジャ一 な Lisp プログラムの 記述に 用いられた 2 つの 方言 は 
mit の プロジ ェク ト mac で 開発され た MacLisp  (Moon  1978;  Pitman  1983) と Bolt 
Beranek  and  Newman  Inc. と Xerox  Palo  Alto 研究 セ ンタ一 ににて 開発 さ れた Interlisp 
(Teitelman  1974) でした。 Portable  Standard  Lisp  (Hearn  1969;  Griss  1981) は 簡単に、 
異なる マシンの 間で 移植 可能に する よう 設計され た Lisp 方言です。 MacLisp は 力 リ フ 
オル ニァ 大学 バーク レー 校に より 開発され た Franz  Lisp や MIT 人工知能 研究所が Lisp 
を とても 効率 良く 実行す るた めに 設計した 特定 目的 プロセッサ （処理 機） を ベースに した 
Zetalisp  (Moon  and  Weinreb  1981) といった いくつかの 下位 方言 を 生みました。 この 本 
で 使用す る Lisp 方言 は Sheme  (Steele  and  Sussman  1975) と 呼ばれ、 1975 年に mit 人 
ェ 知能 研究所の Guy  Lewis  Steele  Jr. と Gerald  Jay  Sussman に よ り 開発され、 後に mit 
にて 教育 目的の ために 再 実装され ました。 Common  Lisp  (Steele  1982,  Steele  1990) は 
Lisp コミュニティ により 初期の Lisp 方言の 機能 を 集約し、 Lisp の 業界 標準 を 作成す る 
ために 開発され ました。 Common  Lisp は 1994 年に ANSI 標準 （ANSI  1994) になり まし 
た。 
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能な Lisp コンパイラが 開発され ました。 特別な アプリケーション に対して は 
Lisp は 最高の 効果 を 発揮して います。 3  Lisp は 今でも どうしょう もな く 非 効率 
であると いう 古い 評判 を乗リ 越えられて はいません 力 《、 Lisp は 今では 多くの ァ 
プリ ケーシ ヨンに て、 効率が 問題の 中心で はない 場合に おいて 利用され てい ま 
す。 例えば Lisp は OS の シェル 言語 や エディタの 拡張 言語、 CAD システム 等 
において 選択 言語と なって います。 

も し Lisp がメ ィ ンス ト リ ームの 言語で なければ なぜ 私達 は プロ ダラ ミ ング 
の 議論の ための フレームワーク として それ を 用いる のでし よ う 力 、？ なぜなら こ 
の 言語 は 重要な プロ ダラ ミ ング 構成 概念と データ 構造 を 学ぶ ため、 また それら 
を サポート する 言語 上の 機能に それら を 関連 付けす るた めに、 言語 自身 を 洗練 
さ れた 媒体 と 成す 個 有の 機能 を 持って いる ためです。 これら の 機能で 最も 著 し 
い 物 は、 Lisp による proce お res (手続） と 呼ばれる プロセスの 記述が、 それ 自身 
が Lisp の データと して 表現され、 また 操作され る こと が 可能で あると いう 事 
実です。 これの 重要性 は、 伝統的な" 受動的な" データと" 能動的な" プロセス 
との 間の 区別 を ぼかす 能力 に 依存す る、 強力な プロ ダラ ム 設計の テクニック が 
存在 するとい うこと です。 私達が それ を 発見す るに つれ、 手続 を データと して 
扱う Lisp の 柔軟性 は Lisp を これらの テクニック を 探求す るのに、 既存で 最も 
便利な 言語の 1 つと します。 手続 を データと して 表現す る 能力 はまた、 Lisp を 
他の プロ グラム を デー タ と して 操作 し な ければ な ら ない プログラム を 書く 目的 
に 対し 洗練され た 言語に します。 例えば コンピュータ 言語に 対応す る インタ プ 
リタ や コンパイラの ような プログラムです。 これらの 考慮 点に 加えて、 Lisp に 
よる プロ グラ ミ ング はとても 楽しい のです。 


1.1 プログラミングの 要素 

強力 な プロ ダラ ミ ン グ 言語 は コンピュータに タスクの 実行 を 指示す る だ け 
では あり ません。 そのような 言語 は 私達が プロセスに ついての 自らの 考え を 体 
系 化する フレームワーク と しての 役目 を 担います。 従って 言語 を 記述す る 時、 
簡単な アイ デァ を 組み合わせて よ リ 複雑な アイデア を 形成す ると いう 手段 を そ 
の 言語が 提供す る ことに は 特に 注意 を 払わねば なり ません。 強力な 言語 全てが 


3 そのような 特別な アプリ ケーシ ョ ンの 1 つ は 自然科学 上の 重大な 計算、 太陽系の 動き 
の 統合に おける ブレイク スルーでした。 これ は 以前の 結果より 二桁 も 良く、 太陽系の 活動 
が 混沌で ある こと を 実演し ました。 こ の 計算 は 全て Lisp で 書かれた ソフトウェア ツール 
の 手助けに より 実装され た 新しい 統合 アルゴリズム、 特定 目的の コンパイラ、 特定 目的 
の 計算機に よ り 可能 となりました。 （Abelson  et  al. 1992;  Sussman  and  Wisdom  1992) 
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これ を 達成す るた めに 3 つの メカニズム を 持って います。 

. プリ ミ ティ ブな 式， 言語に 関わる 最も 単純な 要素 を 表現す る 

• 合成 化の 手段， これにより、 より 単純な ものより 複合 要素が 構築され る 

• 抽象化の 手段， これにより 複合 要素 は 名前 を 付けて 個体と して 扱える 

プログラミング において は 2 つの 種類の 要素 を 扱います。 手続 （procedure) と 
データです。 （後で それら は あまり はっきりと は 区別で きない こと を 明かし ま 
す。） 簡単に 説明す ると データ は 操作 対象の "物" で 手続 は データの 操作の ため 
の ルールの 記述です。 従って 強力な プロ ダラ ミ ング 言語 は どれ も プリ ミ ティ ブ 
(原始的な、 最低 レベルの、 組 込の） な データ と プリ ミ ティ ブな 手続 を 記述 可能 
でなければ ならず、 また 手続と データ を 合成 化、 抽象化す る 手法 を 持た なけれ 
ばな リ ません。 

この 章で は 単純な 数値 データの み を 扱う ことにより、 手続 構築の ための ル 
ールに 集中し ます。 4 後の 章で は 同じ これらの ルールに より 複合 データ もまた 
構築で きる こと を 学びます。 

1.1.1 式 

プロ ダラ ミ ングを 始める 1 つの 簡単な 方法 はいくつ かの 典型的な 対話 
を Lisp の 方言で ある Scheme のィ ンタ プリ タを 用いて 試して みる ことで 
す。 コンピュータの 端末の 前に 座って いると 想像して みて ください。 あなた 
が expressions^) を 入力す ると インタ プリ タは その 式の emfedton (評価） の 結 
果を 表示す る ことで 応答 します。 

4 数値 を "単純な データ" と 特徴 付ける の は 公然な ゥソ です。 実際に 数値の 扱い は 任意 
の プログラミング 言語に おいて 最も 油断なら ない、 混乱 を 招く 要素です。 いくつかの 典 
型 的な 問題 は 次の ものです。 いくつかの コンピュータ システム は 2 のよう な integers (整 
数） と 2.71 のよう な redrmmtere (実数） の 区別 をし ます。 実数 2.00 は 整数 2 と は 異なる 
でしよう か？ 整数に 用いられる 算術 演算 は 実数に 対する 物と 同じで しょうか？ 6 を 2 で 
割ったら 3? それとも 3.0? どれ だけ 大きな 数値 を 表示で きます か？ 精度 は 小数 何 桁まで 
正しく 表わされます か？ 整数の 範囲 は 実数の 範囲と 同じです か？ もちろん これらの 質問 
の 他に も 丸めと 切り捨て に 関する 誤差の 問題の 蓄積 といつ た 数値解析の 科学 全体が 存在 
します。 この 本の フォーカス は 大規模な プログラム 設計で あり 数値 演算 向けの テク ニッ 
ク ではない ので これらの 問題 は 無視す る こ と に します。 この 章の 数値 演算の 例で は 非 整 
数 演算に おいて 精度 上 正確な 桁 数に 制限 を 持つ 算術 演算 を 用いる 場合に 一般的な 丸めの 
方法 を 示します。 
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あなたが 入力す る プリ ミ ティ ブな 式の 一種と して 数値が あり ます。 （よ り 正 

確に は あなたが 入力す る 式 は 10 進数の 数値 を 表す 数字から 成り立ちます。 ） も 
し 数値 を Lisp に 与えた 場合、 

486 

インタプリタ は 以下 を 表示す る こ と で 応答 します。 5 
486 

数値 を 表す 式 は プリ ミ ティ ブな 手続 を 表す 式 （例 えば + や *) と 接続す る ことで 
複合 式 を 形成し、 それら 数値に 対し 手続 を 適用す る こと を 表現し ます。 例えば: 

(+ 137  349) 
486 

(- 1000  334) 
666 

(*   5  99) 
495 

(/ 10  5) 

2 

(+  2.7 10) 
12.7 

これらの ような 式 は 括弧の 中の 式の リスト を 区切る ことにより 形成 さ れ 手続の 
適用 を 示し、 com&irmiions (組み合わせ） と 呼ばれます。 リストの 最も 左の 要素 
は operator (オペレータ、 演算子） と 呼ばれ、 他の 要素 は operand (才 ペラン ド、 被 
演算 数） と 呼ばれます。 組み合わせの 値 は オペレータ により 与えられた 手続 を 
オペ ラン ドの 値で ある argmraente (引数） に 適用す る ことで 得られます。 

オペレータ を オペランドの 左に 置く 決まり は prefix  notaton (前置 表記法） 
として 知られて います。 最初の 内 は 数学の 決 まりから 明らかに 逸脱す るので 混 
乱す るか もしれ ません。 しかし、 前置 表記法に はいくつ かの 利点が 存在し ます。 
その 1 つ は 以下の 例の ように、 任意の 数の 引数 を 取る 手続に 適応で きる こと 
です。 

5 この 本 を 通して、 ユーザの 入力と インタプリタが 表示した 応答 を 区別したい 場合、 傾 
いた 文字で 表します。 
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(+  21 35 12  7) 

75 

(*   25  4 12) 
1200 

曖昧さが 全くありません。 オペレータが 常に 最も 左の 要素で あり、 合成 全体 は 
括弧で 区切 られ ている ためです。 

前置 表記法の 2 つ 目の 利点 は 直接的な 方法に て 組み合わせ を nested (ネス 
ト、 入れ子） にす る ことが 可能です。 つまり、 組み合わせの 要素 それ 自体が 組 
み 合わせで ある 場合です。 

(+    (*  3  5) (- 10  6)) 
19 

原理 的に は そのような ネストの 深さと Lisp インタプリタ が 評価 可能 な 式 全体 
の 複雑さ に は 制限が あ リ ません。 しかし 私達 人間 は 以下の よう な 比較的 単純な 
式で も 混乱して しまいます。 

(+    (*  3   (+   (*  2  4)    (+  3  5)))    (+    (- 10  7)  6)) 

インタプリタ は 直ちに 57 だと 評価す るでしょう。 このような 式 を 次の ような 
形式で 記述す る ことで 私達 自身 を 助ける ことが 可能です。 

(+    (*  3 


(+ 

O 

2 

4) 

(+ 

3 

5))) 

(+  (- 

10 

7) 

6)) 

pretty-printing 、プリティ プリ ン 卜、 整形） として 知られる フォー マツ トの 決ま 
リ に 個々 の 長い オペ ラン ドを 従わせる ことで、 オペラ ン ドが 垂直 方向で 位置 合 
わせされ ます。 結果 的に 式の 構造が 明確に インデント （字 下げ） される ことにな 
ります。 6 

例え 複雑な 式で も インタ プ リ タ は 常 に 同じ 基本的な サイクル にて 処理 を 行 
います。 式 を 端末から 読み、 その 式 を 評価し、 結果 を 表示し ます。 この 操作 モ 

6 典型的な Lisp システム は 式 を 整形し ユーザ を 手助けす るた めの 機能 を 提供し ます。 
特に 便利な 2 つの 機能に おいて、 1 つ は 新しい 行が どこで 始まろう とも 自動的に 正しい 
整形 位 -匿に ィ ンデン ト します。 も う 1 つ は 右 括弧が 入力され た 時に 対応す る 左 括弧が ハ 
ィ ライ ト されます。 
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ード はし ば しば インタプリタ が read-eval-print  loop(REPL: レ プル） で 実行 さ れ 
ている と 呼ばれ ま す。 特に 明示的に インタプリタ に 式の 値 を 表示し ろと 命令す 
る 必要がない ことに 注意して 下さい。 7 

1.1.2 名前 付けと 環境 

プロ グラ ミ ング 言語の 重要な 特徴 は 演算 対象 を 参照す るた めの 名前 を 利用 

する ために それが 提供す る 手段です。 名前 は W!fee (値） として オブジェ ク トを持 

つ variablti 変数) を 識別 します。 

Lisp の 方言 Scheme では 対象に define (定義） を 用いて 名前 を 付けます。 以 
下の ように 入力す ると 

、deiine   size  2) 

インタプリタ は 名前 size と 値 2 を 関連 付けます。 8 —度 名前 size が 数値 2 に 
関連 付けられれば 値 2 を 名前で 参照す る こ と が 可能です。 

size 

2 

5  size ) 

10 

よ り 多くの define の 使用例 を 見ましょう。 

(define  pi   3. 14159) 

、 def ine   radius 10) 

(*  pi    ( *  radius   radius ) ) 

314.159 

( dei ine   circumference    (*   2  pi  radius ) ) 
circumference 

62.8318 

7Lisp は 各 式が 値 を 持つ という 決ま り に 従います。 Lisp が 非 効率な 言語で あると いう 
古い 噂と 共に、 この 決まり が Alan  Perils による Oscar  Wilde を も じった 皮肉の ネタ元 
になって います。 日く  "Lisp プログラマ は 全ての 値 を 知っている がその コスト は どれに 
ついても 知らない" 

8 この 本で はィ ンタ プリ タの 定義に 対する 評価の 応答 を 表示し ません。 とても 実装 依 
存 であるた めです。 
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define は 言語の 最も 単純な 抽象化の 手段です。 簡単な 名前 を 使用して 合 
成 命令の 結果 を 参照す る こ と を 可能に します。 例えば 上の 例で 計算した 
circumference (円周） です。 一般的に 演算 対象 はとても 複雑な 構造 を 持ち、 
それ を 覚えて 使用 時に 詳細 を 繰り返し 記述す る こと はとても 面倒です。 実際に、 
複雑な プログラム は 少しづつ 複雑さ を 増して いく 演算 対象 を 1 つづつ 構築して 
組み立てられます。 ィ ンタプ リタ はこの プログラム 組立の 各 ステップに 特に 便 
利です。 なぜなら 名前と オブジェ ク トの 関連性が 連続した 対話 を 通して 少 しづ 
つ 作成 可能な ためです。 この 機能 は 漸進的 開発と プログラムの テスト を 促進し、 
Lisp プログラムが 通常 数多くの 比較的 単純な 手続に よ リ 構成され る 理由です。 
値に 記号 を 関連 付け、 後に それら を 取り出す ことがあ るの は、 インタ プリ 
タが 名前と オブジェクトの ペア を 追跡す るた めの ある 種の メモリ を 持た なけれ 
ばレ 、けない こと を 意味す る こと は 明白でしょう。 この メモリ は environment (環 
境） と 呼ばれます。 （より 正確に はが ofeZ  en^ronmen 《グロ一 バル 環境、 大域 環 
境)、 演算に は 複数の 異なる 環境が 利用され る こ と を 後に 学ぶ ため)9 

1.1.3 組み合わせの 評価 

この 章の 目標の 1 つ は 手続 的な 思考 上の 問題 を 分離す る ことです。 代表例 
として、 組み合わせの 評価に おいて インタプリタ は それ 自身が 手続に 従う こと 
を 考えて みましょう。 

組み合わせ を 評価す るた め、 以下 を 行います 

1.  組み合わせの 部分 式 を 評価す る 

2.  最も 左の 部分 式 （オペレータ） の 値で ある 手続 を 他の 部分 式 
の 値で ある 引数 （オペランド） に 対し 適用す る 

この 単純な ルールで さえ、 一般的な 過程に おける いくつかの 重要な 点 を 示し ま 
す。 最初に 第一の ステ ッ プが 組み合わせの 評価 過程 を 達成す ために は 先に 組み 
合わせの 各 要素の 評価 過程の 実行 を 行う 必要が ぁリ ます。 従って 評価 ルール は 
事実上 rectirsroe (再帰） 的です。 つまり 評価 ルールの 1 ステップと して それ 自身 
を 実行す る 必要性が あ リ ま す。 1Q 


9  Chapter  3 にて この 環境と いう 概念が インタプリタが どのように 働く か、 また どのよ 
うに ィ ンタプ リタ を 実装す るかに おいて 重要で ある こと を 示します。 

10 評価 ルールが 第一の ステップの 部分と して 組み合わせの 最も 左の 要素 を 評価し なけ 
れ ばいけ ない というの は 奇妙に 写る かも しれません。 この 時点で は それ は + や * が 表す 
足し算 やかけ 算 のよう な 組 込の プリ ミ ティブな 手続で しかない ためです。 後に 組み合わ 


390 


*  4  6 


Figure  1.1: 部分的 組合せの 値 を 示す 木 表現 


再帰の 考えが いかに 簡潔に、 深く ネストした 複合 式 を 表現で きる かに 注目 
してく ださい。 再帰で なければ とても 複雑な 経過に 見えて しまう でしよう。 例 
え ば 以下の 式 を 評価 してみ ます。 

(*    (+  2   (*  4  6)) 
(+3  5  7)) 

この 式 は 評価 ルールが 4 つの 異なる 組み合わせに 適用され る 必要が あり ます。 
この 過程 を 式の 組立 を 木 形式に て 表現す る ことで 図解す る ことが 可能です。 
Figure 1.1 を ご覧 下さい。 各 組み合わせ は 枝の 付いた ノードで 表され、 枝に は 
オペレータと 別の 組み合わせへの 茎と なる オペランドが 付いています。 終端 ノ 
一 ド （他の ノードへ のと 続く 枝の 無い 物） は オペレータ か 数値 を 表して います。 
評価 を 木の 用語で 表す と、 オペランド の 値 は 上へ と 流れて いくこと が 想像で き 
ます。 終端 ノードから 始まり 上の レベル、 さらに 上の レベルに て 合成され ます。 
一般的に、 再帰 は 階層 的な 木の ような 対象 を 扱う のに とても 強力な 技術で す。 
実際に 評価 ルールの "値 を 情報に 流す" 形式 は free  accumulation  (集積 木） と し 
て 知られます。 

次に 第一 ステップの 適用の 繰り返しが、 組み合わせで なく、 プリミティブ 
な 式、 例えば 数値 や 組 込 オペレータ、 その他の 名前 を 評価す る ことが 必要と な 
る 点へ と 導く ことに 注目して 下さい。 以下 を 規定す る ことにより、 プリ ミ ティ 
ブな 場合 を 取り扱います。 

. 数字の 値 は それが 意味す る 値です 

• 組 込 オペレータ の 値 は 機械語の 列 で あ リ 対応す る 操作 を 実行し ます。 

せの オペレータ そのものが 組み合わせ である 場合 を 扱える ことが 便利で ある こと を 学び 
ます。 
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. その他の 名前の 値 は 現在の 環境に て その 名前に 対応す るォ ブジェク ト 
です。 

2 つ 目の ルール は + と * のよう な 記号 もまた グローバル （大域） 環境に 含まれ 
ており、 それらの" 値" として 一連の 機械語 命令に 関係付けられて いると 規定 
する ことにより、 3 番目の ルールの 特別な 場合で ある と 見做す ことができます。 
注意すべき 鍵と なる 点 は 式の 中の 記号の 意味の 決定に 環境が 果たす 役割です。 
Lisp のよう なィ ン タラ ク ティ ブな 言語で は （+  x 1) のよう な 式の 値に ついて 
記号 x  ( またはの + のよう な 記号に ついて さえ） 意味 を 与える 環境の 説明 無しに 
話す こと は 無意味です。 Chapter  3 にて 学びます 力ぶ、 評価が 行われる 文脈 を 提供 
す る 環境の 一般的 概念 は 我々 が プロ グ ラムの 実行 を 理解す る 上で 重要 な 役割 を 
果たします。 

上で 与えられた 評価 ルールが 定義 を 扱わない ことに も 注意して 下さい。 例 
えば （define  x  3) の 評価 は define を 2 つの 引数、 シンボル x の 値と 3 に 適 
用し ません。 define の 目的 はま さに x に対する 値の 関連 付け だからです。 （つ 
まり （define  x  3) は 合成 式ではありません。 ） 

そのような 一般的な 評価 ルールに 対する 例外 は 特殊 形式と 呼ばれます。 

define は 特殊 形式の 一例に 過ぎません。 すぐに 他の 例に 出会う ことにな り ま 

す。 特殊 形式 は 全て それ 自身の 評価 ルール を 持ちます。 色々 な 種類の 式 （それ 

ぞれが 関連す る 評価 ルール を 持つ） は プロ グラ ミ ング 言語の 構文 を 構成し ます。 

他の 多くの プロ グラ ミ ン グ 言語 と 比較して Lisp はとても 簡単な 構文 を 持ち ま 

す。 式の 評価 ルール は 簡単な 一般 ルールと 少しの 特殊 形式に て 説明 可能です。 
11 


11 事物 をより 統一的な 方法で 表記 可能な、 簡単で 便利な 代替 的 表面 構造で ある 特別な 
構文 形式 を 、 Peter  Landin の 作成 し た 語句です が、 syntactic  sugar  (シンタックス シュ 
ガー、 構文 糖） と 呼ぶ 場合が あります。 他言 語の ユーザと 比較して Lisp プログラマ は 一 
般に 構文 上の 問題に 気をつかいません。 （Pascal の マニュアル を 調査す ると どれ だけ 多く 
の ページが 構文の 記述に 割り当てられ ている のかに 気付く のと は 逆です。 ） この 構文の 軽 
視は Lisp の 柔軟性の 理由の 一部に な リ ます。 Lisp の 柔軟性 は 表面上の 構文の 変更 を簡 举. 
にします。 また 多くの" 便利な" 構文の 構築 を 見かける 理由に も 繋り ます。 それらの 構文 
は 言語 を あ ま リ 統一的で ない ものに し、 プロ グラムが 巨大で 複雑になる につれ 元の 価値 
よりも 多くの 問題 を 起こす ことになります。 AlanPeril 曰く、 "構文 糖 は セミコロンの 癌 
を 引き起こす" 
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1.1.4 複合 手続 

他の 強力な プロ グラ ミ ング 言語に 必ず 存在す る 要素 をい く つか Lisp でも 確 

ロノ、 しょし メ、。 

• 数値 と 算術 命令 は プリ ミ ティ ブな デー タ と 手続です。 

• 組み合わせの ネスト は 演算の 結合 手法 を 提供し ます。 

• 名前と 値 を 関連 付けす る 定義 は 抽象化の 限定され た 手法 を 与えます。 

ここで は procedure  definitions [手続の 定義) を 学びます。 より 強力な 抽象化の テ 
ク ニックで あり 組み立てられた 操作に 名前 を 与え、 1 つの 単位と して アクセス 
可能に します。 

"二乗の 値" を どのよう に 表現す るかから 始め まし よ う。 "二乗の 値 を 求め 
るた めに は その 値 を その 値 自身に かける" と言えるでしょう。 

dei ine    (  square  x)    (*  x  x ; ) 

これ を 以下の よう に 理解す る ことが 可能です。 

V define  (square        x)  (*  x  x) ； 

定義 二乗す る x を  かける x を  x で. 

^_  v_  C  sauare  と 名付けられた compowid  procedure (複合 手続） が 出て きました。 
この 手続 は ある 数値 を それ 自身に てかけ 算 する こと を 表して います。 かけられ 
る 数に は x という 名前が 付けられ ており 代名詞が 自然言語 にて 果たす のと 同 
じ 役割 を 果たします。 この 定義の 評価 はこの 複合 手続 を 作成し、 私達 は それに 
square という 名前 を 与えて います。 12 

一般的な 手続の 定義 形式 は 以下の 通 リ です。 

v.  dei  ine    ( (name)   (tormai  narameters) ) 
(body)) 

(name) は その 環境に おける 手続 定義に 関連 付けられる 記号です。13  (formal  parameters) 
は 手続の 中で 利用され る 名前で 手続の 関連す る 引数 を 参照し ます。 〈bocfy〉 は 

12 ここ では 次の 2 つ を 区別 できるようになる こと が 本当 に 重要 だと 言えます。 1 つ は 手 
続 を 名前 を 付けずに 作成す る こと、 もう 1 つ は 既に 作成され た 手続に 名前 を 付ける こと 
です。 どのように 行う かに ついては Section  1.3.2 にて 学びます。 

13 この 本で は 一般的な 式の 構文 を かぎ 括弧に て 閉じた ィ タリ ックの 記号 一例えば、 
く name) — を 用いて 実際に 式が 利用され る 時に 埋められるべき 式 中の "枠" を 示します。 

12 


形式 上の パラメータが、 適用され る 手続の 実際の 引数に 置換され る 時、 手続 適 

用の 値 を 返す 式です。 14  (name) と (formal  parameters) は 括弧 を 用いて グルー 
プ 化され、 実際の 手続 呼出しの ように 定義され ます。 
square を 定義した ので 使って みまし よ う。 

I.  square  21) 

441 

、 square    (+  2  5) ) 

49 

K square    ( square   3) ； 

81 

square を 構築 要素と して 他の 手続の 構築に 用いる こと も 可能です。 例えば、 
x2  +  y2 は 次の よ う に 表現で きます。 

、十 ( square  x)    ( square  y) ) 

2 つの 数値 を 引数と して 取り それらの 二乗の 和 を 求める sum-of-squares を定 

義 する こと も 簡単です。 

V def ine    (sum- of -squares  x  y ) 
(+   ( square  x)    ( square  y ) ) ) 
( sum- of -squares   3  4) 

25 

sum- of -squares を さらに 別の 手続 構築に 利用す る こと もで きます。 

( def  ine    (f  a) 

sum -of -squares    (+  a l ) (*  a  2) ; ) 
(f  5) 
136 

複合 手続 は プリ ミ ティ ブな 手続と 全く 同じように 利用 可能です。 実際に 上の 
sum-of -squares の 定義 を 見て も square が + や * のように インタプリタに 組 
込まれて いるの か、 複合 手続と して 定義され ている のか 見分けが つかない でし 
よ ラ。 

14 より 実際に は、 手続の ボディ は 連続す る 式です。 この場合 インタプリタ は 連続す る 各 
式 を 順に 評価し 最後の 式の 値 を 手続 適用 全体の 値と して 返します。 


13 


1.1.5 手続 適用の 置換 モデル 

オペレータの 名前が 合成 式 を 示す 組合せ を 評価す る 時、 ィ ンタ プリ タは 

Section  1.1. 3 で 説明した 組合せの オペレータが プリ ミ ティ ブ である 場合と ほぼ 
同じ 手順 を 追います。 インタプリタ は 合成の 各 要素 を 評価し、 （組合せの オペ 
レー タの 値で ある） 手続 を （組合せの オペ ラン ド である） 引数に 対して 適用し 
ます。 

プリ ミ ティ ブな 手続 を 引数に 対して 適用す る メカニズム はィ ンタプ リタに 
組 込まれて いる こと が 想像で きます。 複合 手続に 対 し て は 適用 プロセス は 以下 
のようにな リ ます。 

複合 手続 を 引数に 適用す るた めに、 手続の ボディ を、 各 形式 パラ 
メタ を 対応す る 引数に て 置換して から 評価し ます。 

過程 を 説明す る た め に 以下の コ ン ビネ ーシ ヨン を 評価して みましょう。 

(f  5) 

f は Section  1.1.4 にて 定義され た 手続です。 f の ボディ を 取得す る ことから 始め 
ます。 

sum -of -squares    (+  a 1) (*   a  2； ) 
次に 形式 パラメタの a を 引数 5 で 置き換えます。 
、 sum - of  - squares    (+  51) (*   5  2; ) 

従って 問題 は 2 つの オペランドと オペレータ sum-of-squares に 換算され ます。 
この 組み合わせの 評価 は 3 つの 部分 問題に 分かれます。 まず オペレータ を 評価 
して 適用す る 手続 を 得て、 オペ ラン ドを 評価して 引数 を 得る 必要が あり ます。 
さて （+  5 1) は 6 になり、 （*  5  2) は 10 にな り ますので sum-of -squares 手続 
を 6 と 10 に 適用し なければ な リ ません。 これらの 値 は sum-of-squares のボ 
ディの パラメタ x と y を 置き換え、 式 は 以下の ように 置換され ます。 

、+    ( square   6)    ( square 10) ) 

square の 定義 を 用いる と これ はさら に 以下の よう に 置換され ます。 

(+    (*  6  6)    (* 10 10)) 

乗算 を 置換す る ことで 以下に なリ ます。 

(+  36 100) 
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最終的に は 次のと おりです。 

136 

ここまで 説明した プロセス は 手続 適用の SMfcMttfion  modd (置換 モデル、 代入 
モデル） と 呼ばれます。 この 章に て 扱われた 手続の 過程に おいて は、 手続 適用 
の" 意味" を 決定す る モデルと して 捉える ことができます。 し 力、 し、 強調すべき 
2 つの 事が あり ます。 

• 置換の 目的 は 私達が 手続 適用に ついて 考える こと を 手助けす る ことで あ 
リ、 インタ プリ タが 実際に どのように 働く かの 説明 を 与える ことで は あ 
リ ません。 典型的な ィ ンタプ リタ は 形式 パラメータの ための 値 を 置き 換 
える ために 手続の テキスト を 操作す る ことで、 手続 適用 を 評価す る こと 
はしません。 実際に は" 置換" は 形式 パラメタに ローカルの 環境 を 用いる 
ことで 行われます。 この ことに ついてはよ リ 完全に Chapter  3 と Chapter 
4 にて インタ プリ タの 実装の 詳細に ついて 調査す る 時に 議論し ます。 

. この 本の コース 全体で は インタプリタが どのように 働く かにつ いて、 一 
連の 徐々 に 精巧な モデル を 紹介して 行きます。 最終的に は インタ プリ タ 
と コ ンパ イラの 完全な 実装 を Chapter  5 で 見せます。 置換 モデル は これら 
の モデルの 最初 一 評価 手続に ついて 正式な 考え 得る ための 始ま り に 過ぎ 
ません。 一般的に 科学と エンジニア リ ング についての 事象 をモ デリ ング 
する 場合、 単純化した 不完全な モデルから 始めます。 より 詳細な 調査 を 
行う につれ、 これらの 単純な モデル は 不適切に なり、 ょリ 正確な モデル 
にて 置き換えられます。 置換 モデル もまた 例外ではありません。 実際に 
Chapter  3 で 示します が 手続 を "mutable (変わり やすい） データ" と共に 
扱う 場合に 置換 モデル は 破綻し、 よ り 複雑な 手続 適用の モデルに より 置 
き 換えなければ ならなくなります。 15 

適用 順 対 正規 順 

Section  1.1.3 で 与えられた 評価の 記述に 従えば、 ィ ンタプ リタ は 最初に オペ 
レー タと オペランド を 評価し、 次に 結果の 手続 を 結果の 引数に 適用し ます。 評 


15 置換の アイデアの 簡明 性 にもかかわらず、 置換 処理の 厳密な 数学 上の 定義 を 与える 
こと は 驚く ほど 複雑になる ことが 知られて います。 問題 は 手続の 形式 パラメタの 名前と 
手続が 適用され る 式で 利用され ている （同じで ある 可能性の ある） 名前の 間の 混乱の 可能 
性から 生じます。 実際に 論理と プロ グラ ミ ング 意味論の 文献に おける 置換の 間違った 定 
義には 長い 歴史が あり ます。 Stoy  1977 の S 換に 関する 注意深い 議論 を 参照 下さい。 
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価の 仕方 はこれ だけで はあり ません。 代替と しての 評価 モデル は オペ ラン ドを 
それらの 値が 必要になる まで 評価し ません。 その代わりに 最初 は オペ ラン ドの 
式に それが プリ ミ ティ ブな オペレータ のみ 持つ まで パラメタで 置換し ます。 そ 

れ から 評価 を 実行し ます。 この 手法 を 用いた 場合、 （f  5) の 評価 は 展開の 流れ 
に 従って 進行し ます。 

、 sum - of  - squares    (+  51) (*   5  2) ) 

(.+        ( square    (,+  5 1) ；  ( square    (,  *  5  2) リ J 

(+        (*    (+  51) (+  5 1)) (* ひ 5  2)    (*  5  2))) 

簡約が 続きます。 

(+  (*  6  6)  (* 10 10)) 

(+  36  100) 

136 

今回 も 前回の 評価 モデルと 同じ 答に なりました。 しかし 経過が 異なります。 具 
体 的に は （+  5 1) と （*  5  2) が ここで は それぞれ 二回 づっ 実行され ます。 式 
(*  x  x) における x が それぞれ （+  5 1) と （*  5  2) に 置き換える ことで 換算 
されて いるのに 相当して いています。 

この 代替で ある "完全に 展開して から 簡約す る" 評価 方法 は 正規 順序 評価 
として 知られて います。 一方、 "引数 を 評価して から 適用" する 方法 は インタ プ 
リ タが 実際に 利用す る もので 適用 順序 評価と 呼ばれます。、 （この 本の 最初の 2 
つの 章の 手続 全て を 含めて） 置換 を 使用して モ デリ ング 可能、 かつ 正当な 値 を 
生む 手続 適用に おいて 正規 順序と 適用 順序の 評価 は 同じ 値 を 生む ことが 見て と 
れ るでしょう。 （正規 順序と 適用 順序の 評価が 同 じ 値 を 返さない "不当な" 値の 
例 は Exercise 1.5 を ご覧 下 さ t  、） 

Lisp は 適用 順序 評価 を 用いて います。 理由の 一部 は 上の （+  5 1) と （*  5 
2) で 示 された よう な 式の 複数回 評価 を 避け る こと で 付加 的な 効率 を 得る ため 
です。 そしてより 重要な 理由 は 正規 順序 評価 は 置換に よ り モデル 化 可能な 手続 
の 範囲 を 離れる 時の 取扱が とても 複雑な ためです。 一方で、 正規 順序 評価 はと 
て も 価値の ある ツールです。 その 意味の いく らかを Chapter  3 と Chapter  4 に 
て 調査し ます。 16 


16Chapter  3 では stream  processing (ストリーム 処理） を 紹介し ます。 これ は 一見し 
て "無限" の データ 構造 を 正規 順 評価の 制約 形式に 立脚して 取り扱う 手法です。 Section 
4.2 では Scheme インタプリタ を 変更し Scheme の 正規 順 異種 を 作成 します。 
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1.1.6 条件 式と 述語 

こ の 時点で 私達が 定義 可能な 種類の 手続の 表現力 はとても 限られて います。 
テスト を 作成し、 テス 卜の 結果に より 異なる 命令 を 実行す る 方法が 無いた めで 
す。 例えば 数値の 絶対値 を 演算す る 手続 を 定義で きません。 数値が 正、 負、 零 
であるか テスト を 行い ルールに 従い 異なる 場合に 対し 異なる 行動 を しなければ 
なり ません。 


この 考え は mse  armZysis (ケース 分析、 事例 分析） と 呼び Lisp に は そのような ケ 
ース 分析の ための 特殊 形式が 存在し ます。 cond("conditional" (条件文） を 表わ 
す） と 呼ばれ、 以下の ように 利用され ます。 

(, dei ine   ( abs  x) 

( cond   ((>  x  0)  x) 

((= x  0)  0) 

((<  x  0)  (-  x)))) 

条件 式の 一般的な 形式 は 以下の と お リ です。 

(cond   ((pi;  (ei)) 
((P2>  (e2>) 

((Pn)  (en))) 

記号 cond から 構成され、 続く 括弧で 括った 複数の 式の ペア 

((P) 〈ゆ 

clauses (ゥ D  — ズ、 節） と 呼ばれます。 各 ペアの 最初の 式 は predicate (述語） 一 値 
が 真 か 偽になる 式です。 17 

条件 式 は 次の よう に 評価され ます。 まず 述語 〈Pl〉 が 最初に 評価され ます。 
もし その 値が 偽で あれば 次に 〈お〉 が 評価され ます。 も し 〈p2〉 の 値 もまた 偽で 


17" 真 か 偽の どち かに 解釈され る" と は 次 を 意味し ます。 Scheme では 2 つの 区別され 
る 値が 存在し、 それら は #t と #f の 定数で 示されます。 インタプリタが 述語の 値 を チェ 
ック する 時、 #f を 偽と 訳します。 それ 以外の 任意の 値 は 全て 真 だと 扱われます。 （従って 
#t を 与える こと は 論理的に は 必要 ぁリ ません。 しかし その ほうが 便利です。 ） この 本で 
は true と false という 名前 を 用います。 それら は #t と #f という 値に それぞれ 関連 付 
けられます。 
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あるならば、 その 次 は 〈p3〉 が 評価され ます。 この 過程 は 値が 真と なる 述語が 見 

つかる まで 続きます。 その 場合 インタプリタ は 対応す る クローズの consequent 
expression (結果 式） 〈e〉 の 値が 条件 式の 値と して 返されます。 も し 真と なる か〉 
が 見つからない 場合に は ccmd の 値 は 未定義です。 

述語と いう 単語 は 真 か 偽 を 返す 手続に 利用 されます。 真 か 偽 と 評価され る 
式に も 用いられます。 絶対値の 手続 abs は プリ ミ ティブな 述語  >,  <, = を 利用し 
ます。 18 

これら は 2 つの 数値 を 引数と して 取り 最初の 数が 2 つ 目の 数に 対し 式の 順 
に、 より 大きい、 より 小さい、 等しい かどう か テスト を 行い 適宜に 真 か 偽 を 返 
します。 

絶対値の 手続 を 書く も う 1 つの 方法が 次です。 

(, dei ine   ( abs  x) 

(cond   ((<  x  0)    (-  x)) 
(else  x) ) ) 

これ は 日本語で" もし: r が 零 よ リ 小 さい 場合— a; を 返す。 そうでな ければ x を 
返す" と 表現で きます。 else は 特別な シンボルで cond の 最後の 節 （クローズ） 
の 〈p〉 の 場所に て 利用 可能です。 こうす る ことで cond がその 値と して 対応す 
る 〈e〉 の 値 を それ 以前の クローズ 全てが 回避され た 場合に 返す ことが 可能です。 
本当 の 所 は ここで 〈p〉 に 常に 値が 真 と なる 任意の 式 を 使用す る こと も 可能です。 
次 はさら にもう 1 つ 別の 絶対値 手続の 書き方です。 

(, dei  ine   ( abs  x) 
(if   (<  x  0) 
(- x) 
x)) 

これ は 特殊 形式の if という 制約の ある 条件の 型 を 使用して おり、 ケース 分析 
にて 正確に 2 つの ケースが 存在す る 場合に 用います。 if 式の 一般的な 形式 は以 
下の と お り です。 

(. if   (predicate)  (  consequent)  (alternative) ) 

if 式 を 評価す るた めに ィ ンタ プリ タは 式の （predicate) の 部分 を 評価す る こ と 
から 始めます。 も し (predicate) の 評価が 真 値になる 場合、 インタプリタ は 次 

18abs はまた" マイナス" 演算子-を 使用し ます。 （- x) のように 単一の オペランドに 
利用され た 時、 符号の 反転 を 示します。 
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に （consequent) を 評価し その 値 を 返します。 そうでなければ (alternative) を 
評価し その 値 を 返します。 19 

< や =,  >  のよう な プリ ミ ティ ブな 述語に 追加して 論理 複合 命令が 存在し、 
複合 述語 を 構築す る こと を 可能に します。 最も 良く 利用され る 3 つ は 以下の 物 
です。 

•  (and  (ei)   ...  〈e„〉） 

ィ ンタプ リタ は 式 〈e〉 を 左から 右へ 1 つず つ 評価し ます。 も し 〈e〉 のど 
れ かが 偽と 評価され た 場合 and 式の 値 は 偽と なリ、 残りのお〉 は 評価 さ 
れ ません。 も し 全ての 〈e〉 の 評価が 真と なれば and 式の 値 は 最後の 値に 
なり ます。 

•  (or  〈ei〉    ...  〈e„〉） 

インタプリタ は 式 〈e〉 を 1 つず つ 左から 右へ 評価し ます。 もし 〈e〉 のど 
れ かが 真と 評価 されれば その 値が or 式の 値と して 返され、 〈e〉 の 残り は 
評価され ません。 も し 全ての 〈e〉 が 偽と 評価され た 場合、 or の 値 は 偽と 
なり ます。 

•  (not  〈e〉） 

not 式の 値 は 式 〈e〉 が 偽と 評価され る 時 は 真で あり、 そうでなければ 偽 
となり ます。 

and と or が 特殊 形式で あり 手続で はない ことに 注意して 下さい。 部分 式が 全 
て 評価され る 必要が 無いた めです。 not は 通常の 手続です。 

これらが どのよう に 利用され るかの 例と して、 数値 i が 5  <  a;  < 10 の 値 域 
に 存在す るかと いう 条件 は 次のように 表現され ます。 

(and   (>  x  5)    (<  x 10) ) 

別の 例と して、 ある 数値が 別の 数値に 対し 等しい かよ リ 大きい か を 示す 述語 は 
以下の通りです。 

dei ine    (>=  x  y )    、or    (>  x  y )    (=  x  y ソ)) 

または 代替 法と して 

(define    (>=  x  y )    (not    (<  x  y ) ) ) 


19if と cond の 小さな 違い は cond の 各 クローズの 〈e〉 は 連続す る 式に なっても 良い こ 
とです。 もし 対応す る 〈p〉 が 真になる 場合、 〈り 内の 式 は 順に 評価され 連なりの 最後の 式 
の 値が cond の 値と して 返されます。 しかし if 式の 中で は (consequent) と (alternative) 
は 単一の 式で なければ な リ ません 
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Exercise  1.1: 以下の 一連の 式に ついて、 各 式に 対する インタ プリ 

タの 応答と しての 表示 結果 は 何 か？ 式の 列 は 下記に 表示され た 順 
で 評価され る ものと 考えよ。 
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(+  5  3  4) 
(- 9 1) 
(/  6  2) 

(+    (*   2  4)    (-  4  6)) 
(, def ine  a  3) 
(define  b   (+  a 1) ) 
(+  a  b    (*  a  b)) 
(= a  b) 

(if   (and   (>  b  a)    (<  b   (*  a  b))) 
b 
a) 

(cond   ((=  a  4)  6) 

((= b  4)    (+6  7  a)) 
(else  25) ) 

(+  2   (if    (>  b  a)   b  a) ) 

(*    ( cond    ((>   a  b)  a) 
((<   a  b)  b) 
(else  -1) ) 
(+  a 1)) 

Exercise  1.2: 以下の 式 を 接頭辞 形式に て 翻訳せ よ 

5  +  4  +  (2-(3-(6+|))) 
3(6  -  2)(2  -  7) ' 

Exercise  1.3:  3 つの 数値 を 引数と して 取り、 内 2 つの 大きな 数値 

の 二乗の 和 を 返す 手続 を 定義せ よ。 

Exercise  1.4: 我々 の 評価 モデルが オペレータが 複合 式で ある 組み 
合わせ を 可能に する こと を 観察せ よ。 この 観察 結果 を 用いて 次の 
手続の 挙動 を 説明せ よ： 
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(define    ( a-plus-abs-b  a  b) 
((if    (>  b  0)   +  -)   a  b)) 


Exercise  1.5:  Ben  Bitdiddle は 自分が 直面す る インタ プリ タが 適用 

順 評価 と 正規 順 評価の どちら を 用いる か 決定す る テスト を 開発し 
た。 まず 以下の 2 つの 手続 を 定義す る。 

(,def  ine   (,p;    (p) ) 
(. def ine    (test  x  v) 
(if    (=  x  0)    0  y)) 

次に 以下の 式 を 評価す る。 
(test   0   (p) ) 

Ben は 適用 順 評価 を 用いる インタプリタ では どのような 挙動 を 観 
察する だろう カリ Ben は 正規 順 評価 を 用いる インタプリタ では ど 
のよう な 挙動 を 観察す るだろう 力、？ あなたの 回答 を 説明せ よ。 （特殊 
形式の if はィ ンタ プリ タが 適用 順 評価で も 正規 順 評価で も 同じ 挙 
動 を 行う と 仮定せ よ： 述語 式が 最初に 評価され、 結果が consequent 
と alternative の どち らを 評価す るか 決定す る） 

1.1.7 例： ニュートン 法に よる 平方根 

ここ ま でで 説明 さ れた通 リ 、 手続 は 普通の 数学の 関数に とても 似て います。 
手続 は 1 つ 以上の パラメ タ により 決定され る 値 を 特定し ます。 しかし 数学の 関 
数と 計算機の 手続の 間に は 重要な 違いが 存在し ます。 手続 は 効果的で ある 必要 
が あり ます。 

その 一例と して、 平方根の 演算 問題に ついて 考えましょう。 square- root 関 
数 を 以下の よう に 定義で きます。 

yjx    =   the  v  such  that  y  >  0  and  v  =  x. 

これ は 完全に 正しい 数学の 関数です。 これ を 用いて ある 数値が 他の 数値の 平方 
根で あるか 分かり ますし、 平方根の 一般的な 事実 を 導出 可能です。 しかし 一方 
で この 定義 は 手続の 記述で はあり ません。 与えられた 数値から 実際 どのように 
して 平方根 を 求める のか、 これ は ほとんど 何も 教えて くれません。 この 定義 を 

疑似 Lisp にて 言い換えよう とも 問題の 何の 手助けに もな リ ません。 
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(define    ( sqrt  x ) 

(the  y   (and   (>=  y  0) 

(= ( square  y)   x) ) ) ) 

これ はた だ 問題 を 提起す る だけです。 

関数と 手続の 間の 対称性 は 事物の 属性の 説明と 行いの 説明との 間の 一般的 
区別 に 関する 反映です。 ま た は 時に は 宣言的 知識 と 手続 的 知識の 間の 区別 だ と 
参照で きる でしよう。 数学で は 通常 宣言的 （what  is) 記述 を 用い、 コンビ ユー 
タ サイエンス では 通常 手続 的 （how  to) 記述 を 用います。 20 

人 は どのよう にして 平方根 を 求める ことができる のでしょう 力、？ 最も 一般 
的な 方法 は 二 ユート ンの 漸次 接近 法 を 用いる 方法です。 ニュートン 法 は ある 数 
値 0； の 平方根の 推定 値と して y を 持つ 場合に、 よ り 良い 推定 値 （実際の 平方根 
により 近い 値） を 求める ために y と :r/y の 平均 を 取る という 簡単な 操作 を 実行 
します。 21 例と して、 2 の 平方根 は 以下の ようにして 求められます。 推定 値の 
初期値 を 1 とします： 

推定 値 商  平均 

1  (2/1) =2  ((2  + 1)/2) = 1.5 

1.5  (2/1.5) = 1 . 3333  ((1.3333  + 1.5)/2) = 1.4167 

1.4167        (2/1.4167) = 1.4118        ((1.4167  + 1.4118)/2) = 1.4142 

1.4142         …  ... 

この 過程 を 繰 リ 返す ことによ リ 平方根の よ リ 良い 近似値 を 得られます。 

では 手続の 表現に てこの 過程 を 形式 化して みま しょう。 radicand (被 開 法 数: 
根号の 中身。 平方根 を 求める 値） と guess (推定 値） を 用います。 もし 推定 値の 品 

20 宣言的、 手続 的 記述 は 数学と コ ン ピュー タ サイエンス のよう に 実際に 深く 関わって 
います。 例えば プログラムの 生成した 答が" 正しい" という こと は プログラム について 宣 
言 的な 文 を 作成す る こ とです。 プログラムが 正しい こと を 証明す るた めの 立証 技術 を 目 
的と した 非常に 多くの 研究が 存在し ます。 この 問題の 技術的 難度の 多く は （プログラムが 
構築され る） 手続 的 文と （事象 を 推論す るのに 用いられる） 宣言的 文との 間の 移行に 関連 
します。 関連 領域に おいて、 プログラミング 言語の 設計に おける 現在の 重要な 領域 は 超 
高水準 言語と 呼ばれる 物の 調査です。 それ は 実際に プログラム を 宣言的 文の 用語に て 作 
成します。 その 意図 はィ ンタプ リタ を 十分に 洗練す る ことで プログラマより 与えられた 
"what  is" の 知識よ リ "how  to" の 知識 を 自動的に 生成 可能と します。 これ は 一般的に は 
可能ではありません が、 成果が 達成され た 重要な 領域が 存在し ます。 この 考え方に つい 
て は Chapter  4 にて 再度 触れる ことに 致します。 

21 こ の 平方根 アル ゴ リ ズムは 実際に は 二 ユート ン 法の 特別な ケースです。 ニュートン 
法 は 方程式の 根 を 求める 一般的な 技法です。 平方根 アル ゴ リ ズム 自体 はァ レキ サン ドリ 
ァの Heron により A.D.1 世紀に 開発され ました。 一般的な ニュートン 法 を Lisp の 手続に 
より どのように 表わす かに ついては Section  1.3.4 にて 学びます。 
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質が 十分で あれば 終了し ます。 そうでなければ 処理 をより 良い 推定 値に て 繰り 
返さなければ なり ません。 この 基本的 戦略 を 手続と して 以下の ように 記述し ま 
した。 

^define    ( sqrt-iter  guess  x) 
if    (  good- enough?   guess  x ) 
guess 

( sqrt-iter     improve   guess  x)   x) ) ) 

推定 値 は 旧 推定 値と 商の 平均 を 取る ことで 改善され ます。 

v.  def ine    ( lmDrove  guess  x) 

( average   guess    (/  x  guess))) 

average の 定義 は 以下です。 

( def  ine    ( average  x  y ) 

(/    (+  x  y)  2)) 

"十分に 良い" の 定義 を 決めねば なりません。 以下に 説明し ますが、 これ は 本当 
は あまり 良い テス ト では あり ません。 （Exercise 1.7 を ご覧 下さい） 考え方 は 回 
答 を 十分に 近い 値に する ために、 その 二乗と 被 開 法 数の 差 が 事前 に 決定した 許 
容 誤差 （ここで は 0.001) より 小さくな るまで 改善し ます。 22 

(, def  ine    (good-enough  r   guess  x) 

(<    ( abs    (-    ( square  guess)   x) )  0.001)) 

最後に どのよう に 始める かが 必要です。 例えば 任意の 数値の 平方根の 推定 値 を 
常に 1 とする こと も 可能です。 23 


22 通常 は 述語に は クエスチョン マークで 終わる 名前 を 与えます。 そうする ことで それ 
が 述語 だと 理解で きる ようにです。 これ は 単に スタイル 上の 慣例です。 インタプリタの 
受け取り 方に 関する 限り、 クエスチョン マーク は 通常の 文字で しか あり ません。 

23 推定 値の 初期値 を 1 ではなく 1.0 と 表現して いる ことに 注意して 下さい。 これ は 多 
く の Lisp の 実装で は 何の 違い も あり ません。 しかし MIT  Scheme は 整数と 小数の 値 を 
厳格に 区別し ます。 2 つの 整数 を 割る と 小数で はなく 分数 を 返します。 例と して 10 を 6 
で 割る と 5/3 を 返します。 しかし 10.0 を 6.0 で 割れば 1.6666666666666667 を 返す ので 
す。 （分数の 演算の 実装 法に ついては Section  2丄1 で 学びます。 ） もし 推定 値の 初期値 を 
square-root プログラム において 1 にして 開始した 場合、 a; も 実際に 整数で ある 場合に は 
全ての 続く  square-root の 演算に より 生成され る 値 は 小数で はなく 分数になります。 分 
数と 小数 を 混ぜた 演算 は 小数 を 返します。 従って 推定 値の 初期値 を 1.0 にす る ことで 全 
ての 続く 値 を 小数に する こと が 可能です。 
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(define    ( sqrt  x ) 

( sqrt-iter 1.0  x) ) 

こ の 定義 を インタプリタ に 入力 すれば sqrt を 他の 手続の よ う に 利用 可能です。 

(sqrt  9) 
3.00009155413138 

(sqrt    (+ 100   37) ) 
11.704699917758145 

(sqrt    (+   (sqrt   2)    (sqrt  3))) 
1 . 7739279023207892 

K square    ( sqrt   1000) ) 
1000.000369924366 

sqrt プロ グラム は ま た 私達が こ こ ま でで 紹介 し た 単純な 手続き 型 言語が C や 
Pascal で 記述 可能 などん な 純粋 数値 演算 プログラム を 書く のに も 十分で ある こ 
と を 示して います。 これに は 驚かれる かもしれ ません。 私達 はま だコン ピュー 
タに何 か を 繰り返し 繰り返し 行わせる どのような 繰り返し （ループ） 要素 もこ 
の 言語に は 入れて いないた めです。 一方で Sqrt-iter は どのよう に 繰り返しが 
特別な 記法 を 全く 使わずに 通常の 手続 呼 出 能力の みで 成し遂げられ るか を 実演 
して 見せて います。 24 

Exercise  1.6:  Alyssa  P.  Hacker は なぜ if が 特殊 形式と して 提供 さ 

れる 必要が あるの か 理解で きなかった。 "なぜ cond を 用いた 通常 
手続と して 定義で きないの だろう？" と 彼女 は 訝った。 Alyssa の 友 
達で ある EvaLu  Ator はこれ は 実際にで きる と 主張し、 if の新バ 
一 ジョン を 定義した。 

(define に new 一 ii   predicate   tnen 一 clause   e 上 se 一 c 上 ause ノ 
( cond   (.predicate   then-clause  ) 
(else   else-clause ) ) ) 

Eva は Alyssa に対して プログラムの デモ を 行った。 

24 反復 実装に おける 手続 呼 出 上の 効率の 問題 を 気にされ ている 読者の 方 は Section 
1.2.1 の "末尾 再帰" 上の 備考に 注目 して 下さい 


24 


(new - if    (=  2  3)    0  5) 

5 

(new - if    (= 1 1) 0  5) 

0 

喜びながら Alyssa は new-if を 用いて square- root プログラム を 書 
き 直した。 

def ine    (  sqrt-iter  guess  x) 
(new - if    ( good- enough?   guess  x) 
guess 

( sqrt-iter    ( improve   guess  x)   x ) ) ) 

Alyssa が 平方根の 計算に こ れの 使用 を 試 し た 時に 何が 起こる だ ろ 
うか？ 

Exercise  1.7: 平方根の 演算で 使用され た good-enough? テス トは 

とても 小さい 数値の 平方根 を 見つける 場合に は あまり 効果的で は 
ないだろう。 また 実際の コンピュータで は 数値 演算 命令 は ほ とん 
ど 常に 精度に 制限の ある 状態で 実行され る。 これが 我々 の テス ト 
を とても 大きな 数値に 対して 不適切に する。 ここまでの 記述に つ 
いて テス トが どのように 小さな 値と 大きな 値に て 失敗す るか 例 を 
用いて 説明せ よ。 good-enough? 実装の 代替 戦略 は guess が ある 試 
行から 次に 向け どのよう に 変化す るか 監視し、 変化が 推定 値の 割 
合に おいて とても 小さい 時に 止める ことで ある。 このような 終了 
テスト を 用いる square- root を 設計せ よ。 これ は 小さな、 及び、 大 
きな 数値に 対してより 良く 働く だろう か？ 

Exercise  1.8: 立方根に 対する ニュー ト ン法は y が re の 立方根で あ 
る 場合に おいて 以下の 値に より 良く 近似され る。 

x/y2  + 2y 
3  ' 

この 式 を 用いて square- root に 類似した cube- root を 実装せ よ。 
(Section  1.3.4 にて これらの square- root と cube- root の 抽象化と し 
ての 汎用な ニュートン 法の 実装 方法 を 学習し ます。 ） 
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sqrt-iter 

i  \ 

good-enough  improve 

i     \  \ 

square        abs  average 
Figure  1.2:  sqrt プログラムの 手続 分解 


1.1.8 ブラック ボックス 抽象化と しての 手続 

sqrt は 私達に とり 相互に 定義され た 手続の 集合に より 定義され た プロセス 
の 例でした。 sqrt-iter の 定義が recMrswe (再帰 的） である こ と に 注意して 下さ 
い。 再帰と は 手続が それ 自身の 語に より 定義され ている ことです。 手続 を それ 
自体の 名前 を 用いて 定義す る 考え方 は 不安になる かも しれません。 そのような 
"循環 的" な 定義が どのよう にして つじつま を 合わせる のか 全く 不明に 見える 
かも しれません。 コンピュータ によ リ 実行す るた めに 良く 定義され た 手続に は 
指定が 足りな く 見える かもしれ ません。 これにつ いて は Section 1 . 2 にて より 注 
意 深 く 触れる ことにします。 最初 はしかし sqrt の 例に て 説明され たいくつ か 
別の 重要な 点に ついて 考えましょう。 

平方根 を 演算す る 問題が 自然にい くつ かの 部分的な 問題へ 分割 される こと 
に 注意して 下さい。 推定 値が 十分に 良い かどの ように 判断す るか、 推定 値 を ど 
のように 改善す るか、 等です。 これらの タスクの 1 つ 1 つ は 分離され た 手続に 
よ り 達成され ます。 sqrt プログラム 全体 は （Figure 1.2 にて 表される） 手続の 群 
れに 見て とる こと が 可能です。 この 図が 問題 を 部分 問題へ と 分解す る こと を 映 
し 出して います。 

この 分解 戦略の 重要性 は プロ グラム を 部分 一 最初の 10 行、 次の 10 行、 そ 
の 他へ と 分割す るよう な 単純な ものではありません。 そうで はなく、 各 手続 
が 他の 手続の 定義に て モジュールと して 利用 可能な 特定の タスク を 担う こ と 
が 不可欠です。 例えば good- enough? 手続 を  square の 語 t 用い 一し 疋我 I "る 時、 
square 手続 を" ブラックボックス" として 考える ことが 可能です。 その 時、 そ 
の 手続が どのように 結果 を 計算す るの か 気にして いません。 それが 二乗 を 計算 
するとい う 事実の みです。 二乗が どのように 計算され るかと いう 詳細 は 隠し、 
後の 時点で 考慮す る ことが 可能です。 実際に good-enough? 手続に ついて 考え 
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る 限り、 square は 手続で は 無く 手続の 抽象に 過ぎない のです。 手続の 抽象化と 
呼ばれる ものです。 この 抽象化の レベルで は 二乗 を 計算 するどん な 手続 も 等し 
く 相応しい のです。 

従って 返リ 値の み を 考える ため、 以下の 2 つの 二乗す る 手続 は 区別 不可能 
となり ます。 それぞれが 数値の 引数 を 取り その 数値の 二乗 を 値と して 生成し ま 
■iro  25 

(, del ine    (  square  x)    (*  x  x ; ) 

( del ine    ( square  x)    ( exp   ( double    (log  x) ) ) ) 
(define    (double  x)    (+  x  x) ) 

従って 手続 定義 は 詳細 を 隠す ことができなければ なり ません。 手続の ユーザ は 
その 手続 を 彼等 自身で 書いた と は 限り ません。 しかし 他の プログラマから ブラ 
ック ボックス として 取得した かも しれません。 ユーザ は その 手続が どのように 
実装され ている のか それ を 使用す るた めに は 知る 必要が 無い のです。 

口一 カル 名 

手続の ユーザに とって は 問題と ならない 手続 実装の 詳細の 1 つに は 手続の 
形式 パラメタ に対する 実装 者が 選択した 名前が あり ます。 従って 以下の 異なる 
手続 は 区別 不可能で なければ な り ません。 

dei ine  (  square  x)  (*  x  x ; ) 
( dei ine    ( square  y )    (*  y  y ) ) 

こ の 指針 一手 続の 意味 は その 作者が 使用 した パラメタ の 名前から 独立す ベ き 
である 一は 表面上で は 自明な ことに 思えます がそ こから 導き ださえ る 結論 は 
重要です。 最も 単純な 結論 は 手続の パラメタ 名 は その 手続の ボディに 対して 口 

一 力 ルで あるべき という ものです 。例えば、 まず square- root 手続の 中 の good- 
enough?  の 定義に おいて は square を 使用 しました。 

(, dei  ine    (gooa-enough  r   guess  x) 
(<   ( abs    (-    ( square   guess)   x ) ) 
0.001)) 


25 これら 手続の どちらが よ り 効率的な 実装で あるか は 全く 明確で はあり ません。 これ 
は 実行 環境 依存です。 "明白な" 実装が 効率的で はない 機械が 存在し ます。 広範な 対数と 
逆 対数の テーブル を とても 効率の 良い 方法で 持つ 機械に ついて 考えて みて 下さい 
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good-enough? の 作者の 意図す る 所 は 第一 引数の 二乗が 第二 引数に て 与えられ 
た 許容 差の 範囲で あるか を 決定す る ことです。 good-enough? の 作者が guess 
を 第一 引数の 参照に 用い x を 第二 引数に 用いた ことが 見て とれます。 square の 
引数 は guess です。 も し square の 作者が x を （上で 見た よう に） 使用した 場合 
good- enough?  CD  x は square の x と は 異ならなければ ならない ことが わかり ま 
す。 手続 square の 実行 は good-enough? の x の 値に 影響 を 与えて はいけ ませ 
ん。 なぜなら その x の 値 は square が 演算 を 終えた 後に も good-enough? にて 
必要 だからです。 

も し パラメタが それらが 関連す る 手続の ボディ に対して ローカル でない 場 
合、 square の パラメ タ x は good-enough? の パラメ タ x と 混同され る 可能性が 
あります。 そして good-enough? の 挙動 は どの バー ジ ョ ンの square を 利用す 
るかに 依存す るでしょう。 従って square は 私達が 望んだ ブラックボックスで 
はなくなる でしよう。 

手続の 形式 パラメタ は 手続 定義に おいて とても 特別な 役割 を 持ちます。 形 
式 パラメタに は どんな 名前 を 用いても かまわな いのです。 そのよう な 名前 
は &ownd  TOriaWe  (束縛 変数） と 呼ばれます。 そして 手続 定義 は その 形式 パラメ 
タ を；) mdS (束縛す る） と 呼びます。 もし 束縛 変数が 静的に 定義 中に おいて リネ 
ーム されても 手続 定義の 意味 は 変わりません。 26 もし 変数が 束縛され ていな け 
れば それ は/ ree (自由） だと 呼びます。 束縛が 名前 を 定義す る 式の 集合 は その 名 
前の SCOpe (スコープ） と 呼ばれます。 手続 定義に おいて は その 手続の 形式 パラ 
メタと して 宣言され た 束縛 変数 は その 手続の ボディ を その スコープ とします。 

上記の good-enough? の 定義に おいて、 guess と x は 束縛 変数です が、 く, 
-, abs,  square は 自由 変数です。 私達が 選んだ guess と x の 名前が、 く，  -,  abs, 
square と 異な リ 区別 可能で ある 限リ、 good-enough? の 意味 は それらの 名前 か 
ら 独立せ ねばな リ ません。 （も し guess を abs に リ ネームした 場合、 変数 abs 
を captur—t 占領） する ことで 自由 変数 を 束縛 変数に 変化させる ので バグ を 持 
ち 込む ことになるでしょう。 ） しかしながら good-enough? の 意味 は その 自由 
変数の 名前から は 独立して いません。 記号 abs は （この 定義の 外部の） 数値の 
絶対値 を 求める 手続に 名付けられ ている という 事実に 当然、 依存し ます。 もし 
cos を abs に その 定義に おいて 置き換えれば good-enough? は 異なる 関数 を 計 
算 する ことでしょう。 


26 静的な リ ネームの コンセプト は 実際に は 微妙で 正式に 定義す るの は 難しい ことです。 
有名 な 論理学 者 達 も 恥 し い 間違い を ここで 犯して きました 


28 


内部 定義と プロック 耩造 

私達 は 今の所、 一種 類の 名前の 分離に ついて 学びました。 手続の 形式 パラ 

メタ は 手続の ボディ に対して ローカルです。 square- root プログラム は 我々 が 望 
むだろう 名前 使用 を コントロール する 別な 方法 を 示します。 

dei ine    (  sqrt  x  ； 
( sqrt-iter 1.0  x; ) 
( dei ine    ( sqrt-iter  guess  x) 
if    (  good- enough?   guess  x ) 
guess 

( sqrt-iter  improve  guess 
( dei ine    (good- enough?   guess  x) 

(<  ( abs  (-  ( square  guess )  x) ) 
( dei ine    ( improve  guess  x) 

( average   guess    (/  x  guess))) 

この プログラムの 問題 は sqrt の ユーザに とって 重要な 手続 は sqrt のみで ある 
ことです。 他の 手続 (sqrt  -  iter,  good-enough?,  improve) は 彼らに とって 余計 
な ものです。 ユーザ は 他に good-enough? という 名の 手続 を、 square- root プロ 
グラムと 一緒に 使用す る 他の プログラムの 一部と して 定義す る ことができ ませ 
ん。 なぜなら sqrt がそれ を 必要と する からです。 この 問題 は 多くの 異なる プロ 
グラマに より 巨大 システム を 構築す る 場合に 特に 深刻な 問題と なり ます。 例え 
ば 数値 演算の 巨大 ライ ブラ リ の 構築に おいて、 多くの 数値 演算 関数 は 一連の 近 
似 値 演算と して 計算され るた め 補助 的な 手続と して good- enough? と improve 
と 名付けられた 手続 を 持つ かもしれ ません。 私達 は 部分 手続 を 局所 化し sqrt 
の 中に 隠したい と 思う でしよう。 そう すれば sqrt が 他の 一連の 近似値 演算 と 
共存し、 それぞれが 自身の プライべ 一卜な good- enough? 手続 を 持つ ことが で 
きます。 これ を 可能に する ために 手続 は その 手続に 対して 局所 的な 内部 定義 を 
持つ ことが 可能です。 例えば sqaure- root プログラム は 以下の ように 書き換え 
る ことが 可能です。 

dei  ine    (  sqrt  x  ； 

dei  ine     good- enough?   guess  x) 
(<   (abs    (-    (square   guess )   x) )  0.001)) 
( dei  ine     improve   guess  x)    ( average   guess    (/  x  guess))) 
( dei ine    (sqrt-iter  guess  x) 
(if    (good- enough?   guess  x) 


x)  x))) 
0.001)) 
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guess 

( sqrt-iter    ( improve   guess  x)   x) ) ) 
( sqrt-iter 1.0  x) ) 

このような 定義の 入れ子 は Woe た Wrwc れ re (ブロック 構造） と 呼ばれ、 最も 単純 
な 名前 パッケージ 問題解決に 基本的に 正しい 解決 方法です。 しかしより 良い ァ 
イデアが ここに 隠れて います。 補助 的な 手続 を 内在 化させる ことに 加えて それ 
らを 簡潔 化する ことができます。 x は sqrt に 束縛され ている ため、 sqrt の 内 
咅 P に疋滅 された good-enough?,  improve,  sqrt-iter は x の^ n コ 一 ノ内に 
あり ます。 従って x を 明示的に これらの 手続 それぞれに 渡す 必要 はあり ません。 
その代わり に x を 以下で 示す ように 内部の 定義に て 自由 変数に する ことができ 
ます。 そして x は 包括す る 手続 sqrt が 呼ばれた 時に その 値 を 得ます。 このよ 
うな 規律 を lexical  scoping [レ キシ： テレスコープ) と 呼びます。 27 

dei ine    (  sqrt  x  ； 

dei ine     good- enough?   guess  ) 
(<    ( abs    (-    (square   guess )   x) )  0.001)) 
( dei  ine     improve   guess  ) 

( average   guess    (/  x  guess))) 
( dei ine    (sqrt-iter  guess ) 
( if    (good- enough?   guess ) 
guess 

( sqrt-iter    ( improve  guess)))) 
( sqrt-iter  1.0)) 

ブロック 構造 は 巨大な プログラム を 取扱の 簡単な 部品に 分割す るた めに 広範囲 

にて 利用され ます。 28 ブロック 構造の 考え方 は プログラミング 言語 Algol 60 に 
起源 を 持ちます。 多くの 先進 的な プログラミング 言語に 存在し、 巨大 プロ ダラ 
ム 構築の 体系化 を 手助けす る 重要な ツールです。 


27 レキシ カルス コープ は 手続 内の 自由 変数が 包括す る 手続 定義 に より 作ら れた 束縛 を 
参照す るた め 用いられ るよう 指示し ます。 それ はつ まり、 手続が 定義され た 環境の 中で 
それらが 探される こと を 意味し ます。 これが どのように 働く のか、 その 詳細に ついては 
第 3 章に て 環境と インタ プリ タの 詳細な 挙動に ついて 学ぶ 時に 理解し ます。 

28 組 込 定義 は 手続 本体の 最初に 来なければ なり ません。 相互依存の 定義と 使用 を 行う 
プログラムの 実行 結果に ついては このような 管理 も 責任 を 持つ ことができません 
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1.2 手続と それが 生成す る プロセス 

私達 は プログラミングの 要素に ついて 考えて きました。 プリ ミ ティブな 算 
術 演算子 を 用い これらの 演算子 を 組み合わせ、 その 合成 演算子 を 複合 手続と し 
て 定義す る ことで 抽象化 を 行って きました。 しかし それら は 私達が プロ グ ラ ム 
を どのように 書く か 知 つてい ると 言える ために は 十分ではありません。 私達の 
状況 は チェスに おいて 各 駒が どのように 動く のか ルール を 覚えた が 典型的な 序 
盤 や 戦術、 戦略に ついて 何も 知らない 人 に似てい ます。 チヱ スの 初心者 棋士の 
よ う に、 私達 は まだ こ の 領域での 慣習 と し ての 一般的 パ ターン を 知りません。 
私達 は どの 手が 打つ 価値が あるの か （どの 手続が 定義す る 価値が あるの か） の 
知識 を 欠いて います。 打った 手の （手続 実行の） 結果 を 予想す る 経験 を 欠いて い 
ます 

熟慮 下の 行動の 結果 を 思い描 く 能力 は エキス パー ト プロ ダラ マになる ため 
に 重大です。 それ は どんな 統合 的、 かつ 創造的な 活動に ついても 同じです。 熟 
練の 写真家になる に は 例えば、 景色の 見方 を 学び、 各 可能な 露出と 現像 条件の 
組み合わせに おいて 各 領域が どれ だ け 暗 く 写真に 表れる か を 知らな ければ な リ 
ません。 そうして 初めて フレームの 計画、 光量、 露出、 現像 を 逆 向きに 推測し 
て 望んだ 効果 を 得る ことが 可能と な り ます。 プロ グラ ミ ング において もまた 同 
じです。 プロセスが 取リ 得る 行動が どのような 進行 を 経る のか 計画し、 プ ログ 
ラム を 用いて プロセス を コントロール します。 

エキスパートになる ために は、 数多くの 種類の 手続に より 生成され る プロ 
セスを 心に 描 けられる よ う にならなければ な リ ません。 そのよう な スキル を 開 
発した 後に 初めて 望んだ 挙動 を 示す プログラム を 信頼で きる 形で 構築す る 方法 
を 学ぶ ことが 可能に なリ ます。 

手続 は 計算 過程の toed  ew ^お on (局所 展開） のた めの パターンです。 プロ セ 
スの各 ステージが 以前の ステージの 上に どのよう に 構築 される か を 指定し ます。 
ここで 手続に ょリ 局所 展開が 指示され た プロセスの 全体 的な、 まナ: は global か 
域 的） な 挙動に ついて 説明 を 行えれば と 思います。 しかし これ は 一般的に はと 
て も 難しい ので、 最低で も いくつかの プロセス 展開の 典型的 パターン について 
説明す る こと を 試して みましょう。 

この 節で は 簡単な 手続に より 生成され た プロセスの ための いくつかの 共通 
な "形" について 検討して みます。 また これらの プロセスが 時間と 記憶 域の 重 
要な 計算 資源 を どの 程度 消費す るかに ついても 調査して みます。 ここ で 考慮す 
る 手続 はとても 簡単な ものです。 それらの 役割 は 写真 撮影に おける テス トパタ 
ーン によ リ 演 じ られる 様な も のです。 非常に 単純化した 原型 的な パターン であ 
リ、 それら 自身の 目的に 沿った 現実的な 例で はあり ません。 
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(factorial 6)     >  — 

(*  6  (factorial 5))  -"" \^ 

(*  6  (*  5  (factorial  4))) 

(*  6  (*  5  (*  4  (factorial  3)))) 

(*  6  (*  5  (*  4  (*  3  (factorial  2)))))  ヽ 

(*  6  (*  5  (*  4  (*  3  (*  2  (factorial  1)))))) 

(*  6  (*  5  (*  4  (*  3  (*  2 1)))))  ^ 

(*  6  (*  5  (*  4  (*  3  2)))) 

(*  6  (*  5  (*  4  6))) 

(*  6  (*  5  24)) 

(*  6 120) 

720  <  

Fieure  1.3:  6! を 求める ための 線形 再帰 プロセス 


1.2.1 線形 再帰と 反復 

階乗 を 求める 関数 を 考える ことから 始めましょう。 定義 を 以下に 示します。 

n!  =  n.(n— l).(n  — 2)...3.2.1. 

階乗 を 計算す る 方法 は 数多く あ ります。 1 つの 方法 は 任意の 正の 整数 n におい 
て、 n! は n と （n  —  1)! の 積に 等しい という 観察 結果 を 利用し ます。 

n!  =  n  .  [(n  — 1) . (n  —  2) ...  3  .  2  . 1] = n  .  (n  — 1)!. 

従って （n—1)! を 演算し、 n を 掛ける ことで n! を 求める ことが 可能です。 もし 
1! が 1 に 等しい という 規約 を 追加 すれば この 観察 結果 は 直接 手続に 翻訳で き 
ます。 

def ine    (factorial n; 
(if    (=  n 1) 

(*  n   (factorial (- n 1))))) 

Section  1.1. 5 の 置換 モデル を 用いて この 手続が 6! の 計算 を 実行す る 様子 を 
Figure 1.3 に 示す ように 観察で きます。 
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では 階乗の 演算に ついて 異なる 視点 を 得て みましょう。 n! を 計算す る ルー 
ルを 最初に 1 を 2 で 掛け、 その 結果 を 3 に 掛け、 次に 4 に 掛け ri に迪リ 着く ま 
で繰リ 返す と 説明す る こと も 可能でした。 より 形式的に は、 積の 実行と、 1 か 
ら n まで カウン ト する カウンタと を 一緒に 保持し ます。 カウンタと 積 は 同時に 
ある ステップから 次へ と ルールに 従い 変更され ると 言う ことで この 演算 を 説明 
できます。 

product         counter   *  product 
counter         counter  + 1 

そして n! と は カウンタが を 越えた 時点での 積の 値で あると 規定し ます。 
再び、 今までの 階乗 を 求める 手続の 説明 を 次のように 書き換えられます。 29 

dei ine    (factorial n) 
( f act-iter 1 1 n) ) 
( dei ine    (f act-iter  product   counter  max- count ) 
v.  if    (>   counter  max-count ) 
product 

(f act-iter    (*   counter  product ) 
(+   counter 1) 
max-count ) ) ) 

前回と 同じく、 置換 モデル を 用いて 6! の 演算 を Figure 1.4 と して 示します。 

2 つの プロセス を 比べて みて 下さい。 1 つの 見方と して は、 これら は ほ とん 
ど 同じに 見えます。 両者 は 同じ 数学の 関数 を 同じ 領域で 計算し、 それぞれが n! 
を 求める のに n に 比例した ステップ 数 を 必要と します。 実際に 両者の プロセス 
が 全く 同じ 一連の 乗算 を 実行し、 全く 同じ 一連の 部分的な 積 を 得ます。 一方で 


29 実際の プログラム では 恐らく 前の節で 紹介した ブロック 構造 を f  act-iter の 定義 を 
隠す ために 用いる でしよう。 

t, def ine   (factorial n) 

(define   ( iter  product   counter ) 
( if    (>  counter  n) 
product 

C  iter   (*   counter  product ) 
C+   counter 1) ) ) ) 

(iter 1 1)) 

ここで それ を 避けた の は 一度に 考えなければ ならな こと を 最小に する ためです。 
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(factorial 

6) 

> —— ^ 

(fact - iter 

1 1 

6) 

(fact - iter 

1 2 

6) 

(fact - iter 

2  3 

6) 

(fact - iter 

6  4 

6) 

(f act-iter 

24 

5  6) 

(fact - iter 

120 

6  6) 

(f act-iter 

720 

7  6) 

720  <  

ン 

Figure  1.4:  6! を 求める ための 線形 反復 プロセス 


2 つの プロセスの "形" を 考えた 時、 全く 異なった 展開 を している ことに 気がつ 
きます。 

最初の プロセス について 考えます。 Figure 1.3 の 矢印で 示される ように、 置 
換 モデルが 展開の 後、 収縮す る 状態 を 明らかにし ています。 展開 は (fe/erred 
operaiiom (遅延 演算） の 連鎖 （この ケースで は 乗算の 連なり） を 構築す る プロ セ 
ス として 起こ リ ます。 収縮 は 演算が 実際に 実行され る ことにより 起こ リ ます。 
遅延 演算の 連鎖と して 示される この タイプの プロセス は recMrsiw  process (再帰 
プロセス） と 呼ばれます。 この プロセスの 実行に は インタプリタが 後の 実行た 
めに 操作の 過程 を 記録す る 必要が あり ます。 n! の 演算で は 遅延 乗算の 連鎖の 
長さ、 そして それに 従う 追跡の 必要な 情報の 量が、 n に 従い 線形に （n に 比例 
して） ス テツ プ 数と 同様に 増加し ます。 このような プロセス はお near  recursive 
process (線形 再帰 プロセス） と 呼ばれます。 

対照的に、 2 つ 目の プロセス は 展開 も 収縮 もしません。 各 ステップ において 
追跡が 必要な 物 は どの n に対して も 変数 product,  counter,  max- count の 現在 
値です。 これ をな eratoe  process (反復 プロセス） と 呼びます。 一般的に、 反復 プ 
口 セスは 限られた 数の state  rariaWes (状態 変数） により 状態 力 《、 集約され る こと 
が 可能な 物です。 状態 変数が プロセスが 状態 毎に どのよう に 更新され るかと い 
う 固定 ルールと プロセスが 停止す る 条件 を 指定す る （任意の） 終了 試験と 一緒 
に 用います。 W の 演算で は ri に 従い 必要な ステップ 数が 線形に 増加し ます。 こ 
のよう な プロセス は Knear  iterative  process (線形 反復 プロセス） と 呼ばれます。 

2 つの プロセスの 対称性 は 他の 見方 もで きます。 反復の 場合、 プログラムの 
変数 は 任意の ポイント において プロセスの 状態に ついて 完全な 描写 を 提供し ま 
す。 もし ステップの 間で 計算 を 停止した 場合に、 計算の 再開 を 行う のに 必要な 
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全て は インタプリタに 対し 3 つの プログラム 変数の 値 を 提供す る ことです。 再 
帰 プロセス ではそう はいきません。 この場合、 いくつかの 追加の" 隠された" 情 
報が 存在し、 インタプリタ により 保持され ており、 プログラムの 変数に は 保存 
されて いません。 その 情報に は 遅延 命令の 連鎖 を迪る 中での "プロセスの 現在 
地" が 示 されて います。 鎖が 長レ 、程、 より 多く の 情報が 保持 される 必要が あ リ 
ます。 30 

反復 と 再帰の 対称性 において、 再帰 プロセス の 概念 と 再帰 手続の 概念 を 混 
同し ないように 注意せ ねばな りません。 私達が 手続 を 再帰 だと 説明す る 時、 手 
続の 定義が （直接、 または 間接的に） その 手続 自身 を 参照 するとい う 構文 上の 事 
実 を 参照し ます。 しかし、 プロセスが ある パターン、 例えば、 線形 再帰に 従う と 
説明す る 時、 私達 は プロセスが どのように 展開す るかに ついて 話して おり、 手 
続が どのように 書かれて いるかと いう 構文に ついては 話して いません。 fact- 
iter のよう な 再帰 手続 を 反復 プロセスの 生成と して 言及す る こと は 当惑 させ 
るか もしれ ません。 しかし、 その プロセス は 実際に 反復 的です。 その 状態 は 3 
つの 状態 変数 により 完全に 補足され、 インタプリタ は プロセス を 実行す るた め 
に、 ただ 3 つの 変数 を 追跡す る ことのみ が 必要です。 

プロセスと プロシジャ （手続） の 区別が 混乱 を 招き 易 いのは、 （Ada や Pascal、 
C 言語 を 含む） 多くの 一般的 言語の 実装が、 例え プロセスが 本質的に は 反復で 
記述され ていても、 任意の 再帰 手続の 逐次 実行が 手続 呼 出の 回数に 伴い 多くの 
メモリ 容量 を 消費す るよう に 設計され ている ためです。 結果と して これらの 
言語 は 反復 プロセス のみ を 特別な 目的の "ループ 構成 概念" である do,  repeat, 
until,  for,  while のよう な 物 を 用いて 記述し ます。 私達が Chapter  5 にて 考え 
る Scheme の 実装 はこの 短所 を 共有し ません。 例え 反復 プロセスが 再帰 手続に 
よ リ 記述され ていても 定量 的な 記憶 域に て 実行し ます。 この 属性 を 持つ 実装 
は toiZ-recm^w; (末尾 再帰） と 呼ばれます。 末尾 再帰の 実装 を 用いれば 反復 は 一 
般 的な 手続 呼 出 メカニズム を 用いて 表現 可能で ぁリ、 特別 な 反復 構成 概念 は 構 
文 糖と しての み 実益の ある ものと なります。 31 

30 Chapter  5 にて レジスタ マシン 上での 手続の 実装に ついて 議論す る 時に、 任意の 反復 
プロセスが" ハードウェア 内に て" 固定長の レジスタ 集合 を 持ち、 補助 的な メモリ は 持 
たない 機械で あると 認識で きる こと を 学びます。 対照的に、 再帰 プロセス を 理解す るに 
は stacA; (スタック） と して 知られる 補助 的な データ 構造が 必要です。 

31 末尾 再帰 は 長い間 コンパイラの 最適化の ための 裏技と して 知られて きました。 末尾 再 
帰の 論理的な 意味論 上の 基礎 は Carl  Hewitt  (1977) によ リ 与えられ ま した。 彼 は それ を 
演算の "メ ッ セージ パッシング" モデルに て 説明し ました。 Chapter  3 にて 議論し ます。 こ 
れレ影 ft を受 (フ 一し、 Gerald  Jay  Sussman と Uuv  Lewis  Steele  Jr.  (Steele  and  Sussman 
1975 参照） は Scheme のた めの 末尾 再帰 ィ ンタ プリ タを 構築し ま した。 Steele は 後に 末 
尾 再帰が 手続 呼 出 を コンパイルす るのに どれ だ け 自然な 方法の 結果で あるか を 示し まし 
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Exercise  1.9: 次の 2 つの 各 手続 は 2 つの 正の 整数 を 加算す る 手段 

を 定義して いる。 手続 inc は 引数 を 1 増やし、 dec は 引数 を 1 減 
らす。 

(, def  ine   (+  a  b) 

(if    (=  a  0)   b   (inc    (+   (dec  a)  b)))) 
(define   (+  a  b) 

(if    (=  a  0)   b   (+   (dec  a)    (inc  b)))) 

置換 モデル を 用いて 各 手続が （+  4  5) の 評価に おいて 生成す るプ 
口 セスを 図示せ よ。 これらの プロセス は 反復で あるか、 再帰で あ 
るか？ 

Exercise  1.10: 以下の 手続 は アツ カーマン 関数と 呼ばれる 数学の 関 
数 を 計算す る。 

(, def  ine   (A  x  v) 

(cond   ((=  y  0)  0) 

((= x  0)    (*   2  y)) 
((= y 1) 2) 

(else   (A   (-  x 1) (A  x   (-  y 1)))))) 
以下の 式の 値 はいくつ であるか？ 

(A 1 10) 
(A  2  4) 
(A  3  3) 

A が 上で 定義され た 手続で ある 時、 以下の 手続に ついて 考察せ よ。 


( def  ine 

(f 

n: 

(A 

0 

n)) 

( def  ine 

(g 

n: 

U 

n)) 

( def  ine 

(h 

n: 

(A 

2 

n)) 

( def  ine 

(k 

n: 

(* 

5 

n  n)) 

n が 正の 整数で ある 場合に 手続 f,  g,  h により 計算され る 関数の 数 
学 上の 定義に ついて 簡明に 答えよ。 例と して （k  n) は 5n2 を 計算 
する。 


た （Steele  1977)。  Scheme の ieee 標準 仕様 は Scheme の 実装が 末尾 再帰で ある こ とを必 
須要 件と しています。 
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1.2.2 木 再帰 

もう 1 つの 演算の 一般的 パターン は iree  recursion (木 再帰） と 呼ばれます。 
例と して、 フィボナッチ 数の 計算に ついて 考えて みましょう。 各 数値 は 先行す 
る 2 つの 数の 和と なり ます。 


私達 は 直 ぐに この 定義 をフィ ボナ ッ チ数 を 計算す る 再帰 手続の 定義 に 翻訳が 可 
能です。 

(, def ine   (fib  n) 

(cond   ((=  n  0)  0) 
((= n 1) 1) 

(else   (+   (fib   (-  n 1) ) 

(fib    (-  n  2)))))) 

この 計算の パターン について 考えて みまし よ う。 （fib  5) を 計算す るに は （fib 
4) と （fib  3) を 計算し ます。 （fib  4) を 計算す るに は （fib  3) と （fib  2) を 

計算し ます。 一般的に 展開され た プロセス は Figure 1.5 で 示す ように 木の よう 
に 見えます。 枝が 各 レベル （最下 層 を 除く） にて 2 つに 分かれる ことに 注意して 
下さい。 これが fib 手続が 実行され る 度に 毎回、 自身 を 二回 呼び出す 事実 を 反 
映して います。 

こ の 手続 は 典型的な 木 再帰 として は 有益です。 しかし フィ ボナ ッ チ数を 計 
算す るに は 酷い 方法です。 あまりに も 冗長な 計算 を 行うた めです。 Figure 1.5 に 
おいて （fib  3) の 計算 全体が 一 ほぼ 仕事の 半分が 一 重複して いる ことに 注意 
して 下さい。 実際に は 手続が （fib 1) や （fib  0) の 演算 回数 （上記の 木 全体に 
おいての 葉の 数） が 正確に Fib(n+1) である こと を 示す の は 難しく あり ません。 
この 方法の 酷 さ を 知る ために、 Fib(n) の 値が n に 対し 指数関数 的に 増加す る こ 
と を 示す ことができます。 より 正確に は Fib(n) は 以下の 条件の 場合に vj"/^ 
に 最も 近い 整数に な リ ます。 (Exercise  1.13 参照) 


0, 1, 1, 2,  3,  5,  8, 13,  21 


'般 に、 フィボナッチ 数 は 次の ルールに て 定義 可能です。 


1  +  ^5 
~ 2 ~ 


w 1.6180 


37 


Figure  1.5:  (fib  5) を 求める 際に 生成され た 木 再帰 プロセス 


や は golden  nrfio (黄金 比） であ り 次の 等式 を 満た します。 

2  .  -I 

V  = 屮+ 1. 

従って プロセス は 入力 に 伴な い 指数関数 的 に 増加す る ステップ 数 を 要し ま 
す。 一方で 要求され る 記憶 域 は 入力に 対し 線形に しか 増加し ません。 なぜなら 
計算 過程の 任意の ボイ ント において、 木の 中の どの ノードが 上に あるの かの み 
追跡す る 必要が あるた めです。 一般的に、 木 再帰 プロセス において 必要と され 
る ステップ 数 は 木の 中の ノードの 数に 比例し ます。 必要と される 記憶 域 は 木の 
最大の 深さ に対して 比例 します。 

フィボナッチ 数の 計算 を 反復 プロセスに 定式化す る こと も 可能です。 この 

考え は a と b の 整数の ペア を 用い、 Fib(l) = 1 と Fib(O)  =  0 の 初期化 を 行い、 
以下の 変換 を 同時に 行う という ものです。 

a    <—    a  +  b, 
6    <—  a. 

この 変換 を n 回 行った 後に a と &が それぞれ Fib(n+1) と Fib(n) に 等しい こ 
と を 示す の は 難しく あり ません。 従って フィボナッチ 数 を 反復 的に 以下の 手続 
を 用いて 計算 可能です。 


；-!8 


(define   (fib  n) 

(fib- iter 1 0  n) ) 
(define    (fib - iter  a  b   count ) 

(if    (=   count  0) 
b 

(f ib-iter   (+  a  b)   a   (-  count  1)))) 

この Fib(n) を 計算す る 2 つ 目の 方法 は 線形 反復です。 2 つの 方法に ょリ 要求 さ 
れる ステップ 数の 差 は、 一方 は n に 対し 線形で あり、 もう 一方 は Fib(n) 自身 
の 値の 速さで 増加す るた め、 例え 入力 値が 小さくても その 差 は 非常に 大きくな 
リ ます。 

これより 木 再帰 プロセスが 役に立たな いと 結論 づけるべき ではありません。 
数値で はな く 階層 構造の データ を 操作す る プロセス を 考えた 場合、 木 再帰 は自 
然で 強力な ツールです。 32 しかし、 例え 数値 演算に おいても 木 再帰 は プロ グラ 
ムの 設計と 理解 を 手助けす るのに 役立ちます。 例え ば 最初 の f  ib 手続 は 2 つ 目 
に比べて とても 非 効率です が、 ょリ 直感的で フィボナッチ 数列の 定義と Lisp 翻 
訳の 違い は 大差が ありません。 反復 アルゴリズムの 定式化 を 行うた めに は、 計 
算が 3 つの 状態 変数に 再定義で きる こ と に 気付く 必要が あ リ ます。 


例： 両替 方法 を 数える 

反復 的 フィボナッチ アル ゴリ ズムに 至る に は 多少の 知恵が 必要です。 一方 
で、 次の 問題に ついて 考えて みて 下さい ： $1.00 を 両替す るに はいくつ の 方法 
が あるでしょう 力 v?  50 セント、 25 セント、 10 セント、 5 セント、 1 セント 硬貨 
があります。 より 一般的に、 任意の 量の 金額に 対して 両替 方法が いくつ 存在す 
るか 計算す る 手続 を 書く ことができます か？ 

この 問題に は 再帰 手続と しての 簡単な 答が 存在し ます。 利用 可能な コイン 
の タイプ を ある 順序で 並べる と 考えて みましょう。 すると 以下の 関係が 成リ立 
ちます。 

ri 種類の 硬貨 を 用いた 場合、 金額 a の 両替 方法の 数 は 

• 最初の 種類の 硬貨 を 除いた 残り 全て を 用いた 金額 a の 両替 方法の 数、 

プラス 


32 これの 例 は Section 1 丄 3: インタ プリ タ 自身が 木 再帰 プロセス を 用いて 式 を 評価す る 
ことから 暗示され ます 
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•   d が 最初の 種類の 硬貨の 額面で ある 場合に、 n 種類の 硬貨 全て を 用いた 
金額 a - d の 両替 方法の 数 

なぜ これが 正しい の か考 える ために は 両替 方法が 2 つの グルー プに 分けられる 
ことに 注目し ます。 最初の 種類の 硬貨 を 用いない ものと、 用いる ものです。 従 
つて ある 金額に 対す る 両替 方法の 数の 総数 は 最初の 種類の 硬貨 を 全く 使わない 
その 金額に 対する 両替 方法の 数と 最初の コイン を 用いる 両替 方法の 数の 和で 
す。 しかし 後者の 数 は 最初の 種類の 硬貨 を 用いた 後の 残りの 金額に 対する 両替 
方法の 数に 等しくな リ ます。 

従って 与え られた 金額の 両替 問題 か ら 少な レ 、種類の 硬貨 を 用いた ょリ 少な 
い 金額の 両替 問題へ と 再帰 的に 縮小す る ことが 可能です。 この 集約 ルールに つ 
いて 注意 深く 考えて ください。 そして 自分自身で その ルール を 用いて 以下の 縮 
退 ケース を 指定した 場合 アルゴリズム を 記述で きる ように 準備して 下さい。33 

• もし a が 0 である 場合、 両替 方法 は 1 と 数える 
. もし a が 0 未満の 場合、 両替 方法 は 0 と 数える 
• もし n が 0 の 場合、 両替 方法 は 0 と 数える 

この 記述 は 簡単に 再帰 手続に 翻訳で きます。 


"or  (<  amount  0)  (=  kinds - of  - coins  0) )  0) 
(else    (+   ( cc  amount 

(- kinds - of - coins 1)) 
(cc    (-  amount 

(first-denomination 
kinds - of - coins) ) 
kinds- of -coins ) ) ) ) ) 


33 例えば 5 セント 硬貨と 1 セント 硬貨 を 用いて 10 セントの 両替 を 行う 問題に 縮 退ル一 
ルを どのように 適用す るかに ついて、 詳細に 通して やって 見て 下さい 


( def  ine 
( def  ine 
( cond 


( count- change   amount )    (cc   amount   5) ) 
(cc   amount   kinds -of -coins ) 
( (= amount   0) 1) 


( def  ine 
( cond 


first-denomination  kinds- of -coins ) 


(= kinds - of -  coins 1) 1) 

(= kinds -of -coins  2)  5) 

(= kinds - of - coins  6) 10) 

(= kinds- of -coins  4)  25) 


(= kinds- of -coins   5)  50))) 
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(； first-denomination 手続 は 利用 可能な 硬貨の 種類の 数 を 入力に 取り、 最初の 

種類の 硬貨の 額面 を 返します。 ここで は 硬貨 は 最大 額面から 最小への 順に 並ん 
でい ると 仮定し ますが、 どのような 順で もうまく 行きます） これで 元々 の 質問 
である $1 の 両替に ついて 回答が できます。 

i,  count-change  100) 
292 

count-change は f  ib の 最初 の 実装 と 同様に 冗長 な 木 再帰 プロセス を 生成し ま 
す。 （292 が 演算され るのに 暫く 時間が かかる でしよう） 一方で 結果 を 求める の 
により 良い アル ゴリ ズムを どのよう に 設計す るか は 自明で は あ リ ません。 この 
問題 は 読者への 宿題 とします。 木 再帰 プロ セ ス はとても 非 効率です が 多 く の 場 
合、 指示と 理解が 簡単で ある ことが 人々 に 対し、 ユーザが 両者の 世界の 良い 面 
を 得られる、 木 再帰 手続 をよ リ 効率的で 等価な 手続へ と 変換 を 行う "賢い コン 
パ イラ" の 設計 を 提案す る 方向へ と 向かわせ ています。 34 

Exercise  1.11: 関数 /は n  <  3 の 場合 /(n)  =  n と n  >  3 の 場合、 
f(n)  =  f(n  - 1) +  2/(n  -  2)  +  3/(n  -  3) の ルールの 下に 定義され 
る。 /を 演算す る 手続 を 再帰 プロセス を 用いて 書け。 また/を 演 
算 する 手続 を 反復 プロセス を 用いて 書け。 


34 冗長な 演算に 対処す る 1 つの 取り組み 方法 は 演算 結果に 従い、 自動的に 値の テープ 
ルを 構築す る ことです。 手続 を ある 引数に 適用す るよう 要求され る 度に、 最初に その 値 
が 既に テーブルに 存在す るか を 確認し ます。 その 場合、 冗長な 演算 を 防ぐ ことが 可能で 
す。 この 戦略 は ta6iitation (表 形式 化） や memoizatiort (メモ 化） として 知られ 直感的な 方法 
で 実装が 可能です。 表 形式 化 は 時折、 （count-change のよう な） 指数関数 的な ス テツ プ数 
を 要する プロセス を、 入力に 対し 時間と 記憶 域の 要求が 線形に 増加す る プロセス へと 変 
換す るのに 利用され ます。 （Exercise  3.27 参照） 
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Exercise  1.12: 以下の 数値の パターン は Pascal  triangle(J く スカル 
の 三角形） と 呼ばれる。 


121 
13      3  1 
1      4      6      4  1 

三角の 端の 数値 は 全て 1 であり、 三角 内部の 各 数値 は それの 上 2 
つの 数値の 和で ある。 35 パスカルの 三角形の 要素 を 再帰 プロセス 
を 用いて 求める 手続 を 書け。 

Exercise  1.13:  Fib(n) が ipn ゆ に 最も 近い 整数で ある こ と を 証明 

せよ。 w= (1+  75)/2 とする。 ヒント ： ゆ = (1— ^5)/2 と 置く。 帰 
納 法と フィボナッチ 数の 定義 （Section  1.2.2 参照） を 用いて Fib(n) 
= {ifin  -  ^n)/V5 である こ と を 証明せ よ。 


1.2.3 増加の オーダ一 

前節の 例で は プロセスが 消費す る 計算 資源の 割合が 大幅に 異な リ 得る こ と 

を 示しました。 この 違い を 説明す る 1 つの 便利な 方法 は、 order  of  growth (増加 
の才一 ダ一） の 記法 を 用いて 入力が 大きくな るに 従い、 プロセスが 要求す るリ 
ソース （資源） の 総体 的 量 を 得る ことです。 

n が 問題 サイズ を 測る パラメータ、 iifn) を サイズ n の 問題に 対し プロセス 
が 要求す る リ ソースの 量 だとし ます。 前節の 例で は n を 与えられた 関数が 何回 
計算され るかの 数と しました。 しかし 他の 可能性 もあります。 例えば、 もし 私 
達の ゴールが 数値の 平方根の 近似値 を 求める ことで あれば、 n を 必要な 精度の 
桁 数と 取る こと も あり える でしよう。 行列の 乗算で は n を 行列の 行数と 取る か 


35 パスカルの 三角形の 各 要素 は Mnomid  coeifkienis (二項係数） と 呼ばれます。 n 番目 
の 行が の 展開 式に おける 各項の 係数で あるた めです。 係数 を 計算す る この パ 
ターン は Blaise  Pascal の 1653 年の 確率 理論の 独創的な 成果で ある TraiU  du  triangle 
arithm き tigue に 現れました。 Kmith  (1973) によると、 1303 年に 同様の パターンが 中国 
の 数学者、 朱 世 傑に よ り 出版され た Szu-yuen  Yii-chien  ("The  Precious  Mirror  of  the 
Four  Elements") (四 元 玉鑑） の 中に も 記載され ています。 また I2 世紀の ペルシャの 詩 
人で あり 数学者で あった Omar  Khayyam, 同じく 12 世紀の インド 人数 学者 Bh も scara 
Acharya についても 同様です。 
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もしれ ません。 一般的に 与えられた 問題 を 分析す るのに 望ましい 問題の 属性 は 

いくつ もあります。 同様に、 が 使用され る 内部 保管 レジスタの 数 を 量った 
り、 実行され た 基本的 機械語 命令の 数であった リ 等します。 一度に 固定 数の 命 
令 を 実行す る 計算機 において は 必要と される 時間 は 実行 さ れる 基本的 機械語 命 
令の 数に 比例し ます。 

もし 任意の 十分に 大きな n の 値に 対して 正の 定数 ん と fc2 が n に 独立して 
存在し /^/(n)  <  R(n)  <  k2f(n) を 満たす 時、 i?(n) は 増加の オーダー e(/(n)) 
を 持ち R{n)  =  e(/(n)) ("シ ータ f(n)" と 発音す る） と 記述され ます。 

例と して、 Section  1.2.1 で 説明した 階乗 を 求める 線形 再帰 プロセス では ス 
テツ プ数は 入力 n に 比例し ます。 従って この プロセスに 必要な ステップ 数 は 
e(n) に 従い 増加し ます。 必要と される 記憶 域 もまた e(n) に 従い 増加し ます。 

反復 式 階乗で はス テツ プ数 はま だ e(n) です が、 記憶 域 は e(i) —定 数です。 36 
木 再帰 フィボナッチ 演算 は eOp") ステップと 記憶 域 e(n) を 必要と します。 こ 

の 時 V？ は Section  1.2.2 で 示 したと お り の 黄金 比です。 

増加の オーダー は プロセスの 行いに ついて 概観 的な 説明の み を 与えます。 
例えば n2 ステップ、 lOOOn2 ステップ、 3n2  +  10n  +  17 ステップ を 必要と する プ 
口 セスは 全て 増加の オーダー は 0(n2) になり ます。 一方で 増加の オーダー は 問 
題の サイズ を 変更し た 場合に どの 程度 プロ セ ス の 挙動が 変化す るか を 推測す る 
のに 実用的な 指標です。 e(n) の 線形 プロセスに 対し サイズ を 2 倍にした 場合、 
概ね 2 倍の リ ソース を 使用し ます。 指数関数 的 プロセス に対して は 問題 サイズ 
を 1 増やす 度、 定数 因子 を リソース 使用 率に かける ことになります。 Section 
1.2 の 最後に て 増加の オーダーが 対数で ある 2 つの アルゴリズム をで は、 問題 
サイズ を 倍にした 時に 必要と する リ ソ ースが 定数 量 増 える こと を 調査し ます。 

Exercise  1.14:  Section  1.2. 2 の count-change 手続に よ リ 11 セン 卜 

の 両替 を 求めた 場合に 生成され る プロセスの 木 を 図示せ よ。 量が 
増える に 従い この プロセス により 使用 される 記憶 域 とス テツ プ数 
の 増加の オーダー はいくつ か？ 

Exercise  1.15: (ラジアンで 指定され る） 角度の 正弦 値 は: r が 十分 

に 小さい 時 sina;«a; の 近似 式 を 用いる ことで 計算で きる。 そして 


36 これらの 記述 は 多くの 過度な 単純化 を 隠して います。 例えば もし" 機械語 命令" をプ 
口 セスの ステップ 数と して 数えた 場合に、 一例と して. 乗算に 対し 必要な 機械語 命令の 
数 は 乗算され る 2 つの 数に 対し 独立して いると 想定 するとし ます。 これ は 数値が 十分に 
大きな 場合 は 間違いです。 同様の 見解が 記憶 域に 対する 見 積に 対しても 取られます。 プ 
口 セスの 設計と 記述の ように、 プロセスの 分析 は 抽象化の 色々 な レベルに 対して 行え ま 
す。 
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三角法の 恒等式、 

sin  a;  =  3  sin  4  sin— — 

3  3 

を 用いて sin の 引数の 大きさ を 縮小す る ことができる。 （この 課題 
の 目的で は" 十分に 小さい" と は その 大きさが 0.1 ラジアンよりも 
大きく ない ことと する） これらの 考えが 以下の 手続に 組 込まれて 
いる。 

(define     cube  x)    (*  x  x  x ) ) 

(define    (p  x)    (-    (*  3  x)    (*  4    (cube  x) ) ) ) 

(define    ( sine   angle ) 

(if    (not    (>    (abs   angle)  0.1)) 
angle 

(p   (sine    (/   angle  3.0))))) 

a 手続 p は （sine  12.15) を 評価した 時、 何回 適用され るか？ 

b  (sine  a) が 評価され た 時、 sine 手続に より 生成され た プロ 
セス によ リ 使用され た （ひの 関数と しての） 記憶 域と ステップ 
数の 増加の オーダー を 求めよ。 

1.2.4 指数 計算 

与えられた 数値の 指数関数 を 求める 問題に ついて 考えましょう。 基数 & と 

正の 整数で ある 指数 n を 引数に 取り bn を 求める 手続に します。 再帰 定義に よ 
りこれ を 行う 1 つの 方法 は 次の 通りです。 

bn  =  b  .  b"—1 , 
b°  =1, 

早速、 手続に 翻訳し ます。 

(, del ine    ( expt  b  n) 
(if    (=  n  0) 

(*  b   (expt  b   (-  n 1))))) 

これ は 線形 再帰 プロセス であり、 G)(n) ステップと 記憶 域 G)(n) を 必要と しま 
す。 階乗 と 同様にす ぐ に 等価な 線形 反復へ と 定式化 可能です。 
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(define    ( expt  b  n) 

( expt-iter  b  n 1) ) 
(define    (expt-iter  b   counter  product ) 
(if    (=   counter  0) 
product 
(expt-iter  b 

(- counter 1) 

(*  b  product ) ) ) ) 

この バージョン は e(n) ステップと 記憶 域 e(i) を 必要と します。 

指数関数 は 二乗 を 連続して 用いる ことで よ り 少ない ステ ッ プで 計算で き ま 
す。 例えば、 b8 を 以下の ように 計算す るので はなく、 

b  •  (6  •  (6  •  (6  •  (6 •  (6 ■  (&.  &)))))) , 
3 回の 乗算で 求める ことが 可能です。 


この 方法 は 2 の 冪乗で ある 指数関数に ついてはう まく 働きます。 また 連続す る 
二乗の 利点 を 一般的な 指数関数の 演算に 対し 以下の ルールに 従う ことで 利用 可 
能です。 

6"  =  (fo"/2)2  n が 偶数の 場合， 

bn  =  b-bn~1 n が 奇数の 場合. 

この 方法 を 手続と して 表現し ます。 


(define    (,iast-expt  b  n) 
(cond   ((=  n  0) 1) 

( ( even?  n)    ( square    ( f ast-expt  b    (/  n  2)))) 
(else    (*  b   (f ast-expt  b    (-  n 1)))))) 

整数が 偶数で あるか テス ト する 述語 は プリ ミ ティ ブな 手続、 remainder を 用い 
以下の ように 定義され る。 

(define    v. even?  n) 

(= (remainder  n  2)    0) ) 


2  4 

； To  To 

To  To  To 

-I  -I  -I 

2  4  8 

To  To  To 
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fast-expt に よ リ 展開され る プロセス は n の 対数に 従い 記憶 域と ス テツ プ 数の 
両者が 増加し ます。 これ を 理解す るた めに b2n を fast-expt を 用いて 演算す る 
のに &" の 演算よ リ ただ 1 度の み 多くの 乗算が 必要で ある ことに 注目 して 下さ 
い。 従って 計算 可能な 指数の サイズ は、 可能な 新規の 乗算の 度に （大体） 倍に な 
リ ます。 このため n の 指数に よ り 必要と される 乗算の 数 は 2 を 底と する n の 対 
数と 同等の 早 さに て 増加し ます。 この プロセス は e(logn) で 増加し ます。 37 

e(logn) の 増加と の 増加の 違い は n が 大きくなる 程 顕著に なり ます。 
例えば = 1000 の 時 fast-expt は 14 回し か 乗算 を 必要と しません。 38 連続 
する 二乗の 考え を 用いて 対数 ステップ 数の 指数関数 を 求める 反復 アル ゴ リ ズム 
を 考案す る こと も 可能です。 （Exercise  1.16 参照） しかし 反復 アルゴリズム では 
良く ある ことです が、 これ は 再帰 アル ゴリ ズム のよう に 直接的に 書 下す ことが 
できません。 39  Knuth  1981 の 4.6.3 節に てこれ と 指数関数の 他の 方法に ついて 
完全な 議論 と 分析 を 行って います。 

Exercise  1.16: 連続 二乗と 対数 ス テツ プ数を 用いる fast-expt の 

ような 反復 指数関数 プロセス を 展開す る 手続 を 設計せ よ。 （ヒン 
ト: (&"/2)2  =  (&2广/2 を 用い、 指数 n、 基数 & と共に 追加の 状態 変数 
a を 保持し 状態 変換 を 積 が 状態 間にお いて 一定で あると いう 
方法に て 定義せ よ。 プロセスの 最初に おいて a は 1 を 取り、 回答 
は プロセスの 終了 時に a の 値と して 得られる。 一般的に、 状態 間 
において 一定で ある invariant  quantit 认 不変 W) を 定義す る 技法 は 
反復 アルゴリズムの 設計 を 考え る 上で 強力 な 方法で ある。 ） 

Exercise  1.17: この 節に おける 指数 演算 アルゴリズム は 指数関数 を 
乗算の 繰り返し を 用いて 実行す る こと を 基本と している。 同様な 
手段で、 整数の 乗算 を 加算の 繰り返し を 用いて 実行す る こと も 可 
能 だ。 以下の 乗算 手続 （私達の 言語が 足し算 だけ 可能で 乗算 はでき 
ない と 仮定す る） は expt 手続の 類似で ある。 


37 ょリ 正確に 言えば、 必要と される 乗算の 数 は 1 から n の 基数 2 の 対数 未満と n の 二 
進数 表現に おける 1 の 数の 和に な り ます。 この 合計が 常に n の 基数 2 の 対数の 2 倍よ リ 
も 小さくな ります。 オーダ （次数） 記法の 定義に 従う 任意の 定数 お と fc2 により、 対数 プ 
口 セスに 対し、 その 対数の 基数 は 問題で はないた め、 そのような プロセス 全て は 6»(logn) 
と 説明され る ことが 示されます 

38 誰が 数値 を 1000 乗まで 上げる こと を 気にする のだろう かと 思う かも しれません。 
Section  1.2.6 を 参照して 下さい 

39 こ の 反復 アル ゴ リ ズムは 古代から 存在 します。 紀元前 200 年 以前に Achiirya  Pingala 
に よ り 書かれた Chandah-sutra に は 現れて います 
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(define   (*  a  b) 

(if    (=  b  0) 
0 

(+  a  (*  a  (-  b 1))))) 

この アルゴリズム は b に 対し 線形の ステップ 数 を 取る。 今、 和に 
加えて 整数 を 倍にする double と 偶数 を 2 で 割る halve が ある と 
する。 これら を 用いて fast-expt に 類似して 対数 ステップ 数 を 持 
つ 乗算 手続 を 設計せ よ。 

Exercise  1.18:  Exercise  1.16 と Exercise  1.17 の 結果 を 用いて 反復 プ 
口 セスを 生成す る 2 つの 整数 を 乗算す る 手続 を 考案せ よ。 足し算、 
double、  halve を 用い 対数 ス テツ プ 数の アル ゴリ ズムを 使用す る こ 

レ 40 

Exercise  1.19: フィボナッチ 数 を 対数 ステップ 数に て 求める 巧みな 
アル ゴリ ズムが 存在す る。 Section  1.2.2 の fib-iter にて a とわ 状 
態 変数の 変換 a ト a  +  6 ヒ b  —  a を 思い出そう。 この 変換 を r と 呼 
び、 1 と 0 から 始めて 回繰リ 返して T を 適用した 時に Fib(n+1) 
と Fib(n) の ペア を 算出す る ことに 注意せ よ。 言い換えれば、 フィ 

ボナ ツチ 数 は 変換 r のれ 乗で ある rn を ペア （l, o) から 始めて 適 
用 するとい うこと である。 ここで r は p  =  0、  g  =l である 時の 
変換 の 特別な 形で あると 考えて みょう。 この 時 Tj ^は （ひ, 6) を 
a ト お +  +  dp  and  & ト &p  +  とする。 もし そのよう な 変換 
Tpq を 二回 適用した 場合に その 効果 は 同形 変換 rpV を 一回 適用し 
た 場合と 同じで ある こと を 示せ。 また p と g に対する p'  and  q' を 
求めよ。 これ は fast-expt 手続に おける ように、 7™ を 連続す る 平 
方に て 求める。 これら を 全て 一緒に 考慮して 次の 手続 を 完成 させ 
よ。 これ は 対数 ステップ 数に て 実行され る。 41 

(, def ine   (fib  n) 

(fib-iter   10  0   1 n) ) 
(define    (nb-iter  a  b  p  q  count ) 

40 この アルゴリズム は 時折" ロシア 農民の かけ 算" として 知られて おり、 古くから 存在 
します。 その 使用例 は S も 古い 数学の 書籍の 1 つ、 リンド パピルス にも 見られます。 こ 
れは 紀元前 1700 年頃に エジプト の 筆記者、 A'h-mose に よ り 書かれた （そしてより 古い 
書物から 写本され た） 本です。 

41 この 課題 は Kaldewaij  1990 の 例 を ベースに Joe  Stoy によ リ 提案され ました 
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( cond   ( (=   count   0)  b) 
( ( even?   count ) 
(fib - iter  a 
b 

{??)       ；  compute  p, 
{??}       ；  compute  q, 
(/   count  2))) 
(else    ( f ib-iter    (+    (*  b  q) 


い 
P 

q 

(- 


(*  b  p) 


a  q) い 
a  q)) 


a  p)) 


count 1) ) ) ) ) 


1.2.5 最大公約数 

2 つの 整数 a ヒ b(D  Greatest  Common  divisor(GCD: 最大公約数） と は a と 
&の 両者 を 余り 無しで 割り切れる 最大の 整数 だと 定義され ます。 例えば 16 と 
28 の GCD は 4 です。 Chapter  2 で 分数の 計算の 実装 方法に ついて 調査す る 時に 
分数 を 約分す るた めに GCD を 求められる ようになる 必要が 出て きます。 （分数 
を 約分す るた めに は 分母と 分子 を それらの GCD で 割らねば なり ません。 例えば 
16/28 は 4/7 になります） 2 つの 整数の GCD を 求める 1 つの 方法 は それら を 因 
数 分解し、 共通 因数 を 求める 方法です。 しかしより 効率的な 有名な ァ ルゴ リズ 
ムが 存在し ます。 

その アル ゴリ ズムの 考え はも し r が a を 6 で 割った 時の 余りで ある 場合に 
a と &の 共通 因数 は 正確に b と t の 共通な 因数で あると いう 結果 を 基に してい 
ます。 従って 次の 等式 を 利用 可能です。 

GCD(a,b)  =  GCD(b,r) 

引き続いて GCD を 求める 問題から よ リ 小さな 値の 整数の ペアの GCD を 求める 
問題へ と 縮小して いくこと がで きます。 例え ば、 

GCD(206,40)  =  GCD (40, 6) 
= GCD(6,4) 
= GCD  (4 ,2) 
= GCD(2,0) 
= 2 
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上の 例で は GCD(206,  40) を GCD(2,  0) へと 縮小して います。 その 答 は 2 です。 
任意の 2 つの 正の 整数から 始めて 収縮 を 繰り返し 実行す る ことで 常に 最終的に 
は 2 つ 目の 数値が 0 である ペアに する ことができます。 その 時、 GCD の 値 はも 

う 1 つの 値です。 この GCD を 求める J5 法 は Euclid's  Algorithm ュ一ゥ リ ッ ドの 
互 除法） として 知られて います。 42 

ユー ク リ ッ ドの互 除法 を 手続と して 表すの は 簡単です。 

(, def ine    (gcd  a  b) 
(if    (=  b  0) 
a 

(gcd  b   (remainder  a  b) ) ) ) 

これが 反復 プロセス を 生成し、 その ステップ 数 は 与えられた 数値の 対数で 増加 
します。 

ユー クリ ッ ドの互 除法に より 必要と される ステップ 数が 対数 増加す る 事実 
がフ ィ ボナ ッ チ 数に 対す る 興味深い 関係 を 持ちます。 

Lame の 定理： も し ユー ク リ ッ ドの互 除法が ある ペアの gcd を 求め 

るのに ん ステップ を 必要と する 場合、 必ず ペアの 小さな 値が fc 番 
目の フィボナッチ 数より 大きい か 等しい。 43 

42 ユー ク リ ッ ドの互 除法 は ユー ク リ ッ ドの Semente (およそ 紀元前 300 年の 原論 第 7 
巻） に 載って いた ためにそう 呼ばれます。 Knuth  (I973) によると S も 古く 良く 知られた 
重要な アルゴリズム であると 考えられる そうです。 （Exercise  1.18) の 古代の エジプト 人 
の 乗算 方法 は 確かに これよ り も 古いので すが、 Knuth の 説明で は ユー ク リ ッ ドのァ ルゴ 
リ ズムは 最も 古く 知ら れた 一般的な アルゴリズム として 紹介され たもので あり、 説明 的 
な 例の 集合で は無レ 、とのこと です 

43 この 定理 は 1845 年に フランスの 数学者で あ リ かつ エンジニア でも ある Gabriel 
Lam さに ょリ 証明され ました。 彼 は 数理 物理学への 貢献の 第一人者 としても 有名です。 こ 
の 定理 を 証明す るに は ak  >  bk である ペア （ひ fc, わ fc) が ユー ク リ ッ ドの互 除法に て k ステ 
ップで 停止す るか 考えます。 証明 は （afc+1, ん +1) -4  (ak,bk)  — h ん _；0 が 縮小 プ 

ロセス における 連続す る 3 つの ペアで ある 場合、 必ず；) fe+1 >  6fc  +fefe_i である こと を 基 
にします。 この 仮定 を 確認す るた めに 縮小 ステップの 変換 定義が 化^  = ん， ん" ="ak 
を bk で 割った 余り" である ことにつ いて 考えます。 2 つ 目の 等式 は ある 整数 q に 
対し afc  =  qbk  +  ^_ ！ が 成 リ 立つ こと を 意味 します。 g は 少な くと も 1 です か ら 
ak  =  qbk  +  bfc_!  >  bk  + ん -1 が 成 リ 立ち ます。 しかし 以前の 収縮 ス テツ プょ リ 
fefc+l = ak です。 従って 6fc+1  =ak>  fefe  +  6fe_i が 成り立ちます。 これで 先程の 仮定 は 
立証で きました。 アルゴリズムが 停止す るのに 必要な ステップ 数 を とした 場合に、 こ 
れで 定理 は fc を 用いた 数学的帰納法 にて 証明 可能と なりました。 fc  =  l の 時、 これ は 単 
に；) が 少なく とも Fib(l) = 1 と 同じ 大きさで ある こと を 必要と します ので 真です。 次に 
fc に 等しい かより 小さい 整数 全てに おいて 定理が 真で あると 仮定し ます。 そして fc  + 1 で 
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この 定理 を 用いて ユー クリ ッ ドの互 除法の 増加の オーダー を 推測す る ことが 可 

能です。 n が 手続の 入力 値の 小さな 値 だとし ます。 もし プロセスが fc ステップ 
必要と する 場合、 n さ Fib(fc)«i ^/^が 必ず 成り立ちます。 従って ステップ 数 
fc は n の 0 を 底と する） 対数で 増加し ます。 つまり 増加の オーダー は e(log n) 
となり ます。 

Exercise  1.20: ある 手続が 生成す る プロセス はもち ろん ィ ンタ プリ 
タ によ リ 使用され る ルールに 依存す る。 例と して 上で 説明した 反 
復 gcd 手続に ついて 考える。 この 手続 を Section  1.1.5 で 議論した 正 
規順 評価で 解釈、 実行した と 想定す る。 （if に対する 正規 順 評価 ル 
ールは Exercise 1.5 を 参照)。 置換 法 を （正規 順に） 用いて (gcd  206 
40) の 評価に より 生成され る プロセス を 説明せ よ。 次に 実際に 実 
行され た remainder 命令 を 示せ。 （gcd  206  40) の 正規 順 評価に お 
いて 実際に 実行され た remainder 命令 は 何回 だろ う かつ. 適用 順 評 
価で は？ 

1.2.6 例： 素数 判定 

この 節で は 整数 n が 素数で あるか を テス ト する 2 つの 方法に ついて 述べ ま 
す。 1 つ は 増加の オーダーが €)(#) であり、 他 は "確率 的" な アル ゴリ ズムで 
増加の オーダーが e(logn) です。 この 節の 最後の 課題で は これらの アル ゴ リズ 
ム に 基づいた プロ グラ ミ ン グの プロジェクト を 提案 します。 

約数 を 探す 

古代の 時代 か ら 数学者 は 素数に ついての 問題に 魅惑され てきました。 多く 
の 人々 力 《 数値が 素数で ある かの 決定 法の 問題に 取 リ 組んで きました。 数値が 素 
数で あるかの テス トの 1 つの 方法 は 数値の 約数 を 求める ことです。 次の プロ グ 
ラム は 1 より 大きな 最も 小さい 整 因子 （約数） を 与えられた n に対して 求め ま 
す。 この プログラム は それ を 直接的な 方法、 つまり 2 で 始まる 一連の 整数に よ 
リ割リ 切れる かどう か を テス ト する ことによ リ 行います。 


も 成立す る こ と を 証明し ます。 （afc+1,?)fc+i) (ak,bk)  ！, が 縮小 プロセス 

における 連続す る ペアで ある 場合に、 数学的帰納法の 仮定よ リ、 ん _；!  >  Fib(fc  — 1) と 
bk  >  Fib(fe) が 成り立ちます。 ここで 先程 フィボナッチ 数の 定義と 共に 証明した 式 を 適用 
+る と ん +1 >bk  +  6fc_x  >  Fib(fc)  +  Fib(fc  — 1) = Fib(fc  + 1) が 導出され ます。 これで 
定理の 証明 は 終了です。 


50 


( def  ine 
( def  ine 
( cond 


( small est-divisor  n)    ( f ind - divisor  n  2) ) 

(i md-divisor  n  test-divisor) 

((>   ( square  test-divi sor )   n)  n) 

( (divides?   test-divisor  n)    te st-di visor ) 

(else    ( f ind-divi sor  n   (+  test-divisor 1 ) ) ) ) ) 

(divides?   a  b)    (=   (remainder  b  a)    0) ) 


( def ine 


数値が 素数で あるか 以下の よう に テストし ます： ri は n 自身が 最小の 約数で あ 
る 場合、 かつ その 場合に 限り 素数で ある。 


find-divisor の 終了 条件 はも し n が 素数で ないならば み より 小さい かまた 
は 等しい 約数 を 持つ という 事実に 基づいて います。 44 これ はこの アルゴリズム 
が 1 から せ までの 約数に ついての み テス ト すれば 良い こと を 示します。 結果 
として、 n が 素数で あるか を 判定す るのに 必要な ステップ 数の 増加の オーダー 
は 6>(^：) となり ます。 

フ エルマ一 テス 卜 

e(logn) の 素数 判定 は フェルマーの 小 定理と して 知られる 数 論の 結果に 基 
づきます。 45 

フ エルマ一 の 小 定理： n が 素数 かつ a が n よ リ 小さい 任意の 正の 整 

数で ある 時、 a の ri 乗 は 法 ri に関して a と 合同で ある。 


44 もし d が n の 約数で ある 時、 n/d もまた 約数です。 しかし d と n/d の 両者が 共に # 
より 大きい こと は 有りません 

45 Pierre  de  Fermat  (1601-1665) は 現在の 整数論の 創始者と 考えられ ています。 彼 は 多 
くの 重要な 数 論 上の 事実に ついて 発見し ました。 しかし 彼 は 通常 その 結果の み を 公表し、 
証明 を 与えませんでした。 フェルマーの 小 定理 は 彼が 1640 年に 書いた 手紙に 記録され て 
います。 最初に 出版され た 証明 は 1736 年に オイラー により 与えられました。 （それより 
早く、 同様の 証明が ライプニッツの 出版され なかった 原稿に 見つかって います)。 最も 有 
名な フェルマーの 数式 は 一 フェルマーの 最終 定理と して 知られ 一 1637 年に 彼の 所有し 
た 書籍 ("3 世紀の ギリ シャ 人数 学者 Diophantus による、 Arithmetic に "私 は 真に 驚く ベ 
き 証明 を 発見した 力5'、 書き残す に はこの 余白 は 狭す ぎる" という 所感と 共に メモされ た 
物です。 フェルマーの S 終 定理の 証明 を 見つける こと は 数 論に おいて 最も 有名な 挑戦の 
1 つと なり ました。 完全な 解 はついに 1995 年に プリ ンス トン 大学の Andrew  Wiles によ 
リ 与えられました。 


(define    (,pr ime?  n) 

(= n   ( sma 丄 lest - divisor  n; ) ) 
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(2 つの 数値 は その 両方が n で 割った 時に 同じ 余り を 持つ 場合、 congruent 
mod^o  n  (法 n に関して 合同） と 呼ばれます。 また a を n で 割った 時の 余り は 
a  modulo  n の remamder (剰余）、 または 単純に a  modulo  n と 呼ばれます。 ) 

もし n が 素数で なければ 一般に a  <  n の 多く の 値 は 上記の 関係 を満 しませ 
ん。 これが 次の 素数 判定の アルゴリズム へと 導きます： ある 値 n が 与えられた 
時、 a  <  n となる 乱数 を 取 り a11  modulo  n の 剰余 を 求めます。 もし 結果が a に 
等しくない 時、 n は 確実に 素数ではありません。 もし a に 等しいならば n が 素 
数で ある 確率 は 良い と 言えます。 ここで 別の 乱数 a を 取り 同じ 方法で テスト を 
行います。 それ もまた 等式 を満 すので あれば n が 素数で ある 確率 はよ リ 確から 
しくなります。 より 多くの a について 試験 を 行えば、 結果の 確から しら を 増す 
こ と が 可能です。 この アルゴリズム は フェルマー テストと して 知られて います。 

フェルマー テスト を 実装す るに は （ある 数値の 指数関数 modulo 別の 数値） 
を 求める 手続が 必要です。 

dei ine    ( expmod  base   exp  m) 
( cond   ( (=  exp  0) 
1) 

( ( even?  exp) 
(remainder 
( square 

(expmod  base    (/   exp  2)   m) ) 
m)) 
(else 
(remainder 
(*  base 

(expmod  base    (-   exp 1) m) ) 
m)))) 

これ は Section  1.2.4 の fast-expt 手続に とても 似て います。 連続す る 二乗 を 用 
いるた め、 ステップ 数の 増加 は" 指数" 引数の 対数になります。 46 

フェルマー テス トは 1 から n— 1 までの 乱数 a を 選択し、 a の n 乗の modulo 
n が a に 等しい か を チェック する ことで 行います。 乱数 a は 手続 random を 用 

46 指数 e が 1 よ リ 大きい 場合の 縮小 ステップ は、 任意の 整数: r,  y,  m に 対し a;  modulo 
m と j/ modulo  m を 別々 に 求め、 これら を 掛け、 その 結果の 法 m に関する 剰余 を 求める 
ことで （x と リ の 積 modulo  m) を 求める ことができる という 事実に 基づきます。 例えば 
e が 偶数の 場合に 6e/2  modulo  m を 求め、 その 二乗 を 取り、 法 m に関する 剰余 を 得ます。 
この テクニック はとても 役に立ちます。 m よ り も はるかに 大きな 数値 を 一切 扱う 必要 無 
しに 演算 を 行う ことが 可能 だからです。 （Exercise  1.25 と 比較せ よ） 
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いて 選択し ますが、 それ は Scheme の プリ ミ ティ ブな 手続に 存在す る 前提です。 
random は 入力の 整数よ り も 少ない 非 負数な 整数 を 返します。 そのため 1 から 
n  —1 の 乱数 を 得る に は random に n— 1 を 入力と し、 結果に 1 を 足します。 

^define    (f ermat-test  n) 
dei ine     trv-it  a) 
(= ( expmod  a  n  n)    a) ) 
(try-it    (+ 1 (random   (-  n 1))))) 

以下の 手続 は パラメータ により 与えられた 数値の 回数 分、 テスト を 実行し ます。 
テストが 毎回 成功 すれば true を、 そうでなければ false を 返します。 

def ine    (fast-prime?  n  times  ) 
( cond   ((=  times   0)    true ) 

( ( f ermat-test  n)    (fast-prime?  n    (-  times  1))) 
(else  false ) ) ) 

確率 的 手法 

フェルマー テスト は 正確さが 保証され た 多くの 親しみの ある アルゴリズム 
と は 性格が 異な つてい ます。 ここ では 得られた 結果 は 確率 的に のみ 正 しいと 言 

えます。 より 正確に は、 n が 常に フェルマー テストに 失敗す るので あれば n が 
素数で ない こと は 確実です。 しかし n が テスト を パスした という 結果 は、 とて 
も 強い 目安で はあり ますが、 n が 素数で ある こと を 保証し ません。 ここで 言い 
たかった の は 任意の 数値 n に 対し、 十分な 回数の テスト を 行い n が 常に テス ト 
を パスす る 場合、 この 素数 判定が 間違いで ある 可能性 は 思い通り に 小さく する 
ことが 可能 だとい うこと でした。 

残念ながら この 主張 は 完全に は 正しく ぁリ ません。 実は フェルマー テス ト 
を 騙して しまう 数値が 存在し ます。 a  <  n となる 全ての 整数に おいて、 n が 素 
数で はなく、 しかし、 a" が n を 法と する a に 合同で あるよう な 数値 ri。 そのよ 
うな 数値 はとても 稀です。 そのため フェルマー テスト は 実際に とても 信用が 高 
いと 言えます。 47 


47 フェルマー テスト を 騙して しまう 数 は CWrmic/wd  num&ere (力 一マイケル 数） と 呼 
ばれ とても 稀で あると いう こと 以外 は あま リ良 くわ かってい ません。 100,000,000 未満に 
は 255 の カーマイケル 数が 存在し ます。 最小の 物から いくつか 上げる と 561,  1105,  1729, 
2465,  2821,  6601 です。 任意に 選ばれた とても 巨大な 数値の 素数 性 を テストす る 場合に 
フェルマー テスト を 騙す 数値 に 当る 確率 は コンピュータ が "正確な " アル ゴ リズム を 実行 
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フェルマー テス トの バリエーションに は 騙されない 物 も 複数 あり ます。 こ 

れらの テス ト では フェルマー テス トと 同様に、 整数 n の 素数 判定 を 乱数 a  <  n 
を 選択し、 n と a に 依る 何ら かの 条件 を チェック します。 （そのような テストの 
例 は Exercise  1.28 を 参照して 下さい)。 一方で フェルマー テス トとは 対照的に、 
任意の n に 対し n が 素数で なければ a  <  n の 多くに 対し 条件が 成立し ない こ 
と を 証明で きます。 従って n がいくつ かの 乱数 a に対して テスト が 通 るので あ 
れば、 n が 素数で ある 可能性 は 五分五分よ リ 高くな ります。 もし n が 2 つの 乱 
数で ある a に対して テスト を 通れば、 n が 素数で ある 確率 は 4 分の 3 よりも 高 
くな リ ます。 テスト を 何度も 乱数 a を 選択しながら 実行す る ことで エラーの 確 
率 を 思い通りに 小さく する ことが 可能です。 

エラーの 確率が 自由 裁量で 小さく できる ことが 証明 可能な テストの 存在 
はこの タイプの アル ゴリ ズム への 興味 を 起こ しました。 それら Itprobabilistic 
algorUhms  (確率 的 アルゴリズム) と 呼ばれます。 この 領域に はとても 多くの 研 
究 活動が 存在し、 確率 的 アル ゴリ ズムは 多く の 現場に 効果的に 適用され て き ま 
した。 48 

Exercise  1.21:smallest-divisor 手続 を 用いて 次の 数値の 最小の 

約数 を 求めよ ： 199、  1999、  19999 

Exercise  1.22: 多くの Lisp 実装 は runtime と 呼ばれる プリ ミテ 
ィ ブな 手続 を 持って おり それ は システムが 実行して いる 間の （例 
えば マイク 口 秒で 測定され た） 時間 を 整数に て 返す。 次の timed- 
prime-test  手続 は 整数 n と共に 呼んだ 時、 n を 表示し、 n が 素数 
であるか チェック する。 n が 素数で あれば 手続 は 3 つの ァスタ リ 
スクと テス ト 実行に 掛 つた 時間 を 表示す る。 

(define    (timed - prime -" test  n) 


する 際に 宇宙 放射線が エラー を 引き起す 確率よりも 低いです。 2 つ 目の 理由で なく、 最初 
の 理由から アル ゴ リズム を 不適切 だ と 考える こと は 数学 と エンジニア リン グの 間の 違い 
を 示して います。 

48 確率 的 素数 判定 法の 最も 特筆すべき 適用 例 は 暗号の 領域です。 現時点で は 任意の 200 
桁の 数値 を 因数分解 する こと は 計算 能力 上 不可能で すが、 そのような 数値の 素数 判定 は 
フェルマー テス ト によ リ 数秒で 行 うこと が 可能です。 こ の 事実が Rivest  et  al. (1977) に 
より 提案され た" 解読 不能な 符号" を 構築す るた めの テクニックの 基 を 形成し ました。 そ 
の 結果と して RSA アルゴリズム は 電子 通信 上の セキ ユリ ティ を 拡張する テクニックと 
して 広く 利用され るよう になり ました。 この ことと 関連す る 開発に より、 素数の 研究 は 
一時 は "純粋" 数学の ト ピックの 典型 例で あ リ その 世界 自身の ためにの み 研究され る 物 だ 
と 考えられて きました が、 現在で は 暗号、 電子 資産の 転送と 情報検索 に対する 重要で 現 
実 的な 適用 例 を 持つ こ と が 判明 しました。 
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(newline )  (display  n)  (start-prime-test  n  (runtime ) ) ) 
(define    (start-prime-test  n  start-time ) 

( if    (prime?  n) 

(report-prime    (-    (runtime )    start-time) ) ) ) 
(define    (report -prime   elapsed -" time) 

(display   "   ***   " )    (display   elapsed -" time ) ) 

この 手続 を 用いて 指定した 範囲の 連続した 奇数に ついて 素数 判定 

を 行う 手続、 search-for-primes を 書け。 その 手続 を 用いて 1000、 
10,000、  100,000 より 大きな 素数 を 3 つ 見つけよ。 各 素数の テスト 
に 必要な 時間 を 記録せ よ。 テスト アルゴリズム は 10,000 辺りの 素 
数 を 判定す る 時、 約^ 15 倍、 1000 辺リの 素数 を テストす るより 
時間が かかる はずで ある。 あなたの 結果 はこれ に 従ってい るか？ 

100,000 や 1,000,000 の データに 対して e (み） の 予想 は 当たって 
いるか？ あなたの 結果 は 演算に 必要な ス テツ プ数 に 比例 し て 実行 
時間が 増える という 考えに 矛盾して いない か？ 

Exercise  1.23: この 節の 最初で 示された smallest-divisor 手続 

は 必要の 無い テスト を 数多く 行って いる ： 数値が 2 で 割る ことが 
できる か チェックした 後に、 それが よ リ 大きな 偶数に て 割り切れ 
るか チェック を 行う 必要 は 無い。 これにより test-divisor の 値 
は 2,  3,  4,  5,  6, ... ではなく、  2,  3,  5,  7,  9, ... であるべき だと 提 
案で きる。 この 変更 を 実装す るた めに、 入力が 2 であれば 3 を 返 
し、 それ 以外で は 入力に 2 を 足した 値 を 返す 手続 next を 定義せ 
よ。 smallest- divisor 手 ビ 変 吏し、 (.+  test-divisor 1) の 代 
わりに (next  test-divisor)  使用せ よ。 timed-prime -test ヒ 
この 変更した バージ ョ ンの smallest-divisor を 用いて Exercise 
1.22 で 見つけた 12 の 素数に 対し テスト を 行え。 この 変更 は テス ト 
ステップ を 半分に する ため 2 倍 速く 実行され る こと を が 予測 さ れ 
る。 この 予測が 確認で きる だろう 力 v? もしそう でなければ 2 つの 
アル ゴ リ ズ ムのス ピー ドの 比率 は どの よ う な 値が 確認で きる か？  2 
と 異なる 結果 を どのよう に 説明す るか？ 

Exercise  1.24:  Exercise  1.22 の timed-prime-test 手続 を 変更 レ 
fast-prime? (フェルマ 一法） を 用い、 課題で 見つけた 12 の 素数 を 
それぞれ テス ト せよ。 フェルマー テスト は e(logn) で 増加す るが、 
1000 に 近い 素数 を テス トす るのに 必要な 時間と 比べ 1,000,000 付 
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近の 素数 を テストす るのに 必要な 時間 を どれ 程と 見繕う だろう 力、？ 
実際 と の 相違 を どのよう に 説明で き る か？ 

Exercise  1.25:  Alyssa  P.  Hacker  (5.  expmod  書く にめ/こって 多、 
の 余分な 仕事 を 行った と 文句 を 言った。 結局のと ころ 我々 は 既に 
指数 演算の やり方 を 知ってい るの だから 単純に 以下の ように 書く 
こ と がで き た はず だ と 彼女 は 言った。 

V dei ine    (expmod  base   exp  m) 

(remainder    (f ast-expt  base   exp )   m) ) 

彼女 は 正しいだ ろう カマこ の 手続 は 最初の 素数 判定 と 同様に う ま 
く 行える だろう か？ 

Exercise  1.26:  Louis  Reasoner は Exercise  1.24 をネ: T つのに 随分と 
苦労した。 彼の fast-prime? テスト は 彼の prime? テストよりも 
随分 遅い よう だ。 Louis は 友達の Eva  Lu  Ator を 呼んで 助け を 求め 
た。 彼らが Louis の コード を 試して みると、 Louis が expmod 手続 
を square 手続 を 呼ぶ のでな く、 明示的に 乗算 を 用いて いる こと を 
見つけた。 

dei  ine    (expmod  base   exp  m) 
(cond   ((=  exp  0) 1) 
( ( even?  exp) 
(remainder    (*    (expmod  base    (/   exp  2)  m) 
(expmod  base    (/   exp  2)   m) ) 

m)) 

(else 
(remainder    (*  base 

(expmod  base    (-   exp 1) m) ) 
m)))) 

"これが どんな 違い を 生んで いるの かわからない よ" と Louis は 言 
つた。 "私に はわ かる" と Eva が 言う。 "手続 を そのよう に 記述す 
る ことで、 e(logn) の プロセス を e(n) の プロセスに 変えて しまつ 
たの。 " 説明せ よ。 

Exercise  1.27:  Footnote  1.47 にて 並べられた カーマイケル 数が 実 
際に フェルマー テスト を 騙す か 実演せ よ。 整数 n を 取り an が a と 
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法 n に関して 合同で あるか 全ての a<n に 対し テスト を 行う 手続 
を 書き、 与えられた カーマイケル 数に 対して その 手続 を 試せ。 

Exercise  1.28: 騙されない フェルマー テストの 1 つの 変形と し 
て 腿 er-Rabin  test  (Miller  1976;  Rabin  1980) が ある。 これ は フエ 
ル マーの 小 定理の 代替 形から 始める が、 それ は n が 素数で かつ a 
が 以下の 任意の 正の 整数で ある 時、 a の （n  — 1) 乗 は 法 n に 関し 
て 1 と 合同で あると 定める。 Miller- Rabin テストで 数値 n の 素数 
判定 を 行う に は 乱数 a  <  n を 選択し、 ひの （n  — 1) 乗の n を 法と 
する 剰余 を expmod 手続 を 用いて 求める。 しかし、 expmod 手続 中 
で 二乗す る ステップ において 毎回、 "自明で ない 法 n に関する 1 の 
平方根" を 見つけた か チェック を 行う。 これ は 1 または n— 1 に 等 
し く ない 数値で かつ、 法 n に関して 二乗した 値の 剰余が 1 に 等し 
い 数値で ある。 そのような 自明で ない 1 の 平方根が 存在 すれば n 
が 素数で はない ことが 証明 可能で ある。 またもし n が 素数で ない 
奇数で ある 時、 少なく とも a  <  n の 半分に おいて このような 方法 
で a"—1 を 演算す ると 自明で ない 法 n に関する 1 の 平方根が 現れ 
る ことが 証明 可能で ある。 （これが なぜ Miller- Rabin テストが 騙さ 
れ ないかで ある）。 expmod 手続 を 変更し 自明で ない 1 の 平方根 を 
見つけた 時 合図 を 送る ようにし、 それ を 用いて fermat-test に 似 
た Miller- Rabin テスト を 実装せ よ。 既知の 素数、 非 素数 を 用いて 
あなたの 手続 を チェック せよ。 ヒント ： expmod に 合図 を 送らせる 
簡単な 方法 は 0 を 返させる ことで ある。 


1.3 高 階 手続に よる 抽象の 形式 化 

私達 は ここ ま でで 手続が 事実上、 特定の 値から 独立 し た 数値への 複合 命令 
を 記述す る 抽象化で ある こと を 見て きました。 例えば、 

dei ine     cube  x )    (*  x  x  x ) ; 

これ は 特定の 値の 立方に ついて 述べて いるので はなく、 任意の 数値の 立方 を 得 
るた めの 手法に ついて 述べて いる 訳です。 もちろん この 手続 を 定義す る ことな 
く 常に 以下のような 式 を 書く ことで やって いくこと も 可能です。 

(*   3  3  3) 
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(*  x  x  x) 

(*  y  y  y) 

そして 明示的に cube について 触れない こと も 可能で しょ う。 しかし これ はと 
て も 大きな 不便 を 与えます。 高 レベルな 命令の 用語で はなく 常に 言語 内に プリ 
ミ ティ ブと して 偶然 存在す る レベルの 特定の 命令 レベルに て 働かざる を 得な く 
なり ます （この ケースで は 乗算です)。 私達の プログラム は 立方 を 計算 可能です 
力^ 私達の 言語 は 立方の コンセプト を 表現す る 能力が 欠けて いるか も しれ ませ 
ん。 私達が 強力な プロ ダラ ミ ング 言語から 望むべき 物の 1 つ は 共通の パター 
ンに 対し 名前 を 付ける ことで 抽象 を 構築し、 その後 抽象化の 用語に て 直接 働く 
能力です。 手続 はこの 能力 を 与えます。 これが なぜ 原始的な 物 を 除いた 全ての 
プログラミング 言語に て 手続 を 定義す る メカニズムが 含まれて いるかの 理由 
です。 

それに も 関わらず 数値 演算で すら、 も し 手続の パラメータが 数値の みで あ 
る と 制約 さ れて いれば 抽象化 を 行う に は 我々 の 能力 は 非常 に 大きく 制限 さ れて 
いると 言える でしよう。 しばしば 同じ プログラムの パターンが いくつもの 異な 
る 手続に て 使用され ます。 そのような パターン を 表現す るに は 引数と して 手続 
を 受け入れる ことができる 力 \ 手続 を 値と して 返す ような 手続 を 構築す る 必要 
が 出て きます。 手続 を 操作す る 手続 は/ w'g/ier-order  procedures (高 階 手続） と 呼 
ばれます。 この 節で は 高 階 手続が どのように 強力な 抽象化 メカニズム を 果たし、 
言語の 表現力 を 幅広く 増大す るか を 示します。 


1.3.1 引数と しての 手続 

次の 3 つの 手続に ついて 考えて みて 下さい。 1 つ 目 は a から b の 整数の 合 
計 を 計算し ます。 

dei ine    (sum-integers   a  b) 
(if    (>  a  b) 
0 

(+  a   ( sum-integers    (+  a 1) b) ) ) ) 

2 つ 目 は 与えられた 範囲の 整数の 立方の 合計 を 計算し ます。 

dei  ine    (  sum-cubes   a  d  ) 
(if    (>  a  b) 
0 

(+    ( cube  a) 
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( sum-cubes    (+  a 1) b) ) ) ) 

3 つ 目 は 以下の 級数の 一連の 項の 合計 を 計算し ます。 


1.3     5.7  '  9.11 

これ は 7T/8 に （とても ゆっくりと） 収束し ます。 49 

(, del ine に pi - sum  a  b) 
(if   (>  a  b) 

0 

(+   (/ 1.0   (*  a   (+  a  2))) 
(pi-sum    (+  a  4)  b)))) 

これらの 3 つの 手続 は 明確に 共通な 基礎 をな す パターン を 共有して います。 そ 
れらは ほとんどの 部分が 同一で、 手続の 名前、 和 を 求める 項 を a を 用いて 演算 
する 関数、 a の 次の 値 を 与える 関数の みが 異なります。 各 手続 を 同じ テン プレ 
ートを 用いて 枠 を 埋める こと で 生成す る こと がで きそうです。 

(, dei ine i, (name)  a  b) 
(if   (>  a  b) 
0 

(+   ( (term)  a) 

({name)    ( (next)  a)   b) ) ) ) 

このような 共通 パターンの 存在 は 便利な 抽象化が 表に 浮かび上が るの を 待 
つてい る こ と を 示す 強力な 証拠です。 実際に 数学者 は 大昔に srnmrnz な 'on  of  a 
series (級数の 禾ロ） の 抽象化 を 特定し "シグマ 記法" を 開発し ました。 つまり、 

^/(n)  =  /(«)  +  ... +  /(&), 

このように 表現し ます。 シグマ 記法の 力 は 数学者に 特定の 合計の みに ついて で 
はなく、 総和の コンセプト 自身に ついて 取り扱う こと を 可能に しました。 例え 
ば 特定の 級数の 和 を 求める ことから 独立して 一般的な 総和に ついての 結果 を 形 
式 化する こ と を 可能と したので す。 


49 こ の 級数 は 一般に 等価で ある 形式 モ =1— き +  §  —  +  +  にて 記述され る Leibniz に 
よる 物です。 私達 はこれ が ある 高級な 数学 上の 卜 リックに 使われる の を Section  3.5.3 で 
見る ことにな り ます。 
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同様に、 プログラムの 設計者で ある 私達 は 言語に、 特定の 総和 を 求める 手 
続 のみでな く、 総和 自身の コンセプト を 表現す る 手続 を 書く ことができ るのに 
十分に 強力に なって 欲しい と 願う でしよう。 そうする ことが 直ぐに 私達の 手続 
言語に て 上記に て 示された 共通 テンプレート を 用いて、 "枠" を 形式 パラメータ 
に 変換す る ことで 可能です。 

^define    ( sum  term  a  next  b) 
(if    (>  a  b) 
0 

(+    (term  a) 

( sum  term   (next   a)   next  b) ) ) ) 

sum が 引数と して 下限と 上限の a とわ を 手続 term と next と 一緒に 取る ことに 
注意して 下さい。 sum はこれ から 行うよう に 好きな 手続 を 使用す る ことができ 
ます。 例えば それ を （引数に 1 を 足す 手続 inc と共に) sum-cubes の 定義に 利用 

可能です。 

、 def  ine    (  inc  n)    (+  n 1 ； ) 
(define    ( sum-cubes   a  b ) 
( sum  cube  a  inc  b) ) 

これ を 用いて 整数 1 から 10 の 立方の 和 を 求める ことができます。 

に sum - cubes 1 10; 

3025 

term を 求める identity プロシジャの 助け を 借りて、 sum を 用いて sum- integers 

の 定義が できます。 

^define    ( identity  x)   x ) 
def  ine    (sum-integers   a  b; 
( sum  identity  a  inc  b) ) 

これで 1 から 10 までの 整数の 和 を 求められます。 

sum-integers 1 10； 

55 

pi-sum も 同様に 定義 可能です。 5Q 

50 ブロック 構造 （Section  1.1.8) を pi-sum の 中に pi- next と pi-term の 定義 を 埋め込 
むた めに 使用して いる ことに 注意して 下さい。 これらの 手続 は 任意の 他の 手続に 対し 
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(define    (pi-sum  a  b) 
( def ine    (pi-term  x ) 

(/ 1.0    (*  x    (+  x  2)))) 
( def  ine    (pi-next  x ) 

(+  x  4)) 
( sum  pi-term  a  pi-next  b) ) 

これらの 手続 を 用いて tt の 近似値 を 求められます。 

(*   8   (pi-sum 1 1000) ) 
3. 139592655589783 

sum を 手に入れた ことで、 それ を 構築 用 ブロックと してより 多くの コンセプト 
の 形式 化に て 利用 可能です。 例えば 関数 /の <x と& の 限度 値の 間の 定 積分 は以 
下の 式 を 用いて 小さな 値 d:r に 対し 数値 的 に 近似 可能 です。 


/  = 


„  (        dx  \      „  (        ，       dx  \      „  /  ，       dx  \ 


dx 


これ を 直接、 手続と して 表現し ます。 

に def  ine    ( integral f   a  b  dx; 
( def  ine    、  add - dx  x) 
(+  x  dx)) 

(*    (sum  f    (+  a   (/  dx  2.0))    add - dx  b) 
dx)) 


( integral   cube  0 1 0.01) 
. 24998750000000042 

(integral   cube   0 1 0.001) 
.249999875000001 

(cube の 0 から 1 の 実際の 定 積分の 値 は 1/4 です。 ） 

Exercise  1.29: シン プ ソンの 公式 は 上記に て 示された 方法よ り もよ 
リ 正確な 数値 積分の 方法で ある。 シン プ ソンの 公式 を 用いて ひ と 

有用で はなかろう ためです。 それら を 一緒に どのように 取り除く かに ついては Section 
1.3.2 で 説明し ます。 
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&の 間の/ の定 積分 は 次の よう に 近似され る。 


3  (yo  +  4yi +  2y2  +  4y3  +  2y4  +  . . .  +  2yn 一 2  +  4y„_i +  yn), 

ここで h  = ゆ— a)/n、  n は 偶数、 yk  =  f(ji +  kh) である。 (n を 増 
やすこと で 近似の 精度 を 高める ことができる）。 /,  a,  b,  n を 引数に 
取 リシン プ ソンの 公式 を 用いて 求めた 定 積分の 値 を 返す 手続 を定 
義 せよ。 

Exercise  1.30: 上の sum 手続 は 線形 再帰 を 生成す る。 手続 は 和の 計 

算が 線形で 行われる よう 書き直す ことが 可能 だ。 次の 定義に て 消 
された 表記 を 埋め、 どのように 行う のか 示せ。 

(define    (,  sum  term  a  next  b) 

(define    ( iter  a  result) 
(if  (??} 
〈？ ？〉 

(iter   (??}  〈？?〉））） 
(iter  {??)  〈？？〉）） 

Exercise  1.31: 

a  sum 手続 は 高 階 手続と して 捉えられる 非常に 多くの 数の 同様 
な 抽象化の 最も 簡単な 物にすぎ ない。 51 product と 呼ぶ 与え 
られた 範囲の 点の 関数 値の 積 を 返す 類似の 手続 を 書け。 どの 
ようにして product を 用いて factorial を 定義す るの か 示 
せ。 また product を 用いて 次の 式 を 使用して 7T の 近似値 を 計 
算 せよ。 52 

TY  _  2-4-4-6-6-8... 
 4  =  3-3-5-5-7-7... ' 

61 Exercise  1.31 から Exercise  1.33 の 目的 は、 多くの 一見で は 異なる 操作 を 統一す るた め 
に、 適切な 抽象化 を 利用す る ことで 達成され る 表現力 を 実演す る ことです。 しかし、 集積 
や フィルタ リ ングは 洗練され た 考えで はあり ますが、 この 時点で は それら を 使用す るの 
に 我々 の 両手が 縛られて いるよう な ものです。 私達 はま だ これらの 抽象化の ための 適切 
な 組み合わせの 手段 を 与える ための データ 構造 を 持って いないた めです。 私達 は Section 
2. 2. 3 にて これらの 考えに 立ち戻り、 集積と フィルタ を 組み合わせる ための ィ ン ターフェ 
イスと して sequences  (列） を どのよう に 使 うの か を 示し さらに 一層 強力 な 抽象化 を 構築 
します。 そこで は これらの 手法が 実際に どのよう にして プログラム を 設計す るの に 強力 
で 洗練され た アプローチ として 役に立つ のか を 学びます。 

52 この 式 は 17 世紀に 英国人 数学者 John  Wallis により 発見され まし た。 
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b もし あなたの product 手続が 再帰 プロセス を 生成す るので あ 
れば 線形 プロセス を 生成す る もの を 書け。 も し 線形 プロセス 
を 生成す るので あれば 再帰 プロセス を 生成す る もの を 書け。 

Exercise  I.j2: 

a.  sum と product  (Exercise  1.31) は 両方と も、 汎用の 集積 関数 
を 用いて 項の 集合 を 結合す る accumulate (集積） と 呼ばれる 
よ り 一般的な 目的の 特別な ケースに 過ぎない。 

(accumulate   combiner  nul 丄- value   term  a  next  b) 

accumulate は 引数と して sum と product と 同じく 項と 範囲 
の 指定 を （2 つの 引数の） combiner 手続と null-value を 共に 
得る。 combiner は どのよう に 現在の 項が 以前の 項の 集積と 結 
合される か を 指定し、 Mil-value は 項が 尽きた 時に 使用す 
な となる ィ [k を指疋 9 る。 accumulate を^ ^  sum と product 
の 両者が どのよう に 簡単な accumulate の 呼び出しで 定義で 
きる か を 示せ。 

b.  あなたの accumulate が 再帰 プロセス を 生成す るの なら 線形 
プロセス を 生成す る 物 を 書け。 も し 線形 プロセス を 生成す る 
のなら ば 再帰 プロセス を 生成す る 物 を 書け。 

Exercise  1.33: よ リ汎用 的な バー ジョ ンの accumulate  (Exercise 
1.32) を 結合され る 項の filteTi フィ） レタ） の 概念 を 紹介す る ことで 
得る ことが 可能 だ。 指定され た 条件 を 満たす 範囲の 値から 導かれ 
る 項の み を 連結す る。 結果と しての filtered-accumulate 抽象 は 
accumulate と 同じ 引数 を 追加の 1 引数の 述語と 共に 取り、 述語 
は フィルタ を 指定す る。 手続と しての filtered-accumulate を 書 
け。 以下 を filtered-accumulate を 用いて どのように 表現す るか 
を 示せ。 

&  a ヒ b の 区間の 素数の 二乗の 和 （あなた は 既に prime? 述語 を 
書いて いると 前提す る） 

b 全ての n 未満の 正の 整数で かつ n に対して 互いに 素 （つまり 
GCD(i.n) = 1 となる 全ての 整数 i  <  n) の 積 
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1.3.2    lambda を 用いた 手続の 構築 

Section  1.3.1 に 示す よう sum を 使用す る 時、 pi-term や pi-next のよう な 
自明な 手続 を 高 階 手続に て 引数と して 使うた めだけ に 定義せ ねばならな いのは 
ひどく 不恰好に 見えます。 pi-next や pi-term を 定義す る 代わりに、 "入力 値に 
4 を 足す 手続" や "入力 値と 入力 値に 2 を 足した 数の 積の 逆数 を 返す 手続" を 直 
接 指定す る 方法 を 持つ ほうがよ り 便利になる でしよう。 これ は 手続 を 作成す る 
特殊 形式 lambda を 紹介す る ことで 可能です。 lambda を 用いる ことで 先程 行い 
たかった こと を 以下の よう に 記述で きます。 

(lambda   (x)    (+  x  4)) 

そして 

(lambda   (x)    (/ 1.0    (*  x   (+  x  2)))) 

次に pi-sum 手続 は 補助 的な 手続 を 定義す る こと 無しに 表現が 可能と な り ます。 

^define    (pi - sum  a  b) 

(sum   (lambda   (x)    (/ 1.0    (*  x   (+  x  2)))) 


(lambda   (x)    (+  x  4)) 
b)) 

同様に lambda を 使用して、 integral 手続 を 補助 的な 手続 add-dx を 定義す る 
ことなく 書く ことが 可能です。 

、deiine    (Integra 丄 fab  dx) 
V*    v  sum  f 

(+  a   (/  dx  2.0)) 
(lambda   (x)    (+  x  dx ) ) 
b) 

dx)) 

一般的に、 lambda は define と 同様に 手続 を 作成し ますが、 手続に 対して 名前 
が 指定 されない ことが 異 な り ま す。 

、 lambda   ( (formal - parameters/)    (body) ) 

結果と しての 手続 は define を 用いて 作成した 手続と 同じです。 ただ 1 つの 違 
いは それが 環境に おいて どのような 名前に も 結び付けられ ていない ことです。 
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(define   (plus4  x)    (+  x  4) ) 

上記 は 以下と 等価です。 

(define  plus4  (lambda  (x)  (+  x  4))) 
lambda 式 は 以下の よう に 読む ことができます。 
(lambda  (x)  (+       x  4) ) 

手続 は  引数 x を 持ち 足す x と 4 

任意の 値と して 手続 を 持つ 式と 同様に、 lambda 式 は 複合 式に おいて オペ レー 
タ として 使用す る ことが 可能です。 例えば、 

(, ( lambda   (x  y  z) 、十 x  y   ( square  z; ) ) 

12  3) 
12 

またはよ リ 一般的に、 私達が 通常 手続の 名前 を 使用す る 任意の 文脈に おいて 使 
用 可能です。 53 

口一 カル 変数 使用の ため let を 用いる 

別の lambda 使用法に は ローカル 変数の 作成が あり ます。 形式的 パラメータ 
に 束縛され ていない ローカル 変数 を 手続で 必要と する 場合 は 良く あり ます。 例 
えば 以下の 関数 を 演算したい とします。 

fix,  y)  =  x(l +  xyf  +  y(l — y)  +  (1 +  xy)(l ― y), 

これ は 以下の よ うに も 表現で きます。 

a  = 1 +  xv, 

b  =  i-y, 

fix,  v)  =  xa2  +  yb  +  ab. 

53Lisp を 学ぶ 人に とって は lambda という 名前よ リ は make-procedure の 様な 名前 を 
使用した ほう が より 判り やすい か、 または 恐し く 思わせたり はしないでしょう。 しかし 
この 慣習 はしつ かリ と 根付いた 物です。 この 表記 は A-calculus (ラムダ 計算） という 数理 
論理学 者 Akmzo  Church  (1941) によ り 発表され た 数学 上の 形式主義の 名から 受け入れら 
れ ています。 Church は A 計算 を 関数と 関数 適用 の 概念 を 学ぶ ための 厳格な 基礎 として 与 
える ために 開発し ました。 A 計算 は プロ グラ ミ ング 言語の 意味の 数学 上の 研究の ための 
基礎的な ッ ール となり まし た。 
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f を 求める 手続 を 書く 場合、 x と y のみでな く 中間 値の 名前と して a や &をロ 
一 カル 変数と して 含みた くなる でしよう。 これ を 実現す る 1 つの 方法と して 補 
助 的な 手続 を ローカル 変数 を 束縛す るた め 使用す る ことがあります。 

dei ine    (f  x  v) 
( dei ine    (f -helper  a  b) 
(+    (*  x   ( square   a) ) 

(*  y  b) 

(*  a  b))) 
( f -helper    (+ 1 (*  x  y) ) 

(- i y))) ' 

もちろん、 lambda 式 を 用いて 無名 手続 を 口一 カル 変数の 束縛の ため 指定す る 
こと も 可能です。 f の ボディ はする と 手続への 単一の 呼び出し になり ます。 

def ine    (f  x  v) 
( ( lambda    (a  b ) 

(+    ( *  x   ( square   a) ) 

(*  y  b) 

(*  a  b))) 
(+ 1 (*  x  y)) 
(- 1 y))) 

こ の 構成 は とても 便利で let と 呼ばれる 特殊 形式が その 使用 をよ リ 便利 にす る 
ために 用意され ています。 let を 用いる ことで 手続 f は 以下の ようになり ます。 

(, def  ine   (f  x  v) 

(let   ((a  (+ 1 (*  x  y))) 
(b   (- 1 y))) 
(+    (*  x   ( square   a) ) 

(*  y  b) 

(*  a  b)))) 

let 式の 一般的な 形式 は 次の と お リ です。 

、丄 et   ( C  (vari)  {expi}) 
({var2)  {exp2)) 

{(varn)  (expn))) 
{body)) 
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これ は 以下の よう に 考える ことが 可能です。 


let  (vari)  have  the  value  (expi)  and 
{vari)  have  the  value  (exp2)  and 

(varn)  have  the  value  (expn) 
in  (body) 

(let は 使役の 意です ので、 〈bod 力 の 中で は 〈窗め は (fixPl、 の 値 を 持たせ 
る、 以下 繰り返しと 読めます。 ） 

let 式の 最初の 部分 は 名前と 式の ペアの リストです。 let が 評価され る 時、 各 
名前 は 関連す る 式の 値と 関連 付けされ ます。 let の ボディ は これらの ローカル 
な 値に 束縛され た 名前と 共に 評価され ます。 let 式 は 以下の 代替 文法と して 評 
価され る ためこれ が 起こ リ ます。 

(. ( lambda   {(vari)  ...  (varn) ) 
(body)) 
(expi) 

(expn)) 

インタプリタ 内に は ローカル 変数 を 提供す るた めに 新しい メカニズムが 必要と 
されません。 let 式 は 中で 行われる lambda 適用に 対する 構文 糖で しか あり ま 
せん。 

この 等価 式から let 式に て 指定され た 変数の スコープが let の ボディで あ 
る ことが わかり ます。 これが 以下の こと を 暗示し ます。 

• let は 変数 を 可能な 限り 使用され る 場所に 局地的に 束縛し ます。 例えば 
もし x の 値が 5 である 時、 次の 式の 値 は 

(+   (let   ((x  3)) 

(+  x    (*  x 10))) 

x) 

38 です。 ここで let の ボディ の 中の x は 3 です ので let 式の 値 は 33 で 
す。 一方で 最も 外側の + の 第二 引数で ある x は 依然 5 です。 

• 変数の 値 は let の 外側に て 計算され ます。 これ は ローカル 変数の 値を提 
供す る 式が ローカル 変数 自身と 同じ 名前 を 持って いる 変数に 依存す る 場 
合に 問題と なります。 例えば、 もし x の 値が 2 の 時、 次の 式で は 
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(let   ((x  3) 

(y  (+  x  2))) 
(*  x  y)) 

式の 値 は 12 にな リ ます。 let の ボディ 内部で は x は 3、  y は 4( 外側の x 
足す 2) になる ためです。 

時には let と 同様の 効果 を 得る ために 内部 定義 を 利用す る こと もあります。 例 
として、 上記の 手続 f を 次のように 定義す る こと も 可能でした。 

(, def ine   (f  x  v) 

(define  a  (+ 1 (*  x  y ) ) ) 
(define  b   (-   1 y) ) 
(+    (*  x   ( square   a) ) 

(*  y  b) 

(*   a  b))) 

しかし このような 状況で は let を 使用し、 内部 定義 は 内部 手続の みのた めに 利 
用す る こと を 好みます。 54 

Exercise  1.34: 以下の 手続 を 定義した とする。 

(define   (f  g)    (g  2)) 

すると 以下の 結果 を 得る。 
(f   square ； 

4 

(f    (lambda   (z)    (*  z   (+  z 1)))) 
6 

もし （天 邪鬼に も） インタプリタに （f  f) の 組み合わせ を 評価 させ 
たら どのような 結果が 起こる か？ 説明せ よ。 

54 内部 定義 を 十分に 良く 理解し、 プログラムが 私達が それに 意図した 意味 を 意味す る 
こと を 確実に する に は 私達が この 章で 紹介した よ リ もより 複雑な 評価 過程の モデル を必 
要と します。 しかし 手続の 内部 定義と 共に は その 機微 は 浮かび上が リ ません。 この 問題 
について は Section  4. 1.6 にて 評価に ついて よ リ 学んだ 後に 立ち戻り ます。 
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1.3.3 汎用 手法と しての 手続 

Section 1 丄 4 にて 複合 手続 を 数値 演算の 抽象化 パターンの メカニズム とし 
て 紹介し、 関係す る 特定の 数値から 独立 させました。 Section  1.3.1 の integral 
手続の よ う な 高 階 手続で は よ り 強力 な 種類の 抽象化に ついて 学び 始め ま し た。 
関係す る 特定の 関数から 独立した 汎用 的 演算 手法 を 表現す るのに 利用され る 手 
続で した。 この 節で は 2 つのよ リ 複雑な 例 一 零 と 関数の 不動 点 を 見 付 ける ため 
の 汎用 手法 一につ いて 議論し ます。 そして これらの 手法が どのように 手続と し 
て 直接的に 表現され るの か を 示します。 

半 区間 手法に よ リ 方程式の 根 を 求める 

half-interval  rraei/iod (半 区間 手法） は 方程式 f(x~)  =  0 の 根 を 求める のに 単 
純ながら 強力な テクニックです。 ここで/は 連続関数 とします。 この 考え は 
f(a)  <  0  <  /(6) となる 点 a と b を 与えた 時、 / は 最低で も 1 つの 0 を a と&の 
間に 持つ ことにな リ ます。 ゼロ を 特定す るた めに a と &の 平均; r を 求め /(め を 
計算し ます。 もし/ (め >0 なら/は 0 を a と: r の 間に 持ちます。 もし/ Or)<0 
なら/は 0 を: r と& の 間に 持ちます。 このように 繰り返す ことで/ が 0 を 持つ 
よ り 小さな 区間 を 特定で きます。 区間が 十分に 小さな 時点に 迪リ ついたら 処理 
は 停止し ます。 不確かな 区間が 処理の 各 ステップ にて 半分になる ため、 必要と 

される ステップ 数 は e(iog(zvr)) に 従い 増加し ます。 このと き i は 元の 区間 
の 長さで r は 許容誤差 （私達が" 十分に 小さい" と 考える 区間の サイズ） になり 
ます。 この 戦略 を 実装した 手続が 以下に な リ ます。 

dei ine    (search  f  neg - point  pos - point) 
(let    "midpoint    ( average  neg-point  pos - point))) 
(if    ( close-enough?  neg-point  pos - point) 
midpoint 

(let    ( (test-value    (f  midpoint))) 
( cond    (  (positive?   test-value ) 

(search  f  neg-point  midpoint ) ) 
( (negative?   test - value) 

(search  f  midpoint   pos-point ) ) 
(else  midpoint )))))) 

最初に 関数/を 値が 負と 正になる 2 つの 点と 共に 与えられ ると 想定し ます。 最 
初に 2 つの 与えられた 点の 中間 点 を 求めます。 次に 与えられた 区間が 十分に 小 
さいか チェックし、 もしそう であれば 単純に 中間 点 を 答と します。 そうでな け 
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れば 中間 点に おける f の 値 を test- value (試験 値） と して 計算し ます。 も し 試験 
値が 正な ら ば、 元の 負の 地点 か ら 中間 点 ま での 新 しい 区間に て 処理 を 続け ま す。 
も し 試験 値が 負なら ば 中間 値から 正の 地点までの 区間に て 処理 を 続けます。 最 
終 的に 試験 値が 0 になる 可能性が あります が、 その 場合、 中間 地点 そのものが 
我々 が 探して いる 根と なり ます。 

終了 地点が" 十分に 近い" か 試験す るた めに は Section  1.1.7 にて 平方根 を 求 
める ために 利用した 物 と 同様の 手続が 利用 可能です。 55 

(, def  ine    (close- enough?  x  y ;    (,<    (, abs    (-  x  y ) )  0.001); 

search は 直接 利用す るの は 扱いに くいです。 / の 値が 必要な 符号 を 持たない 点 
を 意図せ ず 与えて しまう ことが 可能な ためです。 そのよう な 場合で は 間違った 
答 を 得て しまいます。 代わり に search を 次の 手続 を 経由して 使用す る ことに 
しましょう。 これ は 終端の どちらが 負の 関数 値 を 持ち、 どちらが 正の 関数 値 を 
持つ か 検査し ます。 そして search 手続 を 適切に 呼び出します。 もし 関数が 2 
つの 与えられた 点に て 同じ 符号 を 持つ 場合、 半 区間 手法 は 使用で きません。 こ 
の 場合 この 手続 は エラー を 伝えます。 56 

dei ine    (half -  interval-method ェ a  b ノ 
(let    ( ( a - value    (f   a) ) 
(b - value    (f  b))) 
( cond   ((and   (negative?   a-value )    (posit ive?  b-value ) ) 
(search  f   a  b) ) 
((and   (negative?  b-value )    (posit ive?   a-value ) ) 

(search  f  b  a) ) 
(else    (error   " Values   are  not  of 

opposite   sign "   a  b ) ) ) ) ) 

次の 例 は 半 区間 手法 を 使用して 7T の 近似 を sinz  =  0 の 2 と 4 の 間の 根と して 

求めて います。 

、！ ia 丄 f 一 mterva 丄ー method   sin  2.0  4.0； 
3.14111328125 

55 私達 は" 小さな" 値の 表現と して 0.001 を 用い、 計算に て 受け入れられる 誤差の 許容 

範囲 を 示しました。 実際の 演算に おける 適切な 許容範囲 は 解決すべき 問題、 計算機と ァ 
ルゴ リズムの 制約に 依存し ます。 これ はしばしば とても 微妙な 考慮 事項で あり、 数値 解 
析者ゃ 他の 魔法使い のよ う な 人達の 助け を 必要と します。 

56 これ は error を 用いて 達成で きます。 error は 引数と していく つかの 項目 を 受け取 
リ それら を エラー メ ッ セージと して 出力し ます。 
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また 次の 別の 例で は 半 区間 手法 を 用いて 方程式: r3  —  2a;  — 3  =  0 において 1 と 2 
の 間で 根 を 探して います。 

(half - interval -met hod    、丄 ambda   (x; い ( *  x  x  x;    、*  2  x)    3) ) 

1.0 
2.0) 

1.89306640625 

関数の 不動 点 を 求める 

数値 :r は: r が 等式 /(め = x を 満たす 時、 関数 f の fired  point (不動 点) と 呼 
ばれます。 いくつかの 関数/に 対し 不動 点 を 初期 推測 値から 始めて f を 値が あ 
まり 変わらな く な るまで 繰 リ 返し 適用す る こ と で 求める こ と がで きます。 

m,  nm)，  /(/(/(め))， -. -， 
この 考え を 用いて 関数と 初期 推定 値 を 入力と し、 関数の 不動 点への 近似 を 生成 

する 手続、 fixed- point を 開発で きます。 指示した 許容範囲 未満の 差に 二 点が 
収まる まで 関数 を 繰り返し 適用し ます。 

(define   tolerance   0 . 00001) 
V dei ine    (fixed-point  f   first-guess ) 
( dei ine    ( close-enough?  vl v2 ) 
(<    (abs    (-  vl  v2)) 
tolerance ) ) 
( dei ine    (try  guess ) 

(let    ( に next    (f  guess ) ) ) 

(if    (close-enough?   guess  next ) 
next 

(try  next) ) ) ) 
(try  first-guess ) ) 

例 え ば この 手法 をコ サイ ン 関数の 不動 点 を 近似す るのに 利用で きます。 初期 推 
測 値 は 1 とします。 57 

i,  f lxed-pomt   cos  1.0) 
. 7390822985224 023 

57 以下 を 暇な 授業の 間に 実行して みて 下さい： 電卓 を ラジアン モードに 設定し 不動 点 

に 到達す るまで cos を 連打して みましょう。 
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同様にして、 次の 方程式の 答 を 見つけられます。 2/  =  sin J/  + cos が 

に f ixed — point    (lambda   (y;    (,+   (sin  v)    (cos  y) ソ) 1.0) 
1 . 258731 5962971 1 73 

不動 点 処理 は Section  1.1. 7 にて 平方根 を 求める のに 使用した 処理 を 思い出させ 
ます。 両者 は 共に 結果が ある 判定 基準 を 満たす まで 推測 値 を 繰り返し 改善す る 
考え を 基に しています。 実際に 直ぐ に 平方根の 計算 を 不動 点検 索 と して 形式 化 
が 可能です。 ある 数値 a; の 平方根 を 求める に は j/2  =  :r を 満たす リ を 探す 必要 
があります。 この 等式 を 等価な 形の J/ ニ^；/ぉ 58 にす ると その 関数 リ 4  の 
不動 点 を 探し てること に 気付きます。 従って 平方根 を 以下の ように 求める こと 
を 試す ことができます。 

dei ine    (  sqrt  x  ； 
(fixed - point    (lambda   (y )    (/   x  v) ) 1.0)) 

残念ながら この 不動 点検 索 は 収束し ません。 初期 推測 値 を とします。 次の 推 

測 値 は J/2  =  x/yi でさら に 次 は y3  =  x/y2  =  x/(x/Vl) = Vl です。 こ の 結果 は 
2 つの 推測 値 yi と y2 がず つ と 繰り返し、 答が 振動す る 無限 ルー プ です。 

そのような 振動 を コントロール する 1 つの 方法 は 推測 値が 大きく 変化す る 
こと を 防ぐ ことです。 回答 は 常に 推測 値 y と :r/j/ の 間にある はずです から y と 
:r/j/ の 両方から 同じ 位 遠く はない 地点に できる はずです。 従って y と ぶん の 平 
均 を 取って y の 次の 推測 値 は §(リ +  x/y) と な リ ます。 

(, def  ine    (  sqrt  x ) 

( f ixed-point    (lambda   (y )    ( average  y   、l  x  y ) ; ) 1.0；) 

(y  =  \{y  +  x/y) は 等式 y  =  :r ん を 単純に 変形した ものである ことに 注意して 
下さい。 得る ために は 等式の 両 辺に y を 足し、 2 で 割ります。 ) 

この 変更に ょリ 平方根 手続が うまく 行きます。 実際に、 もし 定義 を ひも 解 
いた 場合、 ここで 生成され た 平方根の 近似の 連続 は 元々 の Section  1.1. 7 の 平方 
根 手続が 生成す る ものと 正確に 同じ です。 この 一連の 近似値の 平均 か ら 回答へ 
の アプローチ は、 a"eraffe  dampmff (平均 減衰） と 呼ぶ テクニック であり、 良く 
不動 点検 索の 収束に 対し 手助けと なり ます。 

Exercise  1.35: 黄金 比率 (^(Section  1.2.2) は 変形 x^-1  +  l/x の不 
動 点で ある こと を 示せ。 この 比率 を 用いて ip を fixed-point 手続 
を 用いて 求めよ。 

58 け （"maps  to" (写す） と 読みます。 ） は 数学者に よる lambda の 記述 法です。 yo^y 
は （lambda  (y)   (/  x  y) ) を 意味し、 おにお ける 関数の 値 は！ ：/リ という ことです。 
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Exercise  1.36:  fixed-point を 変更し、 Exercise  1.22 にて 示され 
た newline と display プリ ミ ティブ を 用いて 生成す る 一連の 

近似値 を 表示す るよ う にせよ。 次に 尸 = 1000 の 答 を x  ^ 
log(1000)/log(x) の 不動 点 を 求める 方法で 求めよ。 （Scheme の プリ 
ミ ティ ブ である log 手続 を 利用せ よ。 これ は 自然対数 を 計算す る)。 
平均 減衰 を 用いる 場合と 用いない 場合に て ステップ 数 を 比較せ よ。 
(fixed-point を 推定 値 1 では 開始で きない ことに 注意せ よ。 これ 
は log(l) =0 での 割り算 を 引き起す ためで ある。 ) 

Exercise  I.j7: 

a 無限 coniintied/raciion (連分数） と は 以下の 形式の 式で ある。 

f=  _ ^  

D2+ あ 

例と して、 無限 連分数の 展開と して Ni と Di の 全てが 1 の 場 
合、 1/屮 を 生成し、 この 時 V は （Section  1.2.2 で 説明した） 黄 
金 比率で ある。 無限 連分数の 近似 を 求める 1 つの 方法と して 
与えられた 項の 数 を 越えた 後、 展開 を 切り捨てる 方法が ある。 
そのよう な 切 り 捨て 一所 謂ん- term  finite  continued  fraction{k 
項 有限 連分数) 一は 以下の 形式になる。 

 iVi 一 


n と d は 連分数の の 項 を 返す 1 引数 （項の 索引 i) の 手 
続で あると 考える。 （cont-frac  n  d  k) を 評価す ると ft 項 有 
限 連分数の 値 を 求める 手続、 cont-frac を 定義せ よ。 あなた 
の 手続 を 以下 を 用いて 1/ やの 近似 を 求める ことで、 一連の k 
の {直 について チ エツ クせ よ。 

i,  cont-f  rac  (lambda  (,  i) 1 . 0) 
(lambda  (i) 1.0) 
k) 

小数点 以下 4 桁の 精度の 近似 を 得る に は k は どれ だけの 大き 
さで なければ ならない か？ 
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b もし あなたの cont-frac 手続が 再帰 プロセス を 生成す るの な 
らば 線形 プロセス を 生成す る もの を 書け。 も し 線形 プロセス 
を 生成す るので あれば、 再帰 プロセス を 生成す る もの を 書け。 

Exercise  1.38:  1737 年に スィ スの 数学者、 Leonhard  Euler (レオン 
ノ、 ル ト • オイ ラー) は 学術論文 De  Fractionibus  Continuis を 出版 
した。 それに は e が 自然対数の 底で ある 時の、 e  —  2 に対する 連 分 
数 展開が 含まれて いる。 この 分数で は M は 全て 1 であり、 Di は 
数列 1, 2, 1, 1, 4, 1, 1, 6, 1, 1, 8, ... である。 Exercise  1.37 の あな 
たの cont-frac 手続 を 用いて オイラー 展開 を 基に し e の 近似 を 求 
める プログラム を 書け。 

Exercise  1.39: タ ン ジェン ト （正接） 関数の 連分数 表現 は 1770 年に 
ドイツの 数学者 J.H.  Lambert  (ヨハン • ハイ ン リツ ヒ 'ラ ン ベル 

ト） によ リ発 表された。 


ここで: r は ラジアン である。 ランベルトの 式 を 基に して 正接 関 
数の 近似値 を 求める 手続 （tan-cf  x  k) を 定義せ よ。 k は Exercise 
1.37 と 同様に 求める 項の 数 を 指定す る。 


1.3.4 返り ィ 直と しての 手続 

ここまでの 一連の 例 は 手続 を 引数と して 渡す 能力が 著しく 私達の プロ ダラ 
ミ ン グ 言語の 表現力 を 拡張す る こと を 実演し ました。 返り 値自 体が 手続で ある 
手続 を 作成す る ことで さらに 表現力 を 獲得す る ことができます。 

この 考え を Section  1.3.3 の 終わり にて 説明され た 不動 点の 例 を 振り返る こ 
とで 説明で きます。 square-root 手続の 新しい バージョン を、 みは j/ け i/j/ 
関数の 不動 点で ある という 観察 結果から 始めて、 不動 点検 索の 形で 形式 化 し ま 
した。 次に 平均 減衰 を 用いて 近似値 を 収束 させました。 平均 減衰 は それ 自体が 
便利な 汎用 技法です。 即ち 関数/を 与えられた 時、 2； における 関数の 値が 2； と 
f(x) の 平均 だと 考えます。 

平均 減衰の 考え を 次の 手続 を 用いて 説明で きます。 

dei ine    (  aver  age -damp  i  ； 、丄 ambda   (x;    ^  average  x   (f  x) ; ) ) 
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average-damp は 引数と して 手続 f を取リ その 値と して （lambda で 生成され た） 
手続 を 返します。 その 手続 は 数値 x に 適用され た 時、 x と （f  x) の 平均 を 返し 
ます。 例えば average-damp を square 手続に 適用した 時、 生成され た 手続の 値 
は、 ある 値: r において a; と：!;2 の 平均と なります。 この結果の 手続に 10 を 適用 
すれば 10 と 100 の 平均と して 55 を 返します。 59 

(  aver  age -damp   square  ) lO) 

55 

average-damp を 用いて square- root 手続 を 次の よう に 再 公式 化で きます。 

dei ine    (  sqrt  x  ； 
( f lxea-pomt     average -damp    ( lambda   、v)    (/   x  y ) ; ) 1.0)) 

この 形式 化が 手法 内に おいて どれ だけ 3 つの 考え、 不動 点検 索、 平均 減衰、 関 
数お!^  x/y について 明快に している かに 注目 して 下さい。 この square- root の 
手法の 形式 化と Section  1.1. 7 で 与えた 元の バージョンの 比較 は 示唆 的です。 こ 
れらの 手続が 同じ 処理に ついて 表現して いる こと を 心に 留めて 下さい。 そして 
同じ 処理 を これらの 抽象化 を 用いて 表現した 時に どれ だ け 明白になる の か に 注 
目して 下さい。 一般的に 処理 を 手続に 形式 化する 手法 はとても 多くの 数 有り ま 
す。 経験の 豊富な プログラマ は どのように 手続 形式 化 を 選ぶ のか、 特に 明快な 
方法 を 知っています。 そして どこで 処理の 便利 な 要素が 他の アプリケーション 
にて 再 使用可能な 独立した 要素と して 浮かび上が るかに ついて 知ってい るので 
す。 再 使用の 簡単な 例と して x の 立方根 は 関数 J/ け x/y2 の 不動 点で ある こ と 
に 注意して 下さい。 従って 直ぐに square- root 手続 を 立方根 を 求める 手続に 汎 
化する ことが 可能です。 6(3 

、deiine    ( cube-root  x ； 

f lxea-pomt     average -damp    ( lambda   、v)    (/   x    (  square  y ; ) ) ; 
1.0)) 


59 これ は 組み合わせ であり、 かつ その オペレータ もまた 合成 式で ある ことに 注意して 

下さい。 Exercise 1.4 にて 既に そのような 合成 式 を 形式 化する 能力に ついては 実演し まし 
た。 しかし あれ は 単に 簡^な 例に すぎません。 ここで は そのような 合成 式に 対する 真の 
要求 一高 階 手続に より 値と して 返される ことで 得られた 手続 をい つ 適用す るの かにつ い 
て 学び 始めます。 
60 さ ら なる 一般化に ついては Exercise  1.45 を 参照して 下さい。 
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ニュートン 法 

Section  1.1. 7 にて 初めて square- root 手続 を 紹介した 時に、 これ は Newton's 
metho《：=L— 卜 ン法） の 特別な 場合で ある と 伝えました。 もし 3； け g(x) が微 
分 可能な 関数で ある 時、 方程式 =  0 の 答 は 以下の 条件で 関数 a; け f(x) の 
不動 点と なり ます。 

き- 鏹 

そして Dg(x) は i により 微分した 導関数です。 ニュー ト ン法は 上で 学んだ 不 
動 点 を 用いる 手法で、 関数/の 不動 点 を 探す ことで 方程式の 解の 近似 を 求め ま 
す。 61 

多くの 関数； 7 において、 また 十分に 良い 初期 推測 値: r において ニュートン 
法 は s(:r)  =  0 の 解に 急速に 収束し ます。 62 

ニュートン 法 を 手続と して 実装す るた めに、 最初に 微分の 考え を 表現せ ね 
ばな リ ません。 "微分" は 平均 減衰と 同様に ある 関数 を 別の 関数へ と 変形す る こ 
とに 注目して 下さい。 例えば 関数 14  I3 の 微分 は 2；  4  3a;2 です。 一般的に 3 
が 関数で あ り dx が 小さな 値で ある 時、 g の 導関数 Dg は その 値が 任意の 数 x が 
与えられた 時に （小さな 値 da; の 極限に おいて） 

Dg{x)^^  +  dx)-g(,) 
av  '  dx 

従って 微分の 考え を （cte を 例えば 0.00001 として） 手続と して 次のように 表現 
できます。 

(, def ine    (deriv  g) 

(lambda  (x)    (/   (-   (g  (+  x  dx))    (g  x))  dx))) 

次の 定義と 一緒に 用います。 

(define  dx  0.00001) 

average-damp と 同様に、 deriv は 引数と して 手続 を 取り、 値と して 手続 を 返す 

手続です。 例えば 導関数 :r  4  :r3 の 5 における 値 （正確な 値 は 75 です） の 近似 
を 求める ために 以下の ように 評価で きます。 

61 初歩 的な 微積分 学の 教科書 は 通常 ニュートン 法 を 近似の 数列 = xn  - 
g(xn)/Dg(xn) を 用いて 説明して います。 処理に 関する 言語 を 持ち 不動 点の 考え を 用 
いる こと で 手法の 説明 を 平易に でき ま す。 

62  ニュートン 法 は 常に 解へ と 収束 はしません。 しかし 好ましい 場合に おいて は 各 繰り 
返しに お いて 解の 近似値の 精度の 桁 数 は 二倍 になる こと が 示 されます。 そのような 場合 
では ニュー ト ン法は 半 区間 手法よ リ も 大変 速く 収束し ます。 
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(define    ( cube  x )    (*  x  x  x ) ) 
( ( der iv   cube )  5) 

75.00014999664018 

deriv の 助け を 借りて、 ニュートン 法 を 不動 点 処理と して 次のように 表現で き 
ます。 

(. def ine    (newton-transform  g) 

(lambda   (x)    (-  x   (/    (g  x)    ((deriv  g)  x))))) 
(define    (newtons-method  g  guess ) 

( f ixed-point    (newton-transform  g)  guess)) 

newton-transform 手続 は こ の 節の 最初の 式 を 表現 しています。 そして newtons- 
method  が 直ぐに それ を 用いて 定義され ています。 これ は 初期 推測 値と 一緒に 
手続 を 引数と して 取り その 手続 は ゼロ を 見つけたい 関数 を 計算し ます。 例え ば、 
:r の 平方根 を 見つけたい 時、 ニュートン 法 を 用いて 関数 j/ け j/2  — a; の ゼロ を 初 
期 推測 値 1 から 始めて 探す ことが 可能です。 63 
これが 平方根 手続の 別の 形 を 与えます。 

def  ine    (  sqrt  x  ； 
^newtons-method 
、丄 ambda   (y ；    、-    、 square  v)   x) ) 1.0)) 


抽象化と 一級 手続 

よ リ 一般的な 手法の 事例と して、 平方根の 演算の 表現 方法 を 2 つ 見て きま 
した。 1 つ は 不動 点検 索で、 もう 1 つ は ニュートン 法です。 ニュートン 法 は そ 
れ 自体が 不動 点 処理と して 表現され ている ため、 実際に は 平方根 を 不動 点と し 
て 計算す る 2 つの 方法 を 見た 訳になります。 各 手法 は 関数と 共に 開始し、 その 
関数の ある 変形の 不動 点 を 探します。 この 一般的な 考え それ 自身 を 手続と して 
表現で きます。 

dei ine    (fixed-pomt-of-transform  g  transform  guess ) 
( f ixed-point    (transform  g)  guess)) 

この とても 汎用 的な 手続 は 引数と して ある 関数 を 計算す る 手続 g、  g を 変形す 
る 手続、 初期 推測 値 を 取ります。 結果と しての 返 リ値は 変形され た 関数の 不動 
点です。 

63 平方根 を 探す 場合、 ニュートン 法 は 任意の 開始 値から 急速に 正しい 解に 収束し ます。 
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この 抽象化 を 用いて、 この 節 最初の （平均 減衰 バージョンの y  4  x/y の不 
動 点 を 探した） 平方根 演算 を この 汎用 手法の 例と して 変更で きます。 

dei ine    (  sqrt  x  ； 
に fixea -; point - of -" trans ェ orm 
(lambda   (y ;    、l  x  y ) )    average-damp  1.0)) 

同様に この 節の 2 つ 目の 平方根 演算 （リ け j/2  —  i の 二 ユート ン 変形の 不動 点 を 
探す ニュートン 法の 例） を 以下の 様に 表現で きます。 

dei  ine    (  sqrt  x  ； 
(fixea-pomt-of-transiorm 
(lambda   (y ；    、-   ( square  y )   x) )   newton-transform  1.0；) 

Section 1.3 では 複合 手続 は 重大な 抽象化 メカニズム であると いう 考えから 始め 
ました。 私達の プロ グラ ミ ング 言語に おいて 演算の 一般的な 手法 を 明示的な 要 
素と して 表現す る こと を 可能に する ためです。 ここで は 高 階 手続が どのように 
これらの 一般的 手法 を 操作して さらなる 抽象化 を 作成す る こと を 可能に する の 
かにつ いて 学びます。 

プログラマ として、 私達の プログラムに 内在す る 抽象化 を 判別す る 機会 を 
迅速に 学ばねば なりません。 そして その上に 構築し、 それら を汎 化して より 強 
力な 抽象化 を 作成す る 術 を 学ばねば なり ません。 これ は 常に プログラム を 可能 
な 限り 抽象化して 書かねば ならない と言う 訳で はあり ません。 エキスパート プ 
ログ ラマ は 彼等の タスクに とって 適切な 抽象化 レベルの 選択 方法 を 知ってい ま 
す。 しかし、 これらの 抽象化 を 用いて 考えられる ようになる ことが 重要です。 
そ う すれば それら を 新しい コンテ キス ト でも 適用す る こ と に 準備す る こ と がで 
きます。 高 階 手続の 有用性 は、 それらが ここまでの 抽象化 を 私達の プロ グラミ 
ング 言語の 要素と して 明示的に 表現す る こと を 可能に して くれる ことです。 そ 

うする こと で 抽象化 は 他の 計算 上の 要素 と 同様に 扱われる こ と が 可能 と な リ 
ます 

通常、 プロ グラ ミ ング 言語 は 計算 要素が 取扱 可能になる ような 方法に 制約 
を 課します。 制約が 最も 少ない 要素 は 万 rsf-daSS (第一 級） の 地位に あると 言われ 
ます。 第一 級 要素の" 権利と 特権" の いくつか を 次に 示します。 64 

• 変数に より 名付ける ことが 可能 

• 手続に 対し 引数と して 渡す ことが 可能 


64 プロ ダラ ミ ング 言語の 要素の 第一 級の 地位の 概念 はィ ギリスの 計算機 科学者 
Christopher  Strachey  (1916-1975) による ものです。 
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• 手続の 結果と して 返す ことが 可能 
• データ 構造に 含まれる ことが 可能65 

Lisp は 他の 言語と 異な リ、 手続に 完全な 第一 級の 地位 を 与えます。 この ことが 
効率の 良い 実装に 対して 課題 を 課します が、 結果 的に 表現力に 得る 物 は 莫大な 
物と なります。 66 

Exercise  1.40:  newtons-method 手続と 共に 以下の 形式の 式に て 使 
用が 可能な 手続 cubic を 定義せ よ。 

(newtons-method     cubic   a  b  c ) 1) 

次に 三次 方程式 a;3  +  a;r2  +     +  c  =  0 の 近似 解 を 求めよ。 

Exercise  1.41: 引数が 1 つの 手続 を 引数と して 取り、 その 手続 を 二 

回 適用す る 手続 を 返す 手続 double を 定義せ よ。 例えば inc が 引数 
に 1 を 足す 手続で あれば、 （double  inc) は 2 を 足す 手続になる。 
次の 式 は どんな 値 を 返す か？ 

(、(doub 丄 e    ( double   aoubiej)    mc )  s) 

Exercise  1.42:  f と g が 2 つの 1 引数 関数 だとす る。 ff に / を composition!^ 
成） すると は 関数 a;  4  f(g(x)) と 定義され る。 合成 を 実装す る 手 
続 compose を 定義せ よ。 例えば inc が 引数に 1 を 足す 手続で ある 

場合、 

"compose   square   inc)  o) 

49 

Exercise  1.43:  f が 数値 演算 関数で あ リ n が 正の 整数で ある 時、 / 

を n 回 適用す る、 x における 値が/ (/(...  (/(:r))...)) である 関数 
を 定義で きる。 例えば/が 関数: r  4:r  + 1 である 時、 /を n 回 適 
用した 関数 は: T4;r  +  n となる。 もし/が 数値 を 二乗す る 操作な 
らば、 f を n 回 適用した 関数 は 引数 を 2" 乗す る。 入力と して f を 
計算す る 手続と 正の 整数 n を 取り、 /の n 回 適用 を 計算す る 手続 
を 返す 手続 を 書け。 その 手続 は 以下の よう に 使用可能で なければ 
ならない。 

65 こ れの例 は Chapter  2 にて データ 構造 を 紹介した 後に 学びます。 

66 第一 級 手続の 主な 実装 コスト は、 手続が 値と して 返る こと を 可能と する ために、 手続 
の 自由 変数に 対して 予備の 領域 を、 例え 手続が 実行中で なくと も 必要と します。 私達が 
Section  4.1 にて 学ぶ Scheme の 実装で は、 これらの 変数 は 手続の 環境に 保存され ます。 
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( (repeated   square  2)  5) 

625 

ヒント： Exercise  1.42 の compose を 使う と 便利で しょ う。 

Exercise  1.44: 関数の smoo^ing (補間） という 考え は 信号 処理に お 

いて 重要な 概念で ある。 /が 関数で あり cte が ある 小さな 値で ある 
時、 /の 補間と は x における 値が _f(a;  — tfo),  f(x),  and  f(x  +  dx) 
の 平均で ある 関数で ある。 入力と して/を 計算す る 手続 を 取り、 補 
間され た f を 計算す る 手続 を 返す 手続 smooth を 書け。 時には 関数 
の 補正 を 繰り返し （つまり 補間 された 関数 を さらに 補間す る こと 
を 繰り返す)、 n-fold  smoothed  function(n 次 畳み込み 補簡簡 数) を 
得る ことに は 価値が ある。 任意の 与えられた 関数の n 次 畳み込み 
補間 関数 を Exercise  1.43 の smooth と repeated を 用いて どのよう 
に 生成す るか を 示せ。 

Exercise  1.45:  Section  1.3.3 にて 平方根 を 求める 試みに おいて 単 

純に y  ^  x/y の 不動 点 を 探す ので は 収束 しないの を 見た。 この 
問題 は 平均 減衰に て 解決で きた。 同じ 手法が 平均 減衰 を 行った 
y  h>  x/y2 の 不動 点と して 立方根 を 求める 場合に おいてもう まく 行 
く。 残念ながら この 処理 は 4 乗 根で はう まくい かない 一 単一の 平 
均 減衰 は 2/ け x/y3 の 不動 点検 索 を 収束させる のに 十分で はない。 
一方で も し 平均 減衰 を 二回 行えば （すなわち y  4  x/y3) の 平均 減 
衰の 平均 減衰） 不動 点検 索 は 収束す る。 n 乗 根 を 4  x/y"-1 の 平 
均 減衰の 繰り返し を 基と して 不動 点 探索して 求める 場合に 何回の 
平均 減衰が 必要で あるか を 試行せ よ。 この結果 を用レ 、て Exercise 
の fixed-point,  average-damp,  repeated 手 を用レ 'て？ 2 乗 

根 を 求める 単一の 手続 を 実装せ よ。 必要な 数値 演算 は プリ ミ ティ 
ブ として 存在す ると 仮定す る。 

Exercise  1.46: この 章に て 説明され たいくつ かの 数値解析 手法 は 非 
常に 汎用 的な 計算 戦略で あり iterative  imprcwement 〔反復 改善 法) 
と して 知られて いる。 反復 改善 法 は 何 か を 求める ために 解の 初期 
推測 値から 始め、 推測 値が 十分に 良い か を テストし、 そうでな けれ 
ば 推測 値 を 改善し、 改善され た 推測 値 を 新しい 推測 値と して 用い 
て 処理 を 継続す る。 2 つの 手続 を 引数と して 取る 手続 iterative- 
improve を 書け。 1 つ は 推測 値が 十分に 良い か 判断す る 手続で あり、 
もう 1 つ は 推測 値 を 改善す る 手続で ある。 iterative-improve は 
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推測 値 を 引数と して 取り、 推測 値 を 十分に 良くなる まで 繰り返す 

手続 を その 値と して 返さなければ ならない。 Section 1.1.7の391^ 
手 ©^Section  1.3. J©  fixed-point 手 ,fe を iterative-improve を 

用いて 書き直せ。 
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2 


データ を 用いた 抽象化の 構築 


私達 は 今、 数学 上の 抽象化の 重要な ステップに 到達し ました。 記 
号が どんな 意味 を 持つ のか 忘れる のです。 ... [数学者] に 遊んで い 
る 暇 はあり ません。 これらの 記号 を 用いて 実行す る 演算 はいく ら 
でも あり ます、 これらが 何 を 意味す るの か 全く 考える 必要 無しに。 

— Hermann  Wevi,  The  Mathematical  Way  of  Thinking 

Chapter 1 では 演算 処理と プログラム 設計に おける 手続の 役割に ついて 集中し 
ました。 私達 は プリ ミ ティ ブな データ （数値） と プリ ミ ティ ブな 命令 （算術 演算) 
の 使い方、 組み合わせ、 条件 式、 パラメタの 使用 を 通して 複合 手続 を 形成す る 
ための 手続の 結合 方法、 define を 用いた 抽象化の 方法に ついて 学びました。 ま 
た 手続が 処理の 局地 展開の ための パターン として 見なされ 得る こ と を 学び ま し 
た。 そして 手続 内で 具体化 された プロセス に対する いくつかの 共通 パターンの、 
簡単な アルゴリズム 上の 解析 を 分類し、 推論し、 実行し ました。 また 高 階 手続 
が、 一般的な 演算の 手段 を 操作し、 その 結果 を 用いて 推測す る こと を 可能に す 
る ことにより、 私達の 言語 を 強化す る こと も 学びました。 これ はプ ログ ラミン 
グの 本質の 大部分です。 

この 章で は 私達 はよ リ 複雑な データに ついて 目 を 向ける ことにします。 第 
一章での 全ての 手続 は 単純な 数値 データ を 操作し ましたが、 単純な データ は 私 
達が 演算 を 用いて 解決した いと 願う 多くの 問題に は 不十分です。 プログラム は 
一般的に 複雑な 事象 を モデル 化する ために 設計され、 大抵の 場合、 複数の 側面 
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を 持つ 実 世界の 事象 を モデル 化する ため、 いくつかの パーツ を 持つ 演算 対象の 
オブジェ ク トを 構築せ ねばな リ ません。 従って 第一章での 焦点 は 手続 を 組み合 
わせる こと で 複合 手続 を 形成 し 抽象化 を 構築す る ことでした が、 この 章で は 任 
意の プログラミング 言語に おいてもう 1 つの 鍵と なる 側面に 向かいます。 デー 

タォ ブジェク ト を 組み合わせ compomid  ddta (複合 データ） を 形成す る ことによ 
る、 プロ ダラ ミ ング 言語が 抽象化の 構築に 対して 与える 意味です。 

私達 は なぜ プログラミング 言語に て データ を 組合せたい のでしょう 力、？ 手 
続 を 組み合わ せたいの と 同 じ 理由の ためです。 プロ ダラ ムを 設計 可能な 概念 上 
の レベルに 持ち上げ、 設計の 部品 化 を 進め、 言語の 表現力 を 拡張した いがため 
です。 手続 を 定義す る 能力が、 言語の プリミティブな 命令の レベル よりもよ リ 
高い 概念の レベルに おいて 処理 を 扱う こと を 可能に して くれる のと 同様に、 複 
合デー タ ォ ブジ ェクト を 構築で きる 能力 は、 言語の プリ ミ ティ ブな デー タ ォ ブ 
ジェク トが 与える よりもよ リ 高い 概念 レベルの データ を 扱う こと を 可能に し 
ます 

分数 を 用いて 数値 演算 を 実行す る システム 設計の 課題 を 考えます。 2 つの 
分数 を 取り それらの 和 を 実行す る 命令 add-rat を 想像し ます。 単純な データ 
を 用いる 場合、 分数 は 2 つの 整数と して 考えられます。 分子と 分母です。 する 
と 各 分数が 2 つの 整数 （分子 と 分母） で 表現され る プロ グラムの 設計が 可能で 
す。 そして add-rat は 2 つの 手続 （1 つ は 和の 分子 を 求め、 もう 1 つ は 分母 を 
求める） にて 実装され るでしょう。 しかし これ は 不恰好です。 それで は どの 分 
子が どの 分母に 関係す るの か 明示的に 追跡 をせ ねばな リ ません。 多くの 分数に 
対して 多くの 命令 を 実行す る 目的の システム において は、 そのような 詳細な 記 
録は プログラム を 大幅に 散乱させる のみでな く、 それらが 私達の 心に どんな 影 
響 を 与える かにつ いは 言う まで も あり ません。 も し 分子と 分母 を プログラムが 
分数 を 単一の 概念 上の 単位 として 見做し 静的な 方法で 扱える こ と がで きる ペア 
—compound  data  object (複合 データ オブジェ ゥ 卜）一 に "貼り 合せ" られれ ば 
ずっと 良くなる ことでしょう。 

複合 データの 使用 はまた プログラムの モジュラ リ ティ （部品 化） を 推進し ま 
す。 もし 分数 を 独自に、 直接 それ 自身 を オブジェクト として 扱う ことができれ 
ば、 分数 それ 自体 を 扱う プログラムの 一部 を、 分数が 整数の ペアと して 表現 さ 
れ るだろう という 詳細から 分離す る こと がで きます。 データ ォ ブジ ェクト が ど 
のように 表現され るか を 扱う プログラムの 部分 を、 データ オブジェ ク トが どの 
よ う に 利用 される か を 扱う プロ ダラ ムの 部分 か ら 分離す る 一般的な テク ニック 
は 強力な 設計 手法で あり data  a^rac な on (データ 抽象化） と 呼ばれます。 どのよ 
うに データ 抽象化が プログラムの 設計、 保守、 変更 をより 簡単に する か を これ 
から 学びます。 
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複合 データの 使用 は プロ ダラ ミ ング 言語の 表現力 を 実際に 増加させます。 

"一次 結合" as  + お の 形式 化に ついて 考えて みて 下さい。 a,  b,  x,  y を 引数と し 
て 取り、 +  の 値 を 返す 手続 を 書こうと 思う かもしれ ません。 これ は 引数 
が 数値で あるならば 少しも 難しい と は 思 えません。 私達 は 既に 手続 を 定義で き 
ます。 

V  def ine    (linear- comb  mat  ion  a  b  x  y; 

(+    (*   a  x)    (*  b  y))) 

しかし 数値の みが 対象で はない と 考えて みましょう。 手続の 項目と して 加算と 
乗算が 定義され ているならば 分数、 複素数、 多項式、 その他 何でも 一次 結合 を 
形式 化で きる という アイデア を 表現したい とします。 これ を 以下の 形式の 手続 
として 表現で きる でしよう。 

(, def  ine    (linear -comb  mat  ion  a  b  x  y; 
( add   (mul a  x )    (mul b  y ) ) ) 

add と mul は プリミティブな 手続 + と * ではなく、 より 複雑な ものです。 適切 
な 操作 を 引数 a,  b,  x,  y と して 与えた どのような 種類の データに 対しても 行い 
ます。 キーポ イン トは linear-combination 力 《 a,  b,  x,  y について 知らねば な 
らな いこと は 手続 add と は mul が 適切な 操作 を 行 うだろう こと のみです。 手続 
linear-combination の 視点 か ら は a,  b,  x,  y が 何で あ る か は 無関係で あ り 、 そ 
れらが どのよう によ リ プリ ミ ティ ブな データ を 用いて 表現され るの かにつ いて 
は 尚更 無関係です。 この 同じ 例が なぜ プロ ダラ ミ ング 言語が 複合 オブジェ ク ト 
を 直接 操作す る 能力 を 提供す る こと が 重要で あるの か を 示して います。 もし こ 
れが 無ければ、 linear-combination のよう な 手続に 対して その 引数 を add と 
mul に 向けて それらの 詳細な 構造 を 知らずに 渡す 方法が あり ません。 1 

私達 はこの 章 を 先に 触れられた 分数の 数値 演算 システム を 実装す る ことで 
始めます。 これが 複合 データと データ 抽象化の 議論の 背景 を 形作ります。 複合 
手続と 同様に、 解決すべき 主な 問題 は 複雑さ を 対処す るた めの 技術と しての 
抽象化で あ リ どのよう に データ 抽象化が 適切な afcsfmcfion  terriers (抽象化 バ リ 


1 手続 を 直接 操作す る 能力 は プロ グラ ミ ン グ 言語の 表現力 に対して 類似の 増強 を 与え 
ます。 例えば Section  1.3.1 において sum 手続 を 紹介し ましたが、 これ は 手続 term を 引数 
として 取リ、 ある 指定した 区間の term の 値の 和 を 求めました。 sum を 定義す るた めに は 
term のよう な 手続 を、 term がよ リ プリ ミ ティ プな 命令に て どのよ う に 表現され ている 
のかに 関わらず、 それ 自身の 要素と して 表現で きる ことが 重要でした。 実際に、 もし" 手 
続" という 概念が 無ければ sum のよう な 命令の 定義の 可能性に ついて 考えつく こ とすら 
疑わしい ことだった でしよう。 その上、 加算の 実行 を 考慮す る 範囲で は term が どのよう 
によ り プリ ミ ティ ブな 命令から 構築され 得る のかの 詳細 は 無関係な のです。 
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ァ） を 異なる プログラムの 部分の 間に 構築す る こと を 可能に する かにつ いて 学 
びます。 

複合 デー タを 形成す るた めの 鍵はプ ログ ラミン グ 言語 は ある 種の" 糊" を提 
供し なければ ならない ことで あり、 そうする ことで データオブジェクト はよ リ 
複雑な データ オブジェ ク トを 形成す るた めに 組み合わせる ことが 可能に なリ ま 
す。 多くの 有力な 種類の 糊が 存在し ます。 実際に、 全く 特別で はない 手続の み 
の "データ" 操作 を 用いて 複合 データ を どのよう に 形成す るかに ついて 発見す 
るでしょう。 これ は 第一章の 終リに 向かい 既に 希薄と なって いた "手続" と "デ 
ータ" の 区別 をよ リ ボカす ことになるでしょう。 また 列と 木 を 表現す るいくつ 
かの 保守的な 技術に ついても 探検 します。 複合 デー タを 扱う 場合の 鍵 となる 考 

えの 1 つ は dosure (クロージャ） の 概念です 一 その データ オブジェ ク トを 組み 
合わせる のに 用いる 糊 は プリ ミ ティブな データ オブジェ ク ト のみで はなく、 複 
合 データオブジェクト もまた 組み合わせられなければ なリ ません。 もう 1 つの 
鍵と な る 考え は 複合 デー タ ォ ブジ ェクト は 種々 様々 な 方法で プロ グラム モ ジ ュ 
ールを 組み立てる ための conventional  inter/aces (慣習 的ィ ンタ一 フェイス） の 
役 を 演じる ことができる ことです。 これらの アイデアの いくつかに ついては ク 
ロージャ を 用いる 簡単な グラフィック 言語 を 与える ことで 説明し ます。 

、仅 に symbolic  expressions (記号 表現) 一 その 基本的な 部分 は 任意の 記号で あ 
り 数字の みで はない データ 一 を 紹介す る ことで 言語の 具象的な 力 を 増補し ま 
す。 オブジェ ク トの 集合 を 表現す るた めの 様々 な 代替 方法に ついて 探検し ます。 
与えられた 数値 関数が 多 く の 異なる 演算 処理に よ リ 計算され 得る の と 同様に、 
与えられた データ 構造が 多くの 方法に てよ リ 単純な オブジェクト を 用いて 表現 
され 得る こ と、 表現の 選択が データ を 扱う 処理の 時間と 記憶 域の 要件に 対し 重 
大な 影響 を 与える ことにつ いて 発見す るでしょう。 記号 微分、 集合の 表現、 情 
報 符号化の コンテキスト にて これらの 考えに ついて 調査し ます。 

次に プログラムの 異なる 部分に おいて 異なって 表現され 得る データ を 用い 
て 処理す る 問題に と リ かか リ ます。 これが generic  opemtons (総称 命令） の 実装 
の 必要性へ と 導きます。 総称 命令 は 多 くの 異なる デー タ の 型 を 扱わな ければ な 
リ ません。 総称 命令の 存在 時に おける 部品 化の 保守 は 単純な データ 抽象化の み 
により 構築 可能な 場合に 比べて、 よ リ 強力な 抽象化 バリア を、 必要と します。 具 

体 的 に は data- directed  programming つ  タ jii 従 ブロ クラ ミンク) 固 別の" 5  

タ 表現に 対し 分離した 設計と addto'w^ (付加 的） に （つま リ 変更 無しに） 組み合 
わせる こ と を 可能に する 技術と して 紹介し ます。 システム 設計に 対する この ァ 
ブローチ を 説明す るた めに、 多項式 上の 記号 演算の 実行 向け パッケージ を 実装 
する ために 私達が 学んだ こと を 適用す る ことで この 章 を 終わり ます。 その実 装 
の 中で は 多項式の 係数 は 整数、 分数、 複素数、 さらに は 多項式に もな リ 得ます。 


85 


2.1 データ 抽象化の イントロダクション 

Section 1 丄 8 においてより 複雑な 手続 を 作成す る 要素と して 使われる 手続 
は 特定の 命令の 集合 として のみでな く、 手続の 抽象化 としても 見做される こと 
を 伝えました。 その 手続が どのように 実装され たの かの 詳細 は 抑制 可能で あ リ 、 
特定の 手続 それ 自身 は 相対的に 同じ 振舞 を 持つ 任意の 他の 手続で 置き換えられ 
ます。 言い換えれば、 手続が どのように 使われる か を その 手続が どのよう によ 
リ プリ ミ ティ ブな 手続 を 用いて 実装され たかの 詳細から 分離す る 抽象化 を 作成 
できます。 複合 データの ための 類似の 概念 はぬ to  a&s《raciion (データ 抽象化） と 
呼ばれます。 データ 抽象化 は どのように 複合 データ オブジェ ク トが 使用され る 
か を どれが どのよう により プリ ミ ティ ブな デー タ ォ ブジ ェクト から 構築され た 
のかの 詳細から 分離す る こと を 可能に する 方法論 （methodology,  メソ ドロジ） 
です。 

デー タ 抽象化の 基本的 な アイデア は 複合 デー タ ォ ブジ ェクト を 使用す るた 
めの プロ グラ ム を 構造 化する ことで ' '抽象 データ" 上で 操作 を 行 うこと です。 そ 
れ はつ まり、 私達の プログラムが 手元で タスク を 実行す るた めに は 厳密に は必 
要と 言えない データに 関する 想定 を 一切 持た ないよう な 方法で デー タ を 利用 し 
なければ いけない という ことです。 同時に、 "具体的" な データ 表現 は データ 
を 利用す る プログラムと は 独立に 定義され ます。 システム における これらの 2 
つの パーツの 間の ィ ン ターフェ イス は 手続の 集合で あ リ、 sefectors (セレクタ） 
ヒ constructor  s(p ン入 トラクタ、 と 呼ばれ、 抽象 データ を 具体的な 表現 を 用い 
て 実装し ます。 この テクニック を 説明す るた めに、 分数 を 扱う 手続の 集合 を ど 
のように 設計す るかに ついて これから 考えます。 


2.1.1 例： 分数の ための 数値 演算 命令 

分数 を 用いて 数値 演算 を 行いたい とします。 足し算、 引き算、 かけ 算、 割 

リ算を それらに 対して 行い 2 つの 分数が 等しい か テス ト します。 

分子と 分母から 分数 を 構築す る 方法 を 既に 持って いると 仮定す る ことから 
始めましょう。 分数 を 与えられた 時に それの 分子と 分母 を 抽出す る （または 選 
択 （セ レク ト） する） 方法 を 持って いると も 仮定し ます。 さらに コンストラクタ 
と セレクタが 手続と して 存在す ると 仮定し ます。 

•  (make-rat  〈n〉 〈め） は 分子が 整数 〈n〉 であ リ、 かつ 分母が 整数 〈d〉 であ 

る 分数 を 返す。 

•  (numer  〈幻） は 分数 〈3；〉 の 分子 を 返す。 
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(denom  (x)) は 分数く x〉 の 分母 を 返す。 


ここで 統合の ための 強力な 戦略、 y/^/i か Z  i/im/dn タ (希望的観測） を 用います。 私 
達 はま だ 分数が どのよう に 表現され るの か、 または 手続 mimei",  denom,  make- 
rat  が どのように 実装され るべき であるの かにつ いて 語って いません。 そうで 
あっても、 もし 私達が これら 3 つの 手続 を 持って いるの ならば、 足し算、 引き 
算、 かけ 算、 割り算、 等値 テスト を 以下の 関係 性 を 用いて 行う ことができ るで 
しょう。 


di ひ 2 
ni れ2 
di ひ 2 


nil  d^, 


ri\di +  ri2^i 

(hd2 
n\d2  ―  U2<i\ 

nin2 
d\di ， 
ri\d2 

(hri2  ， 
n2 


if  and  only  if    n\d2  =  nid\ 
-れら の ルール を 手続と して 表現で きます。 


、 dei ine 
(make- 


、 def  ine 
に make- 


に add - rat  x  v) 


rat 


( sub 
rat 


*  (numer 

*  (numer 
denom  x) 

rat  x  y ) 

(numer 
(numer 


x)    (denom  y ) ) 
y)    (denom  x) ) ' 
(denom  y ) ) ) ) 

x)  (denom  y ) ) 
y)    (denom  x ) ) : 


(*  (denom 

X: 

(denom 

y)))) 

( def  ine 

(mul-rat  x  y ) 

(make 

-rat    (*  (numer 

X: 

(numer 

y)) 

(*  (denom 

X: 

(denom 

y)))) 

( def  ine 

(div-rat  x  y ) 

(make 

-rat    (*  (numer 

X: 

(denom 

y)) 

(*  (denom 

X： 

(numer 

y)))) 

( def  ine 

(equal-rat?  x 

y) 

(= c* 

(numer  x)  (denom 

y)) 

(* 

(numer  y )  (denom 

x)))) 
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これで セレクタ と コンスト ラ クタの 手続で ある numer,  denom,  make-rat を 

用 いて 分数の 操作 を 定義で きまし た。 必要な 物 は 分子 と 分母 を 貼 リ 合せて 分数 
を 形成す る 何ら かの 方法です。 

ペア 

デー タ 抽象化の 具体的 レベル を 実装で きる ようになる ために、 私達の 言語 
は pair (ペア） と 呼ばれる 複合 構造 を 提供し ます。 それ は プリミティブな 手続 
cons を 用いて 構築で きます。 この 手続 は 2 つの 引数 を 取り、 2 つの 引数 を 部分 
として 持つ 複合 データオブジェクト を 返します。 ペア を 与えられた 時、 プリ ミ 
ティ ブな 手続 car と cdr を 用いて それの 部分 を 抽出す る ことができます。 2 従 
つて、 cons,  car,  cdr を 以下の ように 使用で きます。 

(. del ine  x   (,  cons 1 2) ) 
( car  x) 

( cdr  x) 

2 

ペア は 名前 を 与える ことができ、 プリ ミ ティブな データ オブジェ ク トと 同様に 
扱う ことができる データ オブジェ ク ト です。 さらに cons は その 要素が ペアで 
ある ペア や、 その 繰り返し を 作る こと も 可能です。 

v.  dei ine  x i, cons 1 2) ) 

( def ine  y   (cons  3  4)) 

( dei ine  z   ( cons  x  y ) ) 
( car    ( car  z) ) 

( car    ( cdr  z) ) 
3 

Section  2.2 において ペア を 組み立てる この 能力が、 全ての 種類の 複雑な データ 
構造 を 作成す るた めに 汎用 目的 構築 ブロック として ペアが 利用 可能で ある こと 

2  cons という 名前 は "construct" によ り ます。 car と cdr という 名前 は IBM  704 上 
での オリ ジナル の Lisp 実装に 由来し ます。 この マシン はァ ド レシ ングの 仕組みと して 
メモリ ロケ一 ショ ンの "ァ ド レス，， と "デク リ メ ン ト" の 部分 を 参照 可能でした。 car 
は "Contents  of  Address  part  of  Register" (レジスタの ァ ド レス 部分の 中身） を 表し、 
cdr ("ク ダ一" と 読みます) は "Contents  of  Decrement  part  of  Register. ，，(レジスタの デ 
ク リメ ント 部分の 中身） を 表します。 
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に 対し、 どのような 意味 を 持つ のかに ついて 学びます。 cons,  car,  cdr により 
実装され た 単一の 複合 データ プリ ミ ティ ブ ペアが 私達が 必要と する ただ 1 つの 
糊です。 ペアから 構築され た データオブジェクト は list-struct 置 《 リスト 構造 
化） データと 呼ばれます。 

分数 を 表現す る 

ペア は 分数 システム を 仕上げる ための 自然な 方法 を 提供し ます。 単純に 分 
数 を 2 つの 整数、 分子と 分母の ペアと して 表現し ます。 そして make-rat,  mimer, 
denom は 簡単に 次の よう に 実装す る ことが 可能です。 3 

def ine    (make-rat  n  d)    ( cons  n  d) ； 
(define    (numer  x)    (car  x) ) 
( def  ine    (denom  x)    ( cdr  x) ) 

また 演算 結果 を 表示す るた めに、 分数 を 分子、 スラッシュ、 分母で 表示す る こ 
とに します。 4 

def  ine    (pr  mt-rat  x  ； 
(newline ) 


3 セレクタと コンストラクタ を 定義す るもう 1 つの 実装と して 次が 挙げられます。 

t,  def  ine  make-rat  cons ) 
( def  ine  numer  car) 
( def  ine  denom  cdr) 

最初の 定義 は 名前 make- rat を 式 cons の 値に 関連 付けます。 それ は ペア を 構築す るプ 
リ ミ ティブな 手続です。 従って make-rat と cons は 同じ プリ ミ ティブな コンストラクタ 
になり ます。 

セレクタと コンストラクタ を このよう に 定義す るの は 効率が 良いです。 make-rat が 
cons を cc^Kn タ (呼び出す） 代わり に、 make-rat が cons で ^(ある） ためです。 そのため 
make-rat が 呼ばれた 時に 2 つで なく、 1 つの 手続が 呼ばれる だけになります。 しかし 一 
方で、 これ を 行う こと は 手続 呼 出の ト レース や 手続 呼 出に 対する ブレイク ボイ ン トの設 
定 に対する デバッグ 上の 手助け を 無効に してし まいます。 あなた は make- rat の 呼 出 を 見 
たくなる のであって、 cons への 全ての 呼 出 を 見たい 訳で はない からです。 

この 本で はこの 定義 スタイル を 使用し ない ことにしました。 

4display は データ を 表示す る Scheme の プリ ミ ティ ブ です。 Scheme の プリ ミ ティ ブ 
である newline は 表示 を 新しい 行から 始めます。 これらの 手続の どちらも 意味の ある 値 
は 返しません。 そのため 下記の print-rat 内での 使用に おいて は print-rat が 表示す る 
物の み を 示し、 インタプリタが print-rat の 返り 値と して 表示す る 物 は 示して いません。 
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(display   (numer  x) ) 
(display  ■'/■') 
(display   (denom  x) ) ) 

こ れで 分数 手続 を 試す こと がで きます。 

(define   one-half    (make-rat 1 2) ) 
(print-rat   one-half ) 

1/2 

(define   one-third    (make-rat 1 3) ) 
(print-rat    ( add-rat   one-half   one-third) ) 

5/6 

(print-rat    (mul-rat   one-half   one-third ) ) 

1/6 

(print-rat    ( add-rat   one-third  one-third) ) 

6/9 

最後の 例が 示す とお リ 、 私達の 分数 実装 は 分数 を 最も 小さな 項に 約分 し ません。 
これ を make-rat を 変更す る ことで 改良で きます。 も し Section  1.2.5 で 扱った 2 
つの 整数の 最大公約数 を 生成す る gcd 手続 を 持って いれば、 gcd を 用いて 分子 
と 分母 を 最小の 項に、 ペア を 構築す る 前に 縮小す る こと がで きます。 

(define    (make-rat  n  d) 
(let    ((g   (gcd  n  d))) 

(cons    (/  n  g)    (/  d  g)))) 

こ れで 次の 希望 し た 結果 を 得ます。 

(print-rat    i. add-rat   one-third  one-third; ) 

2/3 

この 変更 は （add-rat や nml-rat のよう な） 実際の 命令 を 実装す る 他の 手続の 
変更 無しに、 コンストラクタ make-rat を 変更す る ことで 達成され ました。 

引数 を 扱える より 良い 版の make-rat を 定義せ よ。 Exercise  2.1: 正 
と 負の 両方の make-rat は 符号の 正常化 を 行わなければ ならない。 
従っても し 分数が 正で あれば 分子と 分母の 両方が 正で ある し、 も 
し 分数が 負で あれば 分子の みが 負で な ければ な ら ない。 
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2.1.2 抽象化 バリア 

さらなる 複合 データと データ 抽象化の 例 を 続ける 前に、 分数の 例に て 持ち 
上がった いく つかの 問題に ついて 考えて みま しょう。 私達 は 分数 操作 を コ ンス 

トラクタ make-rat と セレクタ numer と denom を 用いて 定義し ました。 一般的 
に データ 抽象化の 基と なる 考え は データ オブジェ ク トの各 型に 対し、 その 型の 
データ オブジェ ク トの 全ての 操作が 表される 命令 を 用いて、 命令の 基本的な 集 
合 を 判断し、 その データ を 操作す る 時に それらの 命令の み を 用いる ことです。 

私達 は Figure  2.1 にて 示された 分数 システム の 構造 を 想像す る こ と がで き 
ます。 水平線 は a&siraciiori  Carriers (抽象化 バリア） を 表現し、 システムの 異な 
る "レベル" を 分離し ます。 各 レベルで は バリア は データ 抽象化 を 利用す る （上 
側の） プログラム を データ 抽象化 を 実装す る （下側の） プログラムから 分離し ま 
す。 分数 を 利用す る プログラム は もっぱら 分数 パッケージ により "公用 向け" 
に 提供され た 手続 を 用いて 分数 を 操作し ます。 それら 手続と は add-rat,  sub- 
rat,  null — rat,  div-rat, それ (こ equal — rat7 です 0 これら （ま |1 匿 (こ、 もつ （まら 3 ン 
ス トラクタ と セレクタ である make-rat,  numer,  denom を 用いて 実装され ます。 
この 3 つ は ペア を 用いて 実装され ます。 ペアが どのよう に 実装され ている かの 
詳細 は ペアが cons,  car,  cdr の 使用に よ リ 操作で きる 限リ において は 分数 パッ 
ケージの 他の物に 取って は 重要ではありません。 実質的に、 各 レベルに おける 
手続 は 抽象化 バリア を 定義す る インターフェイス であり、 異なる レベル を 接続 
します。 

この 単純な 考え は 多くの 利点 を 持ちます。 1 つの 利点 は プログラムの 保守 
と 変更 をより 簡単に する ことです。 任意の 複雑な データ 構造が、 プ ログ ラミン 
グ 言語に よ リ 提供され る プリ ミ ティ ブな データ 構造 を 用いて 多彩な 方法で 表現 
されます。 もちろん、 表現の 選択が その上で 操作 を 行う プログラムに 影響 を 与 
えます。 従っても し 表現が ある 程度 後に 変更され た 場合、 全ての 当該 プロ ダラ 
ムは それに 応じて 変更され なければ なり ません。 この 作業 は 大きな プログラム 
の 場合に おいて は 表現 上の 依存が 設計に より とても 少ない プログラム モジ ユー 
ル に対して のみに 制限され ていなければ 時間の かかる 高コス トな 物に 成り 得 
ます。 

例と して、 分数 を 最小の 項へ と 約分す る 問題の 解法の 代替 法に は、 分数 を 
組み立てた 時で な く  、 分数の パーツ に アクセス する 度に 約分 を 実行す る 方法が 
あり ます。 これ は 異なる コンストラクタと セレクタ 手続に 導きます。 

def ine    (make-rat  n  d)    ( cons  n  d) ； 
(define    (numer  x) 

(let    ( (g   (gcd   (car  x)    ( cdr  x) ) ) ) 
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Programs  that  use  rational  numbers 


Rational  numbers  in  problem  domain 


add - rat    sub-rat    . . . 

Rational  numbers  as  numerators  and  denominators 


make-rat    numer  denom 

Rational  numbers  as  pairs 


cons    car  cdr 

However  pairs  are  implemented 


Figure  2.1: 分数 パッケージ 内の 抽象化 バリ ァ 

(/    (car  x)  g))) 
(, del ine    (denom  x) 

(let    ( (g   (gcd   (car  x)    ( cdr  x) ) ) ) 
(/    (cdr  x)  g))) 

この 実装と 依然の 実装との 間の 違い はいつ gcd を 求める かに あり ます。 私達の 
典型的な 分数の 使用 において は、 同じ 分数の 分子 と 分母に 何度も アクセス する 
場合、 分数が 組み立てられる 時に gcd を 求める ほうが 好ましいです。 そうでな 
ければ gcd を 求める の は アクセス する 時まで 待った ほうが 良い かも しれ ませ 
ん。 どちらの 場合で も、 一方の 表現から もう 一方の 表現へ と 変更す る 場合、 手 
続、 add-rat,  sub-rat, その他 は 全く 変更す る 必要が あり ません。 

表現 上の 依存 対象 を 少ない インターフェイス 手続に 制約す る こと はプ ログ 
ラムの 設計と 共に それらの 変更 を も 手助けし ます。 なぜな ら 代替 的な 実装 を 考 
える た めの 柔軟性 を 保つ こと を 可能に する ためです。 私達の 簡単 な 例で 続け る 
ために、 私達 は 分数 パッケージ を 設計 中で、 早期に gcd を 構築 時と 選択 時の ど 
ちらで 実行す るか 決められな いと 想像して 下さい。 データ 抽象化 メソ ドロジ は 
その 決定 を システムの 他の 部分 上の 進行の 可能性 を 失わせずに 決定 を 遅らせる 
方法 を 与えます。 
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Exercise  2.2: 平面 上の 線分 を 表現す る 問題に ついて 考える。 各 線 
分 は 点の ペアに て 表現す る。 始 点と 終点で ある。 コンストラクタ 
make- segment と セレクタ start- segment と end-segment ビ 疋我 

せよ。 それら は 点 を 用いて 線分の 表現 を 定義す る。 さらに 点 は 数値 

の ペアに て 表現で きる。 s 座標と y 座標で ある。 それに 沿って この 
表現 を 定義す る コンストラクタ make-point と セレクタ x-point 
を y-point を 定めよ。 最後に、 セレクタと コンストラクタ を 用い 
て 引数と して 線分 を 取り その 中点 （その 座標が 両端 点の 座標の 平 
均で ある 点） を 返す 手続 midpoint-segment を 定義せ よ。 あなたの 
手続 を テストす るた めに は 以下の 点 を 表示す る 方法が 必要だろう。 

^define    (pr mt-po int  p) 


(newline ) 

(display 

"(") 

(display 

(x - point 

p)) 

(display 

(display 

(y - point 

p)) 

(display 

,,),,)) 

Exercise  2.3: 平面 上の 長方形の ための 表現 を 実装せ よ。 （ヒント ： 
Exercise  2.2 を 利用した いだろう。 ) コンストラクタと セレクタ を 
利用して、 与えられた 長方形の 周辺の 長さと 面積 を 求める 手続 を 
作れ。 適切な 抽象化 バリア を 用いて どんな 表現 を 用いても 同じ 周 
辺 長と 面積の 手続が 働く よう、 あなたの システム を 設計で きる だ 
ろうか？ 

2.1.3 データに より 何が 意味され るの か 

Section  2.1.1 にて 分数 実装 を 分数 演算 add-rat，  sub-rat, その他 を 3 つの 
定められ ていない 手続、 make-rat,  numer,  denom を 用いて 実装す る ことから 始 
めました。 その 時点で は 命令 は データオブジェクト 一分 子、 分母と 分数 を 用い 
て 定義され ると 考える ことができました。 データ オブジェ ク トの 振舞 は 後者の 
3 つの 手続に ょリ 指定され ました。 

しかしぬ to (データ） と は 正確に は 何 を 意味す るので しょう 力、。 "与えられた 
セレクタと コンストラクタ により 実装 された 物 全て" と言うの みで は 十分で は 
あ り ません。 明かに 3 つの 手続の 任意の 集合 全てが 分数 実装に 対する 適切な 基 
準と しての 役割 を 果せる 訳で はあり ません。 もし 分数 x を 整数の ペア n と d か 
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ら 組み立てた 場合、 x の numer と denom の 抽出し それら を 割る こと は、 n を d 
で 割る のと 同じ 結果に なること を 保証せ ねばな りません。 言い替えれば、 make- 
rat,  numer,  denom は 任意の 整数 n と 零で ない 整数 d に 対し もし x が （make-rat 
n  d) である 時、 その 場合 以下の 条件 を 満たさなければ なり ません。 

(numer  x リ  n 
(denom  x;  d 

実際に これが make-rat,  numer,  denom が 分数 表現の ための 適切な 基準 を 形 
成す るた めに 満たさなければ ならない ただ 1 つの 条件です。 一般的に、 私達 は 
データ を セレクタと コンストラクタの ある 集合と 共に、 これらの 手続が 有効な 
表現と なる ために 満たさなければ ならない 制約に より 定義され る と 考える こと 
がで きます。 5 

この 視点 は 分数の ような "高 階 データ オブジェ ク ト" のみ を 定義す るので は 
なく、 より 低い レベルの オブジェクトの 定義 も 提供す る ことができます。 私達 
が 分数 を 定義す るた めに 使用した ペアの 概念に ついて 考えて みます。 私達 はま 
だ ペアと は 実際に は 何で あるの か 述べて いません。 言語が 手続 cons,  car,  cdr 
を ペア 上の 命令と して 提供す るとの み 説明して います。 しかし これら 3 つの 
命令に ついて 知らなければ いけない こと はも し 私達が 2 つの オブジェ ク ト を 
cons を 用いて 貼リ 合わせた 時、 car と cdr を 用いて それらの オブジェ ク トを取 
得する ことができる ことのみ です。 つまり、 それらの 命令 は 任意の オブジェ ク 
ト x と y に 対し、 もし z カ《 （cons  x  y) であるなら （car  z) は x であり、 （cdr 
z) は y であると いう 制約 を 満たして います。 実際に、 これらの 3 つの 手続 は 
言語に プリ ミ ティ ブと して 含まれて いる ことにつ いて 既に 述べました。 しかし、 
上記の 制約 を 満たす 任意の 3 つの 手続なら ペア を 実装す るた めの 基盤と して 使 

5 意外に もこの 考え は 厳格に 形式 化する ことが とても 難しい のです。 そのような 形式 
化 を 与える 試み は 2 つあります。 1 つ は C.  A.  R.  Hoare  (1972) により 開拓され、 abstract 
modek (抽象 モデル） として 知られて います。 "手続 プラス 制約" の 仕様 を 上の 分数の 例 内 
で 概説され たように 形式 化します。 分数 表現 上の 条件 は 整数に 関する 事実 （等値 関係と 
除算） を 用いて 規定され ています。 一般的に 抽象 モデル は 新しい 種類の データ オブジェ 
ク トを 以前に 定義され た データ オブジェ ク トの型 を 用いて 定義し ます。 従って データ ォ 
ブジェク ト に関する 成立 条件 は それら を 以前に 定義され た データ オブジェ ク ト に関する 
成立 条件へ と 還元して いく ことで チェック できます。 もう 1 つの 試み は mit の Zilles と 
IBM の Goguen,  Thatcher,  Wagner,  Wright に よ リ 紹介され （Thatcher  et  al. 1978 を 参 
照)、 また トロント 大学の Guttag により 紹介され ました。 （Guttag  1977 を 参照)。 その 
試み は" 手続" を 抽象 代数 システムの 要素と 見做し、 その 振舞 は" 条件" に 相当す る 公理 
によ リ 指定され ました。 そして 抽象 代数の テクニック を 用いて データオブジェクトに 関 
す る 成立 条件 を チェック しました。 両者の 手法が Liskov  and  Zilles  (1975) に よ リ 論文 と 
して 調査され ています。 
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用す る ことが 可能です。 この 点 は 私達が cons,  car,  cdr を どんな データ 構造 も 
全く 利用せ ずに、 しかし 手続の み を 用いて 実装で きる ことにより、 著しく 説明 
されます。 これが その 定義です。 

(, def ine    (  cons  x  y ) 

(define    (dispatch  m) 
( cond   ((=  m  0)  x) 
((= m 1) y) 

(else    (error   " Argument  not   0  or 1: CONS "  m) ) ) ) 
dispatch) 
(define    (car  z)    (z  0)) 
(define    ( cdr  z)    (z 1)) 

この 手続の 使用 はデー タ が 何で ある べき かとい う 私達の 直感的 概念の ような 物 
に は 全く 関係し ません。 それでも なお、 これが ペア を 表現す るのに 有効な 方法 
であると 示す のに 必要な こと 全て はこれ らの 手続が 上で 与 え ら れた 制約 を 満た 
す ことです。 

注意すべき 微細な 点 は （cons  x  y) により 返される 値 は 手続 一すな わち 内 
部で 定義され た 手続 dispatch である ことです。 それが 1 つの 引数 を 取り x か y 
のど ちらか を 引数が 0 であるか 1 であるかに 従って 返します。 相応して、 （car 
z) は z を 0 に 適用し ます。 故に もし z が （cons  x  y) により 作られた 手続で あ 
るの なら、 z を 0 に 適用 すれば x を 返します。 従って、 （car  (cons  x  y) ) が 希 
望 通りに x を 返す こと を 示しました。 同様に （cdr  (cons  x  y) ) は （cons  x  y) 
の 返り 値と しての 手続 を 1 に 適用し、 y を 返します。 従って この ペアの 手続と 
しての 実装 は 有効な 実装で あ リ 、 も し 私達が cons,  car,  cdr のみ を 用いて ペア 
に アクセス する 場合、 この 実装 を "本物の" データ 構造 を 用いる 実装と 区別す 
る こと はでき ません。 

ペアの 手続に よる 表現 を 提示す る ことの ボイ ントは 私達の 言語が このよう 
に 働いて いると いう ことで はな く  （Scheme や 一般的な Lisp システム は 効率 上 
の 理由から ペア を 直接的に 実装し ます)、 しかし それが このように 働く ことが 
できる という ことです。 手続に よる 表現 は 曖昧です が、 ペア を 表現す るのに 完 
璧に 適切な 方法です。 ペアが 満たすべき 必要な 条件 を 満たす からです。 この 例 
はまた 手続 を オブジェクト として 操作す る 能力 が 自動的に 複合 デー タを 表現す 
る 能力 を 提供す る こと を 実演し ました。 これ は 今 は 珍しく 見える かもしれ ませ 
んが、 しかし 手続に よる データの 表現 は 私達の プロ ダラ ミ ングレ パー ト リの中 
心的 役割 を 演じます。 この プロ グラ ミ ング スタイル は 時折 message  passing け 
ッ セージ パッシング） と 呼ばれ、 私達 はこれ を Chapter  3 にて モデリングと シ 
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ミュレ ーシ ヨンの 問題 を 解決す る 時に 基本的な ツールと して 用います。 

Exercise  2.4: ここに ペアの 代替 的な 手続 上の 表現が ある。 この 表 
現に 対して （car  (cons  x  y) ) が 任意の オブジェ ク ト x と y に 対 
して x を 返す か 確認せ よ。 

(. def ine    (cons  x  y ) 

(lambda   (m)    (m  x  y) ) ) 
(define   ( car  z) 

(z   (lambda   (p  q)   p; ； ) 

対応す る cdr の 定義 はどうなる 力、？ （ヒント ： これが 正しく 働く か 
確認す るに は Section  1.1. 5 の 置換 モデル を 使用せ よ） 

Exercise  2.5: 負で はない 整数の ペア を 数値と 数値 演算 命令の み を 

用いて 表現で きる こと を、 もし a と &の ペア を 積 2a36 の 整数で 
表現 すれば 可能で ある ことにより 示せ。 対応す る 手続 cons,  car, 
cdr. の 定義 を 与えよ。 

Exercise  2.6: ペア を 手続と して 表現す る ことが 十分に 驚かせる に 
値する もので ない 場合、 手続 を 操作 可能な ある 言語に おいて は 0 
と 1 を 足す こと を 以下の ように 実装す る ことで 数値が 無くても や 
つてい ける （少な く とも 負で はない 整数の み を 考える 場合に おい 
て は） こと を 考えて みよ。 

(define  zero   "ambda   (f ) (lambda   (x)   x) ) ) 
(define    ( add- 1 n) 

(lambda   (f ) (lambda  (x)    (f    ((n  f )  x))))) 

この 表現 は その 開発 者に 因んで CTmrc/i  rmmera/s (チャーチ 数） と し 
て 知られる。 Alonzo  Church はん 演算 を 発明した 論理学 者で ある。 
one  と two を 直接  (zero  C  add-1 ビ 用レ、 9 に) 疋 fe せよ。 (ヒント： 
加算 手続の 直接的な 定義 + を 与えよ。 （add-l の 繰り返し 適用 は 用 
いない） 


2.1.4 延長 課題： 区間 演算 

Alyssa  P.  Hacker は 人々 が 工学 上の 問題 を 解く の を 手助けす る システム を 
設計して います。 システム において 彼女が 提供したい 1 つの 機能 は （物理 機器 
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の 測定され た パラメ ータ のよう な） 不正確な 量 を 既知の 精度に て 扱 う 能力です。 
演算が そのよう な 近似 量に て 行われた 時、 結果が 既知の 精度の 値になる よ う に 
する ためです。 

電気 技術者 達が Alyssa の システム を 電気の 量 を 計算す るた めに 使用し ま 
す。 彼ら は 時折 2 つの 抵抗 i^,  R2 の 並列に 等価な 抵抗 値 i?p を 次の 式 を 用いて 
計算す る 必要が あり ます。 

。 _ 1 

"p 一  1/Ri + 1/R2  ' 

抵抗 値 は 通常 抵抗の 生産者に より 保証され るいく ら かの 許容誤差 未満で あ 
る ことが 知られて います。 例えば もし あなたが" 10% の 許容誤差で 6.8fT とラ 
ベリ ング された 抵抗 を 買った としたら、 確かな の は その 抵抗 は 6.8  — 0.68  =  6.12 
と 6.8  +  0.68  =  の 間の 抵抗 を 持つ ことのみ です。 従って、 もし 10% 

の 抵抗と 並列に 5% の 抵抗 を 接続した 場合に、 組み合わせの 抵抗 は 約 
2.580(2 つの 抵抗が 低 限で ある 場合） から 約 2.97fi(2 つの 抵抗が 上限で ある 場 
合） の 区間に なリ ます。 

Alyssa の アイデア は "interval  arithmetic" (区間 演算） を "区間" （不正確な 量 
の 取り得る 値の 区間 を 表現す るォ ブジェク ト） を 連結す る 演算 命令の 集合と し 
て 実装す る ことです。 2 つの 区間の 加算、 減算、 乗算、 除算の 結果 は それ 自身 
が 区間で あり、 結果の 範囲 を 表します。 

Alyssa は 2 つの 終端、 下限と 上限 を 持つ" 区間" と 呼ばれる 抽象 オブジェ 
クトの 存在 を 仮定し ました。 彼女 はまた 区間の 終端 を 与えられた 時、 データ 
コンストラクタ make-interval を 用いて 区間の 構築が できる と 仮定し ました。 
Alyssa は 最初に 2 つの 区間 を 足す 手続 を 書き ま した。 彼女 は 和の 最小値 は 2 つ 
の 下限の 和で あり、 最大値 は 2 つの 上限の 和になる だろうと 推測し ました。 

def ine    (add- interval x  y ; 
(make-interval (+    (lower-bound  x ) ( lower-bound  y ) ) 

(+    (upper-bound  x )    (upper-bound  y ) ) ) ) 

Alyssa はまた 2 つの 区間の 積 を 限界 値の 積の 最小値と 最大値 を 見つける ことで 
算出し、 そして それら を 結果 区間の 限界 値と して 用いました。 （min と max は 任 
意の 数の 引数の 最小値と 最大値 を 見つける プリ ミ ティ ブ です)。 

def  ine    (mul- interval x  y ; 

(let    ( (pi (*    (lower-bound  x) ( lower-bound  y ) ) ) 

(p2    (*    (lower-bound  x)  (upper-bound  y ) ) ) 

(p3    (*    (upper-bound  x) ( lower-bound  y ) ) ) 
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(p4   (*    (upper-bound  x)    (upper-bound  y ) ) ) ) 
(make-interval    (min  pi p2  p3  p4) 

(max  pi p2  p3  p4)))) 

2 つの 区間 を 割る ために、 Alyssa は 一つ目に 2 つ 目の 逆数 を 掛けました。 区間 
の 逆数の 限界 値 は 上限の 逆数と 下限の 逆数 を その 順で 用いる ことに 注意して 下 
さい。 

dei ine    (div - interval x  y ； 
(mul- interval 
x 

(make-interval (/ 1.0    (upper-bound  y ) ) 

(/ 1.0    (lower-bound  y))))) 


Exercise  2.7:  Alyssa の プログラム は 未完成で ある。 なぜなら 彼女 
は 区間の 抽象の 実装 を 特定して いない。 以下に 区間の コンス ト ラ 
クタの 定義 を 置く。 

(, def ine    (make - interval a  b)    (  cons  a  b ) ) 

セレクタ upper-bound と lower-bound を 定義 し 実装 を 完成 させよ。 

Exercise  2.8:  Alyssa の 考えと 同様の 推論 を 用いて、 2 つの 区間の 
差が どのよう に 計算 される か を 説明せ よ。 対応す る 減算 手続 sub- 
interval  を疋 fiir よ。 

Exercise  2.9: 区間の (幅） は 上限と 下限の 差の 半値で ある。 幅 

は 区間で 指定され た 数値の 不確か さの 基準で ある。 いくつかの 数 
値 演算に 対して は、 2 つの 区間 を 結合した 結果の 幅 は 引数 区間の 
幅の みに よる 関数で ある。 一方で 他の 演算に おいて は 結合の 幅 は 
引数の 幅の 関数で はない。 2 つの 区間の 和、 または 差の 幅 は 足され 
る、 または 引かれる 区間の 幅の 関数で ある こと を 示せ。 これが 乗 
算と 除算に おいて は 正しく ない こと を 例 を もって 示せ。 

Exercise  2.10: エキス パー トシス テム プログラマの Ben  Bitdiddle 

は Alyssa の 肩 越しに 司 見いて、 区間の 長さが 0 の 時に 割ったら どう 
なる のか 不明 だよ と コメントした。 Alyssa の コード を 変更し、 この 
条件 を チェックして もし それが 起これば エラー を 返す ようにせ よ。 
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Exercise  2.11: 通り過ぎながら Ben はまた 曖昧な コメント を 残し 
た。 "区間の 終端の 符号 を テス ト する ことで mul-interval を 7 つ 

に 場合 分けで きる。 その 1 つのみ が 2 つ 以上の 乗算 を 必要と する。 
" この 手続 を Ben の 提案に 従い 書き直せ。 

プログラム を デバッグした 後で、 Alyssa は ユーザ 候補の 一人に 見せた。 彼 は 彼 
女の プログラム は 間違った 問題 を 解いて いると 文句 を 言った。 彼が 欲し いのは 
中央 値と して 表現され た 数値と 追加の 許容誤差 を 扱える プログラム だ。 例えば 
彼 は 3.5±0.15 のよう な 区間 を 扱いた く、  [3.35,  3.65] ではない。 Alyssa は 彼女 
の 机に 戻 リ この 問題 を 代替と なる コ ン スト ラク タと セレクタ を 提供す る ことで 
直した。 

def ine    (make-cent er-width  c  w; 

(make-interval (- c  w)    (+  c  w) ) ) 
( def  ine    ( center   i ) 

(/    (+    (lower-bound  i )    (upper-bound  i ) )    2) ) 
( def  ine    (width  i) 

(/    (-    (upper-bound  i ) ( lower-bound  i ) )    2) ) 

不運な ことに、 Alyssa の ユーザの 多く は エンジニアです。 実際の 工学の 場で は 
通常、 小さな 不確か さ を 伴な う 計測 を 伴い、 区間の 中央 値に 対する 区間の 幅の 
割合と して 測定され ます。 エンジニア は 通常 パーセンテージ にて 許容誤差 を 端 
末の パラメータ 上に、 以前に 与えた 抵抗の 仕様の ように 指定し ます。 

Exercise  2.12: コンストラクタ make-center-percent を 中央 値と 

パーセンテージ 許容誤差 を 取り 望まれた 区間 を 返す ように 定義せ 
よ。 セレクタ percent を 与えられた 区間に 対する パーセンテージ 
許容誤差 を 返す よ う に 定義す る こと も 行う こと。 center セレクタ 
は 上で 見た ものと 同じで ある。 

Exercise  2.13: 小さな パーセンテージ 許容誤差の 前提の 下で は、 2 
つの 区間の 積の パー セ ン テージ 許容誤差 を 因数の 許容誤差 を 用い 
て 近似す るた めの 簡単な 式が 存在す る こと を 示せ。 全ての 数値 は 
正で あると 前提して 問題 を 簡単に しても 良い。 

大変な 仕事 を 終え、 AlyssaP.  Hacker は 完了した システム を 受け渡しました。 
何年 か 後、 彼女が 全て を 忘れた 頃に、 彼女 は 興奮した 電話 を、 怒った ユーザ、 
Lem  E.  Tweakit から 受けました。 どうやら Lem は 並列 接続の 抵抗の 式が 2 つ 
の 代数 的に 等価な 方法で 書 くこと がで きる こと に 気付いた よ う です。 

R、  R2 
R1+R2 
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と 


l/Ri + 1/R2  ' 

彼 は 以下の 2 つの プログラム を 書きました。 それぞれが 並列 接続の 抵抗 値を異 

なる 式で 計算し ます。 

(, def ine    (pari r 1 r2) 

( div- interval    (mul- interval 
( add - interval 

(define    (par2  r 1 r2) 

(let    "one    (make-interval 1 1))) 
(div - interval 
one    ( add- interval    (div - interval   one  r 1 ) 

(div - interval   one  r2 ) ) ) ) ) 

Lem は Alyssa の プログラム は 2 つの 方法の 演算に て 異なる 値 を 返す と抗 
議 しました。 こ れは 深刻な 苦情です。 

Exercise  2.14:  Lem が 正しい こ と を 確認せ よ。 様々 な 数値 演算に て 

システムの 挙動 を 調べよ。 ある 区間 A と B を 作成し、 式 と 
A/B の 計算に おいて それら を 用いよ。 幅が 中央 値の 小さな パー セ 
ン テージ である 区間 を 用いる ことで 多くの 実態 を 掴む ことができ 
るだろう。 center- percent 形式 （Exercise  2.12 参照） の 演算の 結果 を 
調査せ よ。 

Exercise  2.15:  Eva  Lu  Ator はも う 一人の ユーザで、 彼女 もまた 異 
な る が 代数 的に は 等価な 式に よ リ 異な る 区間が 算出 される ことに 
気付いた。 彼女 は Alyssa の システム を 用いて 区間の 計算 をす る 式 
力 《、 も し 式が 不確かな 値 を 表現す る 変数が どれ も 繰り返されない 
形で あれば、 より 厳しい エラーの 限界 を 算出す ると 言う。 従って 
彼女 は 抵抗の 並列に 対し、 par2 の 方が pari よ リ "よ リ 良い" プロ 
グラムで あると 述べた。 彼女 は 正しいだ ろうか？ それ は 何故か？ 

Exercise  2.16: 一般的に、 なぜ 等価な 代数式が 異なる 答に 導く のか 
説明せ よ。 この 欠点 を 持たない 区間 演算 パッケージ を 開発す る こ 
と は 可能だろう 力、。 または 不可能だろう 力、。 （警告： この 問題 はと 
て も 難しい） 


rl r2) 
rl r 邏 
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Figure  2.2:  (cons 1 2) の 箱と ポインタ 表現 


2.2 階層 データと 閉包性 

ここまで 学んだ ように、 ペア は 私達が 複合 データ オブジェ ク トを 構築す る 

のに 利用 可能な プリ ミ ティ ブな "糊" を 提供し ます。 Figure  2.2 は ペア 一 この 場 
合 は （cons 1 2) にて 形成され た ペア を 図示す る 標準 的な 方法 を 示して います。 
この bon-and-pointer  notation (箱と 点 表記法:) と 呼ばれる 表現に おいて、 各ォブ 
ジェク トは 箱への pointer (ポインタ） として 表わされ ています。 プリ ミ ティブ ォ 
ブジェク トの箱 はォ ブジェク トの 表現 を 持って います。 例えば 数値の 箱 は 数字 
を 持って います。 ペアの 箱 は 実際に は 二重の 箱で、 左 部分 は ペアの car (への ポ 
インタ） を 持って おり、 右 部分 は cdr を 持って います。 

私達 は 既に cons が 数値 のみでな く ペア もまた 組み合わせられる ことにつ 
いて 学びました。 （Exercise  2.2 と Exercise  2.3 であな たは この 事実 を 用いた 力、、 
または 用いざる を 得なかった でしよう）。 結果と して ペア は 全て の 種類の デー 
タ 構造 を 構築 可能な 普遍的な 構築 プロ ッ ク を 提供し ます。 Figure  2.3 は 数値 1, 
2,  3,  4 を 組み合わせる ために ペア を 用いる 2 つの 方法 を 示して います。 

要素が ペアで ある ペア を 作成す る 能力 は 表現 ツールと しての リスト 構造の 
重要性の 本質です。 私達 はこの 能力 を cons の 閉包性 （closure  property) と 呼び 
ます。 一般的に、 データオブジェクト を 組み合わせる 操作 はもし その 命令に よ 
る 組み合わせの 結果 それ 自身が 同 じ 命令 を 用いて 組み合わせる ことが 可能な ら 
ば 閉包性 を 満たします。 6 閉包は どのような 目的の 組み合わせ を も 強力に する 
鍵と なります。 なぜなら/ lierarc/iimZ (階層） 構造 一 複数の パーツから 成る 構造 


6 ここでの" closure" (閉 包） という 用語の 使用 は 抽象 代数から 来て おり、 もし 操作の 集 
合の 要素への 適用に よ り 生成され る 要素が 再び 同じ 集合の 要素で ある 場合， 要素の 集合 
が 操作の 下にお いて 閉じられ ている と 呼ばれます。 Lisp コ ミ ュニ ティで は （残念な こと 
に） 用語" closure" を 全く 関係の ない 概念に も 使用して います。 closure と は 自由 変数 を 
持つ 手続 を 表現す るた めの 実装 テクニックです。 私達 は" closure" を この 本の 中で は 2 つ 
目の 意味で は 用いません。 
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(cons  (cons 1 2)  (cons  (cons 1 

(cons  3  4))  (cons  2  3)) 

4) 

Figure  2.3: ペア を 用いて 1,2,3,4 を 組み合わせる 2 つの 方法 


であ リ 、 パーツ 自身 も 複数の パーツから 成る よ う な 構造 を 作成す る ことが 可能 
になる ためです。 

Chapter 1 の 始めから、 手続の 取扱に おいて 閉包を 本質的に 利用して きまし 
た。 と て も 簡単な プロ ダラ ム を 除けば 全ての プロ グラム は 組み合わせの 要素 は 
それ 自身 もまた 組み合わせ であると いう 事実に 依存して いるた めです。 この 節 
では 複合 データに とっての 閉 包の 重要性 を 取り上げます。 ペア を 使用して 列と 
木 を 表現す るた めの、 いくつかの 便利な テクニック を 説明し ます。 そして 鮮烈 
な 方法で クロージャ を 図示す る グラフィック 言語 を 提示し ます。 7 


7 組み合わせ は閉 包で ある べき だとい う 手段の 概念 は ^純な ァ ィ デァ です。 残念な こ 
とに 多くの 人気の 有る プロ グラ ミ ング 言語が 提供す る データの 組み合わせ 手法 は 閉包性 
を 満たしません し、 閉包 性の 活用が 面倒です。 Fortran や BASIC では データ 要素 を 組合 
せる 典型的な 1 つの 手段 は 配列に それら を まとめる ことです。 しかし 配列の 要素 自身が 
配列で ある 配列 を 形成で きません。 Pascal と C は 構造体の 要素が 構造体で ある こ とを認 
めます。 しかし これ は プログラマが 明示的に ポインタ を 取り扱う こと を 要求し、 構造体 
の 各 フィールドが 事前に 指定され た 形式の 要素の み を 保管で きる という 制約に 帰着し ま 
す。 Lisp の ペアと は 異な リ これらの 言語 は 複合 データ を 統一的な 方法で 扱う こと を 簡単 
にす る 組み込みの 汎用 目的な 糊 を 持って いません。 この 制約が この 本の 前書きに おける 
Alan  Perlis のコメ ントの 背景に あり ます。 "Pascal における 過剰な 宣言 可能な データ 構 
造 は 関数 内に て 特殊 化 を 引き起こし、 カジュアルな 連携 を 不利に し、 抑制して しまう。 1 
つの データ 構造 を 操作す る 100 の 関数 を 持つ ほう 力 《、 10 の データ 構造 を 操作す る 10 の 
関数 を 持つ よりも 良い。 " 


102 


Figure  2.4: ペアの 鎖と して 表現され た 列 1, 2,  3,  4 


2.2.1 列の 表現 

ペア を 用いて 構築 可能な 便利な 構造の 1 つ 力、 e ゆ ence (列) 一順に 並べた デ 
ータォ ブジェク トの 集合です。 もちろん ペア を 用いて 列 を 表現す る 方法 は 数多 
く 存在し ます。 特に 簡単な 表現 方法の 1 つ を Figure  2.4 に 示します。 列 1, 2,  3, 
4 が ペアの 連鎖と して 表わされ ています。 各 ペアの car は 鎖 内で 相対す る アイ 
テムで あ り 、 各 ペアの cdr は 鎖 内での 次の ペアです。 最後の ペアの cdr は 列の 
終端 を ペアで はない こと を 識別す る 値 を 指し示す ことで 合図し ます。 箱と ボイ 
ンタの 図で は 斜めの 線 に て 表現 され、 プログラムで は 変数 nil の 値に て 示 さ れ 
ます。 列 全体 は 入れ子の cons 命令に て 構築され ます。 

cons 1 

( cons  2 

cons  3 

(cons  4  nil)))) 

そのような ペアの 列 は 入れ子の cons にて 形成され、 ^《リスト） と 呼ばれ 
ます。 そして Scheme は list と 呼ばれる プリ ミ ティ ブを 提供し リストの 構築 
を 手助けし ます。 8 上の 列 は （list  1  2  3  4) により 生成 可能です。 

(list  (ai)  \a2)  +.. 〈ひ n〉） 

is  equivalent  to 

は 以下と 等価です。 

(, cons  (ai) 

( cons  (02) 


8 この 本で は fei を リス ト 終端 マーカー にて 終端 化された ペアの 鎖 を 意味す るよう に 使 
用し ます。 一方で 用語 fci  structure い) ス ト 構造） は ペアから 作り上げられた 任意の デー 
タ 構造 を 参照し、 ただの リスト は 意味し ません。 
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( cons   . . . 

( cons  (an) 

nil)...))) 

Lisp システム は 慣習と して リスト を 括弧で 括られた 要素の 列 を 表示す る ことで 
表します。 従って Figure  2.4 の データ オブジェ ク トは （1 2  3  4) の 様に 表示 さ 
れ ます。 

1, def ine   one-thr ough-i our    、丄 ist 1 2  d  4J  ) 
one -through- four 

(1  2  3  4) 

式 （list  1  2  3  4) と リスト （1 2  3  4) を 取り違え ないよう 気をつけて 下さい。 
リスト は 式が 評価され た 時に 得られた 結果です。 式 （1 2  3  4) を 評価し ようと 
する 試み は インタ プリ タが 手続 1 を 引数 2,  3,  4 に 適用し ようと した 時に エラ 
一 を 発します。 

car を リ スト 内の 最初の アイテム を 選択す ると 考える こと もで き、 cdr を最 
初の アイテム 以外の 全てに より 成り立つ サブ （副） リスト を 選択す ると 考える 
こと も 可能です。 car と cdr の 入れ子の 適用 は リスト 内の 2 つ 目、 3 つ 目、 そ 
して その後に 続く 複数の アイテム を 抽出す るた めに 利用 可能です。 9 

コンストラクタ cons は 元の リストと 同様の リスト を 作り ます 力 乞 最初に 追 
加の アイテム を 入れます。 

i, car   one -through- four  ) 

i, car   one -through- four  ) 

(2  3  4) 

( car    ( cdr   one -through -four) ) 

2 

( cons 10  one -" through - f our ) 

(10 1 2  3  4) 

9 car と cdr の 入れ子の 適用 は 書く のが 面倒な ため Lisp の 各種 方言 は それらに 対する 
略記法 を 提供して います。 例えば、 

I.  cadr  (aro) )   =   ( car   ( cdr  faro) ) ) 

そのような 手続 全ての 名前 は c で 始まり r で 終わります。 それらの 間の 各 a は car 命 
令 を 意図し、 d は cdr 命令 を 意図し、 その 名前に 現れた 順と 同じ 順にて 適用され ます。 
car と cdr の 名前 は 存続し ます。 なぜな ら cadr のよう な 単純な 組み合わせが 発音 可能 だ 
か ら です。 
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( cons   5  one -through -four) 

(5  1  2  3  4) 

codenil の 値 は ペアの 鎖 を 終了す るた めに 使用され ますが、 全く 要素が 無い 
列 empty  list  (空、 J スい として 考える こと もで きます。 m7 という 単語 は ラテン 
語の 単語 n 仏^の 省略 形で、 "無" を 意味し ます。 10 

リ ス ト 命令 

複数の ペア を 使用して 要素の 列 を リストの ように 表現す る こと は、 慣習 的 
な プロ グラ ミ ング テクニック である 連続して リ スト を "cdr で 縮小す る" こ と 
により リスト を 操作す るのと 同時に 生じます。 例えば 手続 list-ref は 引数と 
して リストと 数値 n を 取り、 リストの ri 番目の 項目 を 返します。 リストの 要素 
を 数える のに 0 から 始める のが 慣習です。 list-ref を 計算す る 方法 は 以下の 
通 り です。 

•   n  =  0 の 場合、 list-ref は リストの car を 返す。 

. そうでなければ、 list-ref は リストの cdr の （n— 1) 番目の 項目 を 返す。 

(^define    (list-ref    items  n; 
(if    (=  n  0) 

(car   items ) 

(list-ref    ( cdr   items )    (-  n 1)))) 
(define   squares    (list 1 4  9 16  25) ) 
( list-ref    squares  3) 
16 

時折、 私達 は リスト 全体 を cdr で 下ります。 これ を 手助けす るた めに、 Scheme 
は プリ ミ ティ ブな 手続 mill? を 持って おり、 その 引数が 空 リストで あるか どう 
か を 試験し ます。 手続 length は リスト 内の 要素 数 を 返します 力た mill? の 使用 
の 典型的な バタ ーンを 説明 します。 

10 どれ だけの エネルギーが Lisp 方言の 標準化に おいて 文字通り 意味の 無い 議論に 浪費 
された かに ついては 特筆に 値します。 nil は 普通の 名前で あるべき か？  nil の 値 は 記号で 
あるべき カ^ それ はリ ス ト であるべ きか？ それ は ペアで あるべき か？  Scheme では nil は 
普通の 名前で あり この 節で は 変数と して 扱い その 値 は リスト 終端 マーカーです。 （true が 
普通の 変数で あり、 真の 値 を 持つ のと 同様です)。 Common  Lisp を 含む 他の Lisp 方言 は 
nil を 特別な 記号と して 扱います。 この 本の 著者 達 は、 言語の 標準化に おける 数多くの 乱 
闘に 耐えて きたので、 この 問題 全体 を 避けたい と 思います。 Section  2.3 にて quote を紹 
介した 後に は 空 リストに' 0 という 名前 を 付け、 全体 的に 変数 nil を 免除し ます。 
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(define    (length   items ) 
(if    (null?   items ) 
0 

(+ 1 (length   ( cdr  items))))) 
(define   odds    (list 13  5  7) ) 
( length  odds ) 

4 

手続 length は 単純な 最近 計画 を 実装し ます。 集約 ステップ は 以下の通りです。 
. 任意の リストの length は リストの cdr の length に 1 を 足し た 値 

これが 底と なる ケースに 到達す る ま で 繰 り 返し 適用され る 
. 空 リストの length は 0 

ま た length は 反復 ス タ ィ ル でも 計算 可能です。 

dei ine    (length   items  ) 

dei ine    、上 ength 一 iter  a  count  ； 
(if    (null?  a) 
count 

( length- iter    ( cdr  a)    (+ 1 count)))) 
( length - iter   items   0) ) 

も う 1 つの 慣習 的な プロ ダラ ミ ング テクニック は cdr を 繰り返し 利用し リ ス ト 
を 下る 間に、 答の リスト を "cons で 積み上げ" る ことです。 これ は 手続 append 
にて 利用され、 append は 2 つの リスト を 引数と して 取り、 それらの 要素 を 結合 
し、 新しい リスト を 作ります。 

append   squares   oads  ； 
(1 4  9 16  25 1 3  5  7) 
K append  odds   squares ； 

(1 3  5  7 1 4  9 16  25) 

append もまた 再帰 計画 を 用いて 実装され ます。 リス ト listl と list2 を append 

する ために は 以下の 通 リ に行レ 、 ま す。 

• も し listl が 空 リスト であれば、 結果 は 単に list2 

• そうでない 場合、 listl の cdr と list2 を append し、 その 結果の 上に 
listl の car を cons する 


106 


(define    ( append  list 1 list2) 
(if    (null?  listl) 
list2 

( cons    ( car  listl ) ( append   ( cdr listl)    list2 ) ) ) ) 

Exercise  2.17: 与えられた （空で ない） リ ス トの 最初の 要素の み を 
持つ リス トを 返す 手続 last-pair を 定義せ よ。 

(last-pair    (list   23  72 149  34) ) 

(34) 

Exercise  2.18: リスト を 引数と して 取り、 同じ 要素 を 逆順に 持つ リ 
スト を 返す 手続 reverse を 定義せ よ 。 

(reverse    (list 1 4  9 16  25) ) 
(25 16  9  4 1) 

Exercise  2.19:  Section  1.2.2 の 両替 数え上げ プログラム について 考 
える。 プログラム にて 用いられる 通貨 を 容易に 変更で きる ようにな 
れば とても 良いだろう。 そうする ことで 例えば イギリスの ポンドの 
両替 方法の 数 を 計算で きる ようにな るだろう。 プログラム が 書かれ 
た 時には、 通貨の 知識 は ある 部分 は 手続 first-denomination の 中 
に、 また ある 部分 は 手続 count-change の 中に 存在した。 （count- 
change  は 米国の 貨幣に は 5 種類 ある こと を 知っていた)。 両替 を 行 
うため 利用され る 貨幣の リスト が 提供で きる ように なれば よ リ 良 
くなる だろう。 

cc を 変更す る ことで、 その 2 つ 目の 引数が どの 貨幣 を 使用す るか 
を 指定す る 整数で はなく、 使用す る 貨幣の 値の リストと なる よう 
にしたい と 考える。 そして 通貨の 各種 類 を 定義す る リスト を 持つ 
ことにする。 

(define  us - coins    (list   50  25 10  5 1)) 

(define  uk - coins    (list 100  50  20 10  5  2 1 0.5)) 

次に cc を 以下の ように 呼び出す。 

(cc 100  us-coins ) 

292 
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これ を 行うた めに は プログラム CC に 何ら かの 変更が 必要 だ。 同じ 

形態 を 保つ が、 2 つ 目の 引数に 異なる 方法で アクセス する。 以下の 
ようになる。 

^define    ( cc   amount   coin-values ； 
( cond   "=  amount   0) 1; 

((or    (<   amount   0)    (no-more?   coin-values ) )  0) 
(else 
(+   (cc  amount 

(except -: first - denomination 
coin-values ) ) 
(cc    (-  amount 

(iirst - denomination 
coin- values ) ) 
coin-values))))) 

リ ス ト 構造に 対する プリ ミ ティ ブな 命令 を 用いて 手続 first- 
denomination,  except-f irst-de-  nomination,  and  no-more? を 
定義せ よ。 リスト coin-values の 順 は cc によ リ生 成される 解答に 
影響 を 与える か？ それ は 何故か？ または 何故そう でない のか？ 

Exercise  2.20: 手続 +,  *, list は 任意の 数の 引数 を 取る。 そのよう 
な 手続 を 定義す る 1 つの 方法と して dotted-tail  notation^ ドッ 卜 付 
き 末尾 記法） と共に define を 使用す る ことが 上げられる。 手続 定 
義 において、 最後の パラメータ 名の 前に ドッ トが ある パラメータ 
リスト は 手続が 呼び出された 時に、 最初 以下の パラメータ 力^も し 
存在したら） 初期 引数の 値 を 通常 通りに 持つ が、 最後の パラメータ 
の 値 は 残りの 引数 全ての リストと なる。 例えば、 以下の 定義 を 与 
えられた 時に、 

define    (f  x  v   .    z )    (body) ) 

手続 f は 2 つ 以上の 引数で 呼び出す ことが 可能 だ。 もし 次 を 評価 
すれば、 

(f 1 2  3  4  5  6) 

f の ボディ では x が 1、 y が 2、 そして z は リスト （3  4  5  6) とな 

る。 以下の 定義 を 与えられた 時、 
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( def  ine    (g    .    w)    (body) ) 

手続 g はゼ 口 個 以上の 引数に て 呼び出し 可能と なる。 次 を 評価す 
れぱ、 

(g 1 2  3  4  5  6) 

g の ボディで は w は リスト （1 2  3  4  5  6) となる。 11 
このき 3 法 S 用いて 手続 same-uarity を 書け。 same-parity は 1 つ 
または それ以上の 整数 を 引数と して 取り、 最初の 引数と 同じ 偶奇 
性 を 持つ 全ての 引数の リスト を 返す。 例えば、 

1.  same-Dar lty i2j45oO 
(1  3  5  7) 

( same-parity  2  3  4  5  6  7) 

(2  4  6) 


リス 卜に 渡る map 

ある とても 便利な 命令 は、 ある 変換 を リストの 各 要素に 適用し、 結果の リ 
スト を 返します。 例えば 以下の 手続 は リストの 各 数値 を 与えられた 因数で 拡大 
します。 

、deiine    (scale - list   items   factor ) 
^ if    (null?   items ； 
nil 

( cons    (*    ( car   items )    factor ) 
( scale-list    ( cdr   items ) 
factor ] 

(scale-list    (list   12  3  4  5) 10) 
(10  20  30  40  50) 


llrTo  define  f  and  g  using  lambda  we  would  write 

f と g を lambda を 用いて 定義す るに は、 ^下の ように 記述す る。 

t,  def  ine  f   (lambda   t.x  y   .   z)   (body) ) ) 
( def  ine  g  (lambda  w  (body) ) ) 
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私達 は Section 1.3 のように、 この 一般的な 考え を 抽象化し、 高 階 手続に て 表現 
さ れた 共通な バタ ーン として 捉える ことができます。 ここ での 高 階 手続 は map 
と 呼ばれます。 map は 引数と して 1 引数の 手続と リスト を 取り、 返り 値と して 
その 手続 を リストの 各 要素に 適用す る ことで 得られた 結果の リスト を 返し ま 
す。 12 

^define    (maD  proc   items ) 
(if    (null?  items) 
nil 

( cons    (proc    (car  items)) 

(map  proc    ( cdr  items))))) 
(map  abs    (list - 10  2.5   -11.6  17)) 
(10  2.5 11.6 17) 

(map    (lambda   (x)    (*  x  x) ) (list 12  3  4)) 
(14  9 16) 

これで map を 用いた 新しい scale- list の 定義 を 与えられる。 

(define    (scale-list   items   factor ) 
(map   ( lambda   (x)    (*  x  factor ) ) 
items ) ) 

map は 重要な 構造です。 それが 共通な パターン を 掴む からだけ でな く、 リスト 
を 扱う よ リ 高い レベルの 抽象化 を 確立させる ためです。 scale-list の 元の 定 
義 では プロ グラムの 再帰 構造 は リストの エレメント 毎の 処理に 注意 を 引 きまし 
た。 map を 用いた scale-list の 定義 は その レベルの 詳細 を 抑制し、 要素の リ 
ス ト から 結果の リ ス ト への 拡大 変換 を 強調し ます。 2 つの 定義の 間の 違い はコ 

12  Scheme は 標準 として ここで 説明され る 物よりも より 汎用 的な map 手続 を 提供し ま 
す。 このより 汎用 的な map は n 引数の 手続 を、 ri 個の リストと 共に 取り、 全ての リスト 
の 最初の 要素 を 手続に 適用し、 次に 全ての 2 つ 目の 要素 を 適用し、 以下 それ を 繰り返し、 
結果の リスト を 返します。 例えば、 

(map  +    (list   12  3)    (list   40   50  60) (list   700  800   900) ) 
(741 852  963) 

(man   (lambda   (x  y)    (+  x   (*  2  y))) 
(list   12  3) 
(list   4  5   6) ) 

(9 12 15) 
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ン ピュー タが 異なる 処理 を 行う ことで はなく  （異なります が)、 私達が 過程に つ 

いて 異 つて 考えて いる ことです。 実際に、 map は リストの 要素が どのように 抽 
出され、 また 結合され るかの 詳細から リスト を 変換す る 手続の 実装 を 分離す る 
抽象化 バリア を 強化す る こと を 手助けし ます。 Figure  2.1 にて 示される バリ ァ 
のように、 この 抽象化 は 私達に 列が どのよう に 実装され るかの 低 レベルの 詳細 
を 変更す る 柔軟性 を 提供し、 その上で 列 か ら列 へと 変換す る 操作の 概念 上の フ 
レーム ワーク を 保って いる。 Section  2.2.3 はこの プログラム を 構成す るた めの 
フレームワーク と しての 列の 利用 を 拡張して いる。 

Exercise  2.21: T 手続 square-list は 数値の リ スト を 引数と して 

取り それらの 数値の 二乗の リスト を 返す。 

( square-list    (list 12  3  4) ) 
(14  9 16) 

ここに 2 つの 異なる square-list が ある。 失な われた 式 を 埋める 
ことで 両者 を 完成 させよ。 

(define    ( square-list   items ) 
(if    ^.null?   items ) 
nil 

(cons   {??)  〈？？〉））） 
(define    ( square-list   items ) 
(map  {??)  {??>)) 

Exercise  2.22:  Louis  Reasoner は Exercise  2. 21 の敢 初の square  - 
list 手続 を 書き直し、 反復 プロセス を 展開 させようと 試みて いる。 

(define    ( square-1 ist items ) 
(define    ( iter  things   answer ; 
(if    (null?  things) 
answer 

( iter    ( cdr  things ) 

( cons    ( square    (car  things ) ) 
answer ) ) ) ) 

( iter   items  nil)) 

残念な こ と に、 square-list を このよう に 定義 し て は 解答の リ ス 

トは 希望の 逆順に なって しまう。 何故か？ 
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Louis は そこで 彼の バグ を cons への 引数 を 逆順に する ことで 直 そ 
う と 試みた。 

(define    ( square-1 ist   items ) 
(define    ( iter  things   answer ; 
(if    (null?  things) 
answer 

( iter    ( cdr  things ) 
( cons  answer 

( square    (car  things )))))) 

( iter   items  nil)) 

これ もまた うまく 行かない。 説明せ よ。 

Exercise  2.23: 手続 for- each は map に似てい る。 手続と 要素の リ 
スト を 引数と して 取る。 しかし 結果の リスト を 形成す るので はな 
く、  for-each はた だ 手続 を 左から 右へ と 毎回 各 要素に 適用す る。 
手続 を 要素に 適用し 返された 値 は 全く 利用し ない  一; for-each は 
表示の よう な 行動 を 起こ す 手続 と共に 利用され る。 例 え ば、 

(for - each   ( lambda  (x) 
(newlme  ) 
(display  x) ) 
(list   57  321 88)) 

57 

321 

88 

(上で は 示されて いない)： for-each 呼 出に よる 返り 値 は 真のよう な 
不定な 何 かで ある。 for-each の 実装 を 与えよ。 

2.2.2 階層 構造 

リスト を 用いた 列の 表現 は 要素が 列 自身で ある 列 を 表現す る こと を 自然に 
一般化す る。 例えば 以下の 様に 構築され たォ ブジェク ト （（1 2)  3  4) を 

(cons    (list 1 2) (list   3  4) ) 

最初の 項目 は それ 自身が リスト （1 2) である、 3 つの 項目の リストで あると 見 
做す ことができる。 実際に、 インタプリタ により 表示され る 結果の 形式に よ 
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(3  4) 


((1 2)  3  4) 


(1 2) 


1 


Figure  2.5:  (cons  (list 1 2) (list  3  4)) により 开乡 作ら 

れた IfcjH 


((1 2)  3  4) 


1 


Figure  2.6: 木と して 見た Figure  2.5 の リ ス ト 構造 


リ これ は 推奨され ている。 Figure  2.5 が ペア を 用いた この 構造の 表現 を 示して 
いる。 

要素 それ 自身が 列で ある 列の も う 1 つの 考え方 は 木と しての 考え方で ある。 
列の 要素 は 木の 枝で あり、 それ 自身が 列で ある elements (複数の 要素） は 部分 木 
である。 Figure  2. 6 は 木と して 見た 場合の Figure  2. 5 を 示して いる。 

再帰 は 木 構造 を 扱う のに 自然な ツールです。 良く 木に 対する 操作 を 枝に 対 
する 操作へ と 還元で き、 それ は 順に 枝の 枝への 操作へ と 還元され、 木の葉に 迪 
リ着 くまで 繰り返されます。 例と して、 Section  2.2.1 の length 手続 を 木の葉の 
総数 を 求める count-leaves 手続と 比べて みましょう。 

(define  x   (cons    (list 1 2) (list   3  4))) 
( length  x) 
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3 

( count-leaves  x ) 

4 

( list  x  x) 

(((1 2)  3  4) "1 2)  3  4)) 
( length   (list  x  x ) ) 
2 

( count-leaves    ( list  x  x) ) 

8 

count -leaves を 実装す るに は length を 求める 再帰 計画 を 思い出します。 
• リスト x の length は x の cdr の length に 1 を 足した 物 
. 空 リストの length は 0 

count-leaves も 同様え す。 空 リス トの値 は 同じで 

• 空 リス 卜の count-leaves は 0 

しかし 集約 ステップ において、 リストの car を 取り除く 時、 car は それ 自身が 
後で 数えねば ならない 木で ある 可能性が ある こ と を 計算に 入れねば な り ませ 
ん。 従って 適切な 集約 ステップ は 

• 木 x の count-leaves やよ x の car の count-leaves と、 x の cdr の count - 
leaves の禾ロ 

最終的に car を 取る ことにより 実際の 葉に 届く ので 別の 規範 を 必要と する。 

• あの count-leaves は 1 

木に 対する 再帰 手続 を 書く の を 助ける ために、 Scheme は プリ ミ ティ ブな 手続 
pair? を 提供し ます。 pair? は 引数が ペアで あるか を テストし ます。 以下に 完 
成した 手続 を 置きます。 13 

^define    ( count -丄 eaves  x) 
(cond   ((null?  x)  0) 

( (not    (pair?  x)) 1) 

(else    (+   ( count-leaves    (car  x) ) 

( count-leaves    ( cdr  x) ) ) ) ) ) 

13coiid の 最初の 2 つの 項の 順が 大事です。 空 リスト は 皿 11? を 満たし、 その上で ペア 
でも あり ません 
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Exercise  2.24: 式 （list 1 (list  2  (list  3  4))) を 評 {ffi したと 
する。 インタプリタの 表示す る 結果、 対応す る 箱と 点 構造、 木と し 
ての 解釈 （Figure  2.6 相当） を 示せ。 

Exercise  2.25: 以下の 各リ ストから 7 を 抽出す る car と cdr の 組 

み 合わせ を 与えよ。 

(1 3    (5  7)  9) 
((7)) 

(1 (2    (3   (4   (5    (6  7)))))) 

Exercise  2.26:  2 つの リスト x と y を 定義した とする。 

(define  x  (list 1 2  3) ) 
(define  y  (list  4  5  6) ) 

以下の 各 式 を 評価した 場合に レスポンス として ィ ンタプ リタが ど 
のよう な 結果 を 表示す るか？ 

i, append  x  y ) 
i, cons  x  v) 
(list  x  y ) 

Exercise  2.27:  Exercise  2.18©  reverse 手続 を 変更して リスト を 
引数と して 取り、 全ての 要素が 逆順に、 さらに 全ての サブ リスト も 
同様に 逆順に された リ ス トを その 値と して 返す 手続 deep-reverse 
を 作れ。 例と して、 

(define  x   (list    (list 1 2) (list   3  4))) 
x 

((1 2)   (3  4)) 
(reverse  x) 
((3  4) (1 2)) 
( deep-reverse  x) 
((4  3)   (2 1)) 

Exercise  2.28: リストと して 表現され た 木 を 引数に 取り、 その 木の 

全ての 葉 を 左から 右への 順で 要素 とした リスト を 返す 手続 fringe 

を 書け。 
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(define  x  (list   (list 1 2) (list  3  4))) 
( fringe  x) 

(1  2  3  4) 

(fringe    (list  x  x) ) 
(1  2  3  4  1  2  3  4) 

Exercise  2.29: バイ ナ リ モ バイ ル （binary  mobile)14 は 左の 枝と 右 
の 枝の 2 つの 枝で 構成され る。 各 枝 は ある 長さ を 持つ 棒で あり、 そ 
こから 重り か 別の バイナリ モ パイル を ぶら下げる。 バイナリ モバ 
ィルを 複合 データ を 用いて 2 つの 枝から 組み立てる ことで 表現で 
きる。 （例えば list を 用いる。 ） 

(, def ine    (make- modi 上 e left   right ) 
(list   left   right) ) 

枝 は length (数値で ある こと） と structure から 組み立て られ、 
structure は 数値 （簡単に 重り を 表わす） かまた は 他の モ パイルで 
ある。 

(, def  ine    (make-branch  lengtn   structure  ) 
(list   length   structure ) ) 


a 対応す る セレクタ left-branch を right -branch を 書け。 こ 
の セレクタ はモ パイルの 複数の 枝 を 返す。 また branch- 
length  と branch- structure は 枝の それぞれの コ ン ポー ネ 
ン ト （構成要素） を 返す。 

b セレクタ を 用いて 手続 total-weight を 定義せ よ。 それ はモ 
パイルの 総 重量 を 返す。 

c モ パイル は 一番 上の 左 枝に かかる トルク （回転 力） が 一番 上 
の 右の 枝に かかる トルク と 等しい 時 （これ はつ まり、 も し 左 
の 棒の 長さと その 棒に かかる 重さ を 掛けた 値が、 相対す る 右 
側の 積の 値と 同じ 場合で ある）、 かつ 各部 分モ パイル も 全て 
同様で ある 場合に 限り、 fcatenced (バランスが 取れた 状態） で 
あると 言う。 ある バイナリ モ パイルが バランスが 取れて いる 
か テス ト する 述語 を 設計せ よ。 

14 訳注： 天井から 糸で 釣って あり、 絶妙な バランスで 揺れ、 回る 数々 の 棒の インテリ 
ァ。 枝が 必ず 2 つに 分かれる ので バイナリ （二進） と 名付けられ ている。 Google  Images 
で mobile を 検索す ると 実物が 見られる。 


116 


d モ パイルの 表現 を コンス トラクタが 以下になる ように 変更す 
ると 考える。 


(define  、make  -  mobile  left  right )  cons 上 eit  right リ) 
(define    (make-branch  length  structure ) 


( cons   length   structure ) ) 

新 し レ 、表現へ と あなたの プログラム を 変更す るのに どれほど 
が 必要 か？ 

木に ミ 度な map 

map が 列 を 扱う のに 強力な 抽象化で あるのと 同様に、 再帰 を 伴な う map は 
木 を 扱う のに 強力な 抽象化です。 例えば Section  2.2.1 の scale-list に 同類な 
scale-tree 手続 は 引数と して 因数と 葉が 数値で ある 木 を 取り ます。 これ は 同 
じ 形の 木 を 返します が、 各 数値 は 因数に より 乗算され ます。 scale-tree の 再帰 
計画 は count-leaves に対する 物 に似てい ます。 

(, dei ine   (scale-tree  tree  iactor ) 
( cond   ( (null?   tree )  nil) 


(scale-tree   (list 1 (list  2   (list  3  4)   5) (list  6  7) ) 10) 
(10  (20  (30  40)  50)   (60  70)) 

scale-tree を 実装す るもう 1 つの 方法 は 木 を 部分 木の 列と 見做し map を 使用 
します。 列 全体に map を かけ、 各部 分木 を 順に 拡大し、 結果の リスト を 返し ま 
す。 その 木が 葉で ある 場合に は 単純に 因数 を 掛けます。 

、deiine     scale-tree   tree  iactor) 
(map   (lambda     sub- tree  ) 


多くの 木の 操作が 同様な 列 操作と 再帰の 組み合わせ にて 実装 可能です。 

Exercise  2.30:  Exercise  2.21(0  square-list と 同様の 手続  square- 
tree を 定義せ よ。 square- tree は 以下の 振舞 を 行う。 


( 、！ iot    (pair?   tree) ) ひ tree  factor ) ) 

(else     cons    (scale-tree    (car  tree )    factor  ； 

( scale-tree    ( cdr  tree )    factor ) ) ) ) ) 


(if  (pair? 
( s  cale 
( *  sub 


sub-tree ) 

tree  sub-tree  factor) 
tree  factor ) ) ) 


tree ) ) 
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( square-tree 
(list 1 

(list   2   (list   3  4)  5) 

(list   6  7))) 
(1 (4  (9 16)  25)   (36  49)) 

square-tree を 直接な （つまり 高 階 関数 を 全く 用いない） 方法と 
map と 再帰 を 用いる 方法の 両者 を 定義せ よ。 

Exercise  2.31:  Exercise  2. 30 への 解答 を 抽象化し、 手続 tree-map 
を 作れ。 tree- map を 用いて square- tree は 以下の ように 定義で 

さる。 

(define    (square-tree   tree )    (tree-map   square  tree ) ； 

Exercise  2.32: 集合 は 識別 可能な 要素の リ ストと して 表現で きる。 

そ して 集合の 全ての 部分集合 集合 を リストの リストと して 表わせ 
られ る。 例えば、 集合が （1 2  3) である 時、 全ての 部分集合の 集 
合 は （0  (3)  (2)  (2  3) (1) (1 3) (1 2) (1 2  3)) だ。 以下の 
集合の 全ての 部分集合の 集合 を 生成す る 手続の 定義 を 完成し、 な 
ぜ うまくいく のか を 明確に 説明せ よ 。 

(define    ( subsets   s ) 
(if    (null?  s) 
(list  nil) 

( let    (  (rest    (  subset  s    (  cdr  s  ) ) ) ) 
( append  rest    (map   {??)  rest))))) 

2.2.3 慣習 的 インタ一 フェイス としての 列 

複合 デー タを 用いて 働く 場合、 これまで データ 抽象化が どれ だ け プロ ダラ 
ム の 設計 を デー タ 表現の 詳細 に 陥 ら ずに 行える 力 \ ま た 抽象化が どれ だ け 代替 
的な 表現 方法 を 試みる 柔軟性 を 保つ かにつ いて 強調して きました。 この 節で 

はもう 1 つの 強力な データ 構造 を 用いる 設計 原則 を 紹介し ます。 conventional 
inter か ces (慣習 的ィ ンタ一 フェイス） の 使用です。 

Section 1.3 において プログラム 抽象化、 高 階 手続と しての 実装が どのよう 
に して 数値 デー タを 取り扱う プロ ダラ ムの 共通 バタ ーンを 掴む こと がで きる の 
か を 学んで きました。 複合 デー タを 扱う 類似の 操作 を 形式 化す る 能力 は 決定的 
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に デー タ 構造 を 扱う スタイル に 依存 します。 例えば 次の 手続に ついて 考えて み 

て 下さい。 Section  2.2.2 の count-leaves 手続に 類似して おり、 木 を 引数と して 
取り、 奇数の 葉の 二乗の 合計 を 求めます。 

dei ine    (  sum - odd - square  s   tree  ) 
( cond   ( (null?   tree)  0) 

( (not    (pair?   tree ) ) 

( if    ( odd?  tree )    ( square   tree )    0) ) 
(else    (+   ( sum- odd- squares    ( car  tree)) 

( sum- odd- squares    ( cdr  tree )))))) 

表面上で は、 この 手続 は 以下の 物と とても 異なって います。 以下で は 全ての 偶 

数の フ ィ ボナ ッ チ数 Fib(fc) の リスト を、 が 与えられた n 以下の 範囲に て 作 
成して います。 

(. dei  ine    (  even-f  ibs  n) 
( dei ine    (next  k) 
(if    (>  k  n) 
nil 

(let   ((f   (fib  k))) 
(.if    ( even?  f ) 

( cons  f    (next    (+  k 1))) 
(next    (+  k 1)))))) 

(next  0)) 

これらの 2 つの 手続 は 構造 的に とても 異なって いると いう 事実に も 係らず、 2 
つの 計算のより 抽象的な 記述 は 大きな 類似 性 を 明らかにします。 最初の プロ グ 
ラム は 

. 木の葉 を 列挙す る 

. フィルタ を 通して 奇数の み を選ぷ 

• 選択され た 数の 二乗 を 求める 

• 初期値 0 にて + を 用いて 集積す る。 

2 つ 目の プログラム は 

. Q から n を 列挙す る 

• 各 整数の フィボナッチ 数 を 求める 
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enumerate: 
tree  leaves 


enumerate: 
integers 


map: 
fib 


filter: 
even? 


accumulate: 
cons , () 


Figure  2.7:  ^-m,  sum-odd-squares (_h) と even- fibs (下) の 

信号の 流れの 計画が 二つの プログラムの 間の 共通点 を 
明かす 


• フィルタ を 通して 偶数 を 選択す る 

. 初期値 は 空 リストに て cons を 用いて 結果 を 集積す る 

信号 処理の エンジニア は これらの 処理 を ステージの カスケ 一 ドを 通して 流れ 
る 信号 を 用いて 処理 するとい う 概念的 説明 を 自然 だと 思われる でしよう。 各 
ステージ は プログラム 設計の 部分 を Figure  2.7 に 示す よ う に 実装して います。 
sum-odd-squares では enumeraton ェ ニュメ レ 一タ) にて ク台め ま した。 てれ は 
与えられた 木の葉から 成る "信号" を 生成し ます。 この 信号 は/^ er (フィルタ） 
を 通して 奇数 要素 以外 を 全て 取り除きます。 残った 信号 は 順に "変換器" であ 
る map を通 し、 それが square 手続 を 各 要素に 適用し ます。 map の 出力 は 次 
に dccmm^itor (集積 機） に 与えられ、 それが 要素 を 初期値 0 と + を 用いて 連結 
します。 even-fibs の 設計 も 同様です。 

残念ながら 上記の 2 つの 手続の 定義 はこの 信号の 流れの 構造 を 提示す るの 
は 失敗して います。 例えば sum-odd-squares を 調べて みると enumeration (列 
挙） は 部分的に mill? の pair? の テス ト にて 実装され、 別の 部分で は 手続の 木 
再帰 構造に ょリ 実装され ています。 同様に 集積 は 部分的に テス トの 中に 見つか 
リ、 また 部分的に 再帰 中で 使用され る 足し算に 見つかります。 全体 的に どちら 
の 手続 も 信号の 流れの 記述 内の 要素に 関連す る 明確な 部分 は 存在し ません。 2 
つの 手続 は 演算 を 異なる 方法で 分解し、 列挙 を プログラム 全体に 広げて map, 
filter,  accumulation に 混ぜ ま した。 もし プロ グラム を 手続 中 に 信号 処理 構造の 
宣言 を 作る ように 構成で きる ので あれば 結果と しての コードの 概念の 明快 さ を 
増す ことができる でしよう。 
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列 命令 

プログラム を 体系化し 信号 伝達 構造 をより 明確に 反映す る 鍵 は ある 段階の 
処理から 次へ と 流れる "信号" に 集中す る ことです。 もし これらの 信号 を リスト 
として 表現す るなら、 各 段階の 処理 を リスト 操作 を 用いて 実装で きます。 例え 

ば 信号 伝達 図の map の 段階 を Section  2.2.1 の map 手続 を 用いて 実装で きます。 

(,map   square    、丄 ist l 2  j  4  5) ； 

(1 4  9 16  25) 

列 を フィルタ リ ング して 与えられた 述語 を 満足す る 要素の み を 選択す る こと は 
以下の 様に 達成で きます。 

V dei ine    (filter  Dredicate   sequence ) 
( cond   ( (null?   sequence )  nil) 

( (predicate    (car   sequence ) ) 
( cons    ( car   sequence ) 

(filter  predicate    ( cdr   sequence ) ) ) ) 
(else    ( i liter  predicate    (cdr  sequence))))) 

例と して、 

(filter   odd?    (list   12  3  4  5)) 
(1 3  5) 

集積 は 次のように 実装し ます。 

V dei ine    ( ac cumulate   od initial   sequence ) 
(if    (null?   sequence ) 
initial 

(op    ( car   sequence ) 

(accumulate   op   initial ( cdr  sequence))))) 
(accumulate  +  0   (list   12  3  4  5) ) 
15 

( accumulate   * 1 (list   12  3  4  5) ) 
120 

( accumulate   cons  nil   (list   12  3  4  5) ) 
(1  2  3  4  5) 

信号 伝達 図 を 実装す るのに 残って いるもの 全て は 処理すべき 要素の 列 を 列挙す 
る ことです。 even-fibs のために は 与えられた 区間の 整数の 列 を 生成し なけれ 
ばなら ず、 以下の ように 行う ことができます。 
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(define    ( enumerate -interval   low  high) 
(if    (> low  high ) 
nil 

( cons   low   ( enumerate -interval (+ low 1) high)))) 
( enumerate- interval 2  7) 

(2  3  4  5  6  7) 


( enumerate- tree    (list 1 ( list   2   (list  3  4) )    5) ) 
(1  2  3  4  5) 

これで sum-odd- squares と even-fibs を 信号 伝達 図の 様に 再 形式 化する こ と 
がで きます。 sum-odd- squares のために は 木の葉の 列 を 列挙し、 これ を フィル 
タ にかけ 列の 奇数の み を 保持し、 各 要素 を 二乗し、 結果の 合計 を 求めます。 

dei ine    (  sum - odd - square  s   tree  ) 
( accumulate 

+  0   (map   square    ( 1 liter   odd?    ( enumerate- tree  tree))))) 
even-fibs に対して は 0 から ri の 整数 を 列挙し、 これらの 整数の それぞれに 対 


する フィボナッチ 数 を 生成し、 結果 列 を フィルタ にかけ 偶数の 要素の み を 保持 
し、 結果 を リストの 中に 集積し ます。 


(define    v even-f lbs  n) 
( accumulate 
cons 
nil 

(filter   even?    (map  fib    ( enumerate- interval 0  n) ) ) ) ) 


列 操作と しての 伝達 プログラムの 価値 はこれ が モジュラ 形式の プログラム デザ 
イン を 行う こと を 手助けして くれる ことに あり ます。 モジュラ であると は 相対 

15 これ は 実際に は Exercise  2.28 の fringe 手続 そのものです。 ここで は その 名 を 変え 
て 列 操作 手続 一般 に 属する パーツで ある こと を 強調して います。 


木の葉 を 列挙す るに は、 以下の 様に して 可能です。 


(define     enumerate- tree   tree  ) 
( cond   ( (null?   tree )  nil) 

( (not    (pair?   tree) ) (list  tree ) ) 
(else    ( append   ( enumerate -" tree  (car 
(enumerate -" tree    ( cdr 


tree ) ) 
tree)))))) 
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的に 独立した 部品 を 組み立てる ことで 構築され る 設計です。 柔軟な 形で コンポ 
一 ネント を 接続す るた めの 慣習 的な インターフェイス と共に、 標準 コンポ ーネ 
ントの ライブラリ を 提供す る こと で、 モジュラ 設計 を 推進す る こと がで きます。 
モジュラ 構築 は 複雑 性 を 工学 的 設計に おいて 複雑 性 を コ ン トロール する こ 
とに 対して 強力な 戦略です。 例えば 現実の 信号 処理 アプリケーション では、 設 
計 者 は 恒常的に フィルタと 変換器の 標準化 された グループ か ら 選択され た 要 
素 を 繋げる ことで システム を 構築し ます。 同様に 列 操作 は 標準 的 プロ グ ラ ム 

要素 を 様々 に 組合せた ライ ブラ リ を 提供し ます。 実例と して 私達 は sum-odd- 
squares  と even-fibs の 手続の 部品 を 用いて、 フィボナッチ 数の 最初から n+1 
個の 二乗の リス トを 作成で きます。 

(, del ine    (list-fib  - squares  n) 
( accumulate 
cons 
nil 

(map   square    (map  lib   ( enumerate- interval 0  n) ) ) ) ) 
(list-fib-squares 10) 

(0 1 1 4  9  25  64 169  441 1156  3025) 

部品 を 再配置し、 列の 奇数の 二乗の 積 を 計算す るのに 使う こ とも 可能です。 

v.  dei ine    (proauct  - of  - squares - of  - odd - element  s   sequence  ) 

( accumulate   * 1 (map   square    (filter   odd?   sequence ) ) ) ) 
(product - of - squares - of - odd - elements    ( list   1   2  3  4  5) ) 

225 

慣習 的な データ処理 アプリケーション を 列 操作 を 用いて 説明す る こと もで きま 
す。 個人の 記録の 列が あると し、 最も 高給な プログラマの 給料 を 見つけた いと 
します。 記録の 給料 を 返す セレクタ salary と 記録が プログラマの 物で あるか 
を 判定す る 述語 programmer? が ある とします。 すると 以下の よ うに 書け ます。 

dei  ine    (  s  alary- of  -  highest -pa  id -programmer  records  ； 
( accumulate 

max  0   (map   salary   (filter  programmer?  records)))) 

この 例 は 列 操作と して 表わす ことができる 広範囲な 処理の ヒント を 与えた にす 
ぎません。 16 

16Richard  Waters  (1979) は 伝統的な Frotran プログラム を 自動的に 解析し、 map, フ 
ィ ルタ， 集積 を 用いて そ ら を 俯瞰す る プロ グラ ムを 開発し ま した。 彼 は Fortran の 科学 サ 


123 


ここで は リストと して 実装され た 列 は 処理 モジュール を 接続す る こと を 可 
能に する 慣習 的 インターフェイス としての 役割 を 行います。 その上、 私達が 構 
造 を 列と して 統一的に 表現した 時、 私達 は プログラム 中の データ 構造 依存性 を 
少ない 数の 列 操作へ と 局所 化しました。 これら を 変更す る ことで、 プログラム 
設計 を 全体 的に 保存 した まま 列の 代替 的 表現 方法 を 試みる こ と がで きます。 私 

達 はこの 能力 を Section  3.5 にて 列 処理 パラ ダイ ム を 無限 列 を 許可す るよう 一般 
化する 時に 利用し ます。 

Exercise  2.33: 欠けた 式 を 埋めて 次の 集積と しての いくつかの 基本 
的な リ ス ト 操作 命令の 定義 を 完成 させよ。 

(define    (map  p   sequence ) 

( accumulate    、丄 ambda   (x  y)    { ? r) ;   nil   sequence ) ； 
(define    ( append   seql   seq2 ) 

(accumulate   cons   {??)  {??}) ) 
(define    (length   sequence ) 

( accumulate   {??)  0  sequence ) ) 

Exercise  2.34:  x の 多項式 を x の 与えられた 値に て 評価す る こ 
と は 集積と して 表す ことができる。 以下の 多項式 を 良く 知られ 
ftHomer，s  rule (ホーナー 法) と 呼ばれる アルゴリズム を 用いて 評 
価す る。 

anx   +  an-ix       +.. .  +  a\x  +  ao 

ホーナー 法 は 上記の 計算 を 以下の よう な 構造 にす る。 

い . . (anx  +  an-i)x  +  ..  .  +  ai)x  +  ao. 

すなわち ひ „ で 始め、 x を 掛け、 a„_i を 足し、 ：r を 掛け、 を a0 に 
到達す るまで 繰り返す。 17 


ブルー チン パッケージの コードの 実に 90% が この パラダイム にうま く はまる こと を 発見 
しました。 Lisp が プロ グラ ミ ン グ 言語 として 成功した 理由の 1 つに リスト が 順序 有 り 集 
合 を 表すのに 標準 的な 手段 を 提供した ことがあり、 そのため 高 階 手続 を 用いて 操作す る 
こ と が 可能に な り ま した。 プロ グラ ミ ング 言語 APL は その 力と 魅力の 多 く を 同様の 選択 
のお かげで 得ました。 APL では 全ての データ は 配列と して 表現され、 統一的、 かつ 便利 
な 全ての 種類の 配列 操作の ための 包括的な 命令 集合が 存在し ます。 

17Knuth  1981 によると この 方法 は W.  G.  Horner により 19 世紀 始めに 考案され た。 し 
かし その 手法 は 実際に は ニュートン により 100 年を越え た 前に 使用され ていた。 ホー ナ 
一法 は 多項式 を 最初に〜 浐 を 計算し、 ん-び" 一1 を 足す を 繰り返す 直接的な 方法より 
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以下の テンプレート を 埋め ホーナー 法 を 用いて 多項式 を 評価す る 

手続 を 作り 出せ。 多項式の 係数 a0 から an は 列で 用意され る と 想 
定 せよ。 

(define    (horner-e val x   coefficient -sequence) 

( accumulate    (lambda   (this-coef f   higher-terms )    {??) ) 
0 

coefficient- sequence)) 

例ぇば1+  33；  +  5：1；3+2；5 を 3；  =  2 の 時の 値 を 求める 場合、 次の よ 

うに 評価 を 行う。 

(horner-eval 2   (list   13  0  5  0  1)) 

Exercise  2.35:  Section  2. 2. 2 の count-leaves を 集積と して 再定義 

せよ。 

(define    ( count-leaves  t ) 

(accumulate   {??}  {??)    (map  {??)  {??}))) 

Exercise  2.36: キ続 accumulate  —  n は accumulate に似て レヽ" £> 力 《 3 

番目の 引数と して 列の 列 を 取り、 その 要素の 列の 長さ は 全て 一定 
である。 指定され た 集積 手続 を 複数の 列の 最初の 要素、 二番目の 
要素、 以下 繰り返し、 を 全て 連結す るた め 適用し、 結果の 列 を 返 
す。 例えば もし s が 4 つの 列 を 含む 列、 （（1 2  3)  (4  5  6)  (7  8 
9) (10 11 12)) である 日 寺、 (accumulate-n  +  0  s) の ィ直は 列 （22 
26  30) にならなければ ならない。 以下の accumulate- n の 定義の 
欠けた 式 を 補え。 

(define    (accumulate-n  op   mit   seqs ； 
(if    (null?    ( car  seqs)) 
nil 

少ない 回数の 和と 積 を 用いて 評価す る。 実際に 任意の 多項式 を 評価す るた めの どんな ァ 
ルゴ リ ズムも ホーナー 法が 必要な 数と 同じ 数の 和と 積 を 使用す る 必要が ある こと を 証明 
する ことが 可能で ある。 従って ホーナー 法 は 多項式 評価に おいて 最適な アルゴリズムで 
ある。 これ は （和の 数に おいて） A.  M.  Ostrowski による 1954 年の 論文に て 証明され、 こ 
れが 現代の 最適 アルゴリズム 研究の 基礎 を 築いた。 同様の 説明が 積の 数に ついて V.  Y. 
Pan によ リ 1966 年に 証明され た。 Borodin  and  Munro  (1975) による 本が これらと 他の 
最適 アル ゴリ ズム についての 結果に ついて 概観して いる。 
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( cons    ( accumulate   op   init   {??) ) 

( accumulate - n  op   init   {??) ) ) ) ) 


Exercise  2.37: べク ト ノレ v  =  (^) を 数値の 列と して 表現し、 行列 
m=  {mxj) をべ ク トル （行列の 行） の 列と して 表現 するとす る。 倒 
えば 以下の 行列 は、 


列 （（1 2  3  4)  (4  5  6  6)  (6  7  8  9)) と して 表現され る。 この 表 
現と 共に 列 操作 を 用いる ことで 簡潔に 基本的な 行列と べク トルの 
操作 を 表現す る ことができる。 これらの 操作 は （行列 演算の どんな 
本に も 記述され ている） 次の ものである。 


(dot-product  v  w)  returns  the  sum  T^ViWi 
(matrix-*- vector  m  v)      returns  the  vector  t, 

where  ti  ― l^jTUijVj^ 
(matrix- *-matrix  m  n)      returns  the  matrix  p, 

where  pij  =  Efcrn^nfej, 
(transpose  m)      returns  the  matrix  n, 
where  riij  ―  mji. 


ドット 積 を 次のように 定義で きる。 18 

(define    (.dot-product  v  w) 

(accumulate   +  0   、map   *  v  w) ) ) 

以下の 他の 行列 操作 を 演算す るた めの 手続の 欠けた 式 を 補え。 （手 

im  accumulate-n      Exercise  2.6^o ひ Sirf  ^ れて レヽ" £5  。 ) 

(define    (matrix - * - vector  m  v) 

(map  {??)  m)) 
(define    (transpose  mat ) 

( accumulate-n  {??}  {??}  mat ) ) 
(define    (matrix - * - matrix  m  n) 

(let    ((cols    (transpose  n) ) ) 
(map   {??}  m))) 

18 この 定義 は Footnote 12 にて 説明した map の 拡張 バージョン を 使用す る 
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Exercise  2.38:  accumulate 手続 はまた fold-right と しても 矢 口ら 

れ ている。 それが 列の 最初の 要素と 右側の 要素 全て を 結合した 結 
果とを 結合す るた めで ある。 fold-left も 存在し、 fold-right と 
似て いるが、 要素の 結合 を 逆の 向きに 行う。 

(define  、： fold -丄 eft   op   initial   sequence ) 
(aefine    ( iter  result   rest ) 
(if    (null?  rest) 
result 

iter    (op  result    ( car  rest)) 
(cdr  rest)))) 
( iter   initial   sequence  ) ) 

以下の 式の 値 はいく らか。 

(fold-right   I 1 (list 1 2  3)) 
(fold-left   I 1 (list 1 2  3)) 
(fold-right   list  nil    (list 1 2  3) ) 
(fold-left   list  nil    (list 1 2  3) ) 

op カミ: fold-right と fold-left にて 同じ 値 を 任意の 列に 対し 生成 

する こと を 保証す るのに 必要な 特性 を 答えよ。 

Exercise  2.39: 以下の reverse  (Exercise  2.18) の fold-right と 
fold-left(Exercise  2.38) を 用いた 定義 を 完成 させよ。 

(define    (.reverse   sequence ) 

(fold-right    、上 ambda   (x  y)    {??) )   nil   sequence ； ； 
(define    (reverse   sequence ) 

(fold-left    (lambda   (x  y )    {??) )   nil  sequence)) 


入れ子の map 

列の パラダイム を 拡張し、 一般的に 入れ子 ループ を 用いて 表現され る 多く 
の 演算 を 含めて みます。 19 次の 問題に ついて 考えて みて 下さい ： 正の 整数 n を 

19 この 入れ子 マ ッ ピ ン グ への 取 リ 組み方 は David  Turner により 示され まし た。 彼の 言 
語で ある KRC と Miranda は これらの 構成 概念 を 取り扱う ための 洗練され た 形式主義 を 
与えました。 この 節の 例 （また Exercise  242 も 参照） は Turner  1981 より 翻案され ました。 
Section  3.5.3 では この やり方が 無限 長 列に 対し どのように 一般化され るか を 学びます。 
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与えられた 時、 異なる 正の 整数 i と j の 全ての 順序 付け ペア を 見つけよ。 条件 

として 1 ^  j  く  i  ^  n、 かつ i  +  j は 素数で ある。 例と して、 もし n が 6 ならば 
ペア は 以下の通り である。 


1 

2 

3 

4 

4 

5 

6 

6 

j 

1 

2 

1 

3 

2 

1 

5 

i  +  j 

3 

5 

5 

7 

7 

7 

11 

この 演算 を 体系化す る 自然な 方法 は 全ての 順序 付けられた n 以下の 正の 整数の 
ペア を 生成し、 フィルタ を 通して その 合計が 素数で ある ものの み を 選択し、 フ 
ィルタ を 通った 各 ペア （i,j) に 対し 三つ組 （ん +      を 生成す る ことです。 

ここで ペアの 列 を 生成す る 方法 を 上げます ： 全ての 整数 i  ^  n に 対し、 整 
数 j'<i を 列挙し、 全ての そのような i と j に 対し、 ペア ひ， j) を 生成し ます。 
歹 I」 操作 を 用レヽ て、 (enumerate-interval 1 n) (こ & つて map を ネ亍 (/ヽ ます。 こ 
の 列の 各 i に 対し、 列 （enumerate-interval 1 (- i 1)) に 沿って map を 行い 
ます。 この 後者の 列の j に 対し、 ペア （list  i  j) を 生成し ます。 これが 全ての 
i に対する ペアの 列 を 与えます。 全ての i に対する 全ての 列 を （append を 用い 
て 集積す る ことにより） 接続す る こと で 要求 された ペアの 列 を 生成し ま す。 20 

に accumulate 
append  nil   vmap    、丄 ambaa   v 1 ) 

(map   ( lambda   (j) ( list   i  j ) ) 

( enumerate-interval 1 ( 一 i 1)))) 
(enumerate-interval 1 n) ) ) 

map と 集積の 組み合わせ を append と共に 用いる の はこの 種の プログラム にお 
いて とても 一般的で すので、 これ を 分離した プログラム として 分けます。 

(, def ine    (f latmap  proc  seq; 

( accumulate   append  nil    (map  proc   seq) ) ) 

これで この ペアの 列 を フィルタ にかけ 和が 素数で ある もの を 探します。 フィル 
タの 述語が 各 要素に 対して 呼ばれます。 その 引数 は ペアで あり、 ペアから 整数 
を 抽出せ ねばな リ ません。 従って 列の 各 要素に 適用され る 述語 は 以下の ように 
なり ます。 

def  ine    (prime-sum?  pair ) 
に prime? 、十 (car  pair )    ( cadr  pair ) ；)) 


20 ここで は ペア を 2 つの 要素の リ ストと して 表現して おり、 Lisp の ペアと してで は あ 
りません。 従って" ペア，， (ん j) は （list  i  j) であり、 （cons  i  i) ではありません。 
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最後に、 フィルタ を 通った ペア 全体に 以下の 手続 を 用いて map を かけた 結果 
の 列 を 生成し ます。 以下の 手続 は 2 つの 要素の ペアと それらの 和 を 用いて 3 つ 
組 を 構築し ます。 

dei ine    (make -pair- sum  pair  ) 
( list    (car  pair )    ( cadr  pair)    (+    ( car  pair)    ( cadr  pair ) ) ) ) 

これらの ステップ 全て を 接続 すれば 手続 は完 了 です。 

t, def  ine    (prime- sum- pairs  n) 
(map  make -pair -sum 

C f ilter  prime-sum? 

( f latmap 
( lambda  (i) 

(map   ( lambda   ( j ) (list  i  j ) ) 

C enumerate -interval 1 (- i 1)))) 
( enumerate -interval 1 n) ) ) ) ) 

入れ子の map は 区間 を 列挙す る もの 以外の 列に 対しても 便利です。 ある 集合 
S の 全ての 順列 を 生成したい とします。 つまり 集合 内の 項目の 全ての 並べ方で 
す。 例えば {1,2,3} の 順列 は {1,2,  3},  {1,3,  2},  {2, 1,3},  {2,  3,1},  {3, 1,2},  and 
{3,2,1} です。 ここに 集合 S の 順列 を 生成す るた めの 計画 を 上げます ： S 中の 
全て 項目 x に 対し 再帰 的に S  —  i の 順列の 列 を 生成し、 21 次に a; を それぞれの 
先頭に 置く。 これ は S の 全ての: r に 対し S の: r で 始まる 順列の 列 を 生成す る。 
これらの 全ての: r に対する 列 を 接続す ると S の 全ての 順列が 与えられる。 22 

dei  ine    (permutations   s リ 
(if    (null?   s)  ； 集合 は 空か？ 

(list  nil)  ； 空集合 を 持つ 列 

( f latmap    (lambda   (x ) 

、！ nap    、丄 ambda  、！ ）)    ( cons  x  p; ) 

(permutations    (remove  x  s ) ) ) ) 

s))) 

この 戦略が どのよう に S の 順列 を 生成す る 問題から S よりもよ リ 少ない 要素 
の 集合の 順列 生成の 問題へ と 縮小して いる かに 注意 して 下さい。 境界 条件に 関 

21 集合 S  — a; は S の 全ての 要素から z を 除いた 集合 

"Scheme の コードで はセ ミ コロン は conunents (コ メン ト） を 書く 場合に 利用され ます。 
セミコロンから 始まり 行末までの 全て はィ ン タブ リタ に 無視され ます。 こ の 本で は あ ま 
リ 多くの コメント を 使用して いません。 私達 は プログラムに 対し 説明 的な 名前 を 付ける 
ことで それ 自身が ドキ ュメン ト であるか のように 作る よう 努力して います。 
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Figure  2.8:  8 クィーン パズルの 解の 一例 


して は 要素 無しの 集合 を 表す 空 リストまで 順に 処理 を繰リ 返します。 空 リスト 
に対して （list  nil) を 生成し ました。 これ は 1 要素の 列で あり、 要素 無しの 
集合 を 表します。 per 皿 tations 内で 利用され る remove 手続 は 与えられた 式 か 
ら 与えられた 項目 以外の 全ての 要素 を 返します。 これ は 簡単な フィルタ にて 表 
す ことができます。 

(, del ine    (remove   item   sequence ) 

(filter    (lambda   (x)    (not    (=  x  item))) 
sequence ) ) 

Exercise  2.40: 整数 n を 与えられ、 ペア （ん j) を l<j  <iS  n の条 
件で 生成す る 手続 unique-pairs を疋義 Ti— よ。 unique-pairs を 用 
いて 上で 与えられた prime-sum-pairs の 定義 をよ リ 簡単に せよ。 

Exercise  2.41: 与えられた 整数 n 以下で かつ 合計が 与えられた 整 
数 s である、 全ての 異なる 正の 整数 i, ム もの 順序 有りの 3 つ 組 を 
求める 手続 を 書け。 

Exercise  2.42: 

"8 クィーン パズル" は 8 つの クィーン を チェス 盤の 上に、 どの ク 
ィーン も 他の クィーン を 取る ことができ ないよう にす るに は どの 
ように 置く か を 尋ねる。 （これ はつ まり どの 2 つの クィーン も 同じ 
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列、 行、 または 斜めの 線 上に 有って はならない という ことで ある）。 

考えられる 解の 1 つ を Figure  2.8 に 示す。 この パズル を 解く 1 つの 
方法 は 盤 上に 渡って 各 列に クィーン を 置く。  fc— 1 個の クィーン を 
置いたら fe 番目の クィーン は 既に 盤 上に 置いて ある どの クィーン 
も 取れな い 場所 に 置かなければ ならない。 この 取り 組み方 を 再帰 
的に 形式 化で きる ： 盤 上の 最初の fc—1 列 内 のん— 1 個の クィーン 
の 可能な 置き 方 全ての 列 を 既に 生成した と 想定す る。 これら 全て 
の 方法に 対し 拡張 し た 位置の 拡張 集合 を fc 番目 の 列の 各行に ク ィ 
ーンを 置く ことで 生成す る。 次に これら を フィルタに かけて ん番 
目の 列の クイ 一 ンが 他の クィーン を 考慮しても 安全な 位置の み を 
保持す る。 これ は fc 個の クィーン を 最初の も 列 内に 置く 全ての 方 
法 を 生成す る。 この 過程 を 繰り返す ことで 1 つの 解答 のみでな く、 
この パズルの 全ての 解答 を 生成で きる。 

この 解法 を 手続 queens と して 実装した。 ri 個の クィーン を n  X  n 
の チェス 盤 上に 置く 問題に 対する 全ての 解の 列 を 返す。 queens は 
内部 手続 queen-cols を 持ち、 それ は 盤の 最初の fc 列 中に クィーン 
を 置く 全ての 方法の 列 を 返す。 

dei ine    (queens  board-size  ) 
(def ine に queen-cols  k; 
(if    (=  k  0) 

(list   empty-board ) 
(filter 

(lambda   (positions )    ( safe?  k  positions ) ) 
(f latmap 
V lambda   (rest - of - queens) 
(map   ( lambda   (new-row ) 

(ad jo in - posit  ion  new-row 
k 

rest - of - queens) ) 
( enumerate- interval 1 board - size))) 
(queen-cols    (-  k 1)))))) 
(queen-cols  board-size ) ) 

この 手続の 中で、 rest-of -queens は 最初の た— 1 列 内に た— 1 個の 
クイーン を 置く 方法で あ リ 、 new-row は k 番目の 列に 対して クイ 
—ンを 置く ように 提案され た 行で ある。 盤 上の 位置の 集合に 対す 
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る 表現 を、 新しい 列の 位置 を 位置の 集合に 付け足す 手続 adjoin- 
position と 位置の 空集合 を 表す empty-board を 含めて 実装す る 
ことで プログラム を 完成 させよ。 あなた は k 番目の 列に ある クイ 
一 ンが 他に 対 して 安全で ある か ど う か を 位置の 集合に 対して 決定 
する safe? もまた 書かなければ ならない。 （新しい クィーンが 安全 
であるか どうかの み を チェック する 必要で ある ことに 注意す る こ 
と 一 他の クィーン は 既にお 互いに 安全で ある ことが 保証され てい 
る)。 

Exercise  2.43:  Louis  Reasoner は Exercise  2.42 を ff う こ とで 酉 告ぃ時 
間 を 過して いる。 彼の queens 手続 は 動いて いるよう に 見える。 し 
かし 実行が とても 遅い。 （Louis は 6  X  6 の 場合で さえ それ を 解く 
のに かかる 長い 時間 を 待つ ことができなかった）。 Louis が Eva  Lu 
Ator に 助け を 求めた 時、 彼女 は Louis 力5' flatmap 内の 入れ子の マ 
ッ ピ ン グの順 を 交換 してし まった こと を 指摘した。 以下の よう に 
書いて いた。 

i,f latmap 
(lambda  (new-row) 

(mac    (lambda   (rest- of -queens ) 

( ad "j  oin - position  new-row  k  rest - of  - queens  ) ) 
(queen-cols    (-  k 1)))) 
(enumerate -interval 1 board-size ) ) 

この 交換が なぜ プログラムの 実行 を 遅くす るの か 説明せ よ。 Louis 
の プログラムが 8 クイ 一 ン パズル を 解く のに どれ だ けの 時間が か 
かる か 推察せ よ。 Exercise  2.42 の プログラムが 同じ パズル を 解く 
のに 必要な 時間が T であるとの 前提で 行え。 


2.2.4 例： ピクチャー 言語 

この 節で は 絵 を 描く 簡単な 言語 をお 見せし ます。 こ れがデ 一 タ 抽象と 閉包 

の 力 を 図示し、 また 高 階 手続 を 本質的な 方法で 利用し ます。 この 言語 は Figure 
2.9 のよう な パターン を 試験す る こと を 簡単に する ように 設計され ております。 
この 図 は 要素が 移動し、 縮小し を 繰り返しながら 組み立てられ ています。 23 こ 


23 ピクチャー 言語 は Peter  Henderson が 作成した 言語 を 基に してお り、 この 言語 は 
M.C.  Escher の 木版画 "Square  Limit  "(Henderson  1982 参照） のよう なィ メージ を 構築 
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の 言語 内で は、 組み立てられる データ オブジェ ク トは リスト 構造で はなく 手続 

と して 表現され ます。 閉 包の 特性 を 見た す cons が 簡単に 自由に 複雑な リスト 
構造 を 構築で きる ように、 この 言語 内の 命令 もまた 閉 包の 特性 を 満たし、 簡単 
に 自由に 複雑な パターン を 構築で きます。 

この 本の ピクチャー 言語 

Section 1.1 で プロ グラ ミ ングの 学習 を 始めた とき、 言語の プリ ミ ティ ブ、 そ 
の 組み合わせの 手段、 抽象化の 手段に 集中す る ことが 言語の 説明の 重要性 だと 
強調 しました。 ここで は その 枠組みに 従レ 、 ま す。 

この ピクチャー 言語の 優雅 さの 部分 は 要素の 種類が painter (ペイ ンタ） と 
呼ばれる ものた つた 1 つし かない ことです。 ペイ ンタは 指定され た 平行 四辺 
形の 枠の 中に イメージ を 移動し、 拡大 縮小して 描きます。 例えば wave と 呼ぶ 
ぺ インタが あ リ それ は Figure  2. 10 に 見られる ような 粗野な 線の 絵 を 描きます。 
実際の 絵の 下腿 は フレームに 依存し ます 一 Figure  2.10 の 4 つの 絵 全て は 同じ 
wave ペイ ンタ によ リ生 成されて いますが、 4 つの 異なる フレーム を 考慮して い 


する ために 作成され ました。 その 木版画 は 繰り返し サイズが 変更され た パターン が 組 込 
まれて ぉリ、 この 節の square-limit 手続 を 用いて 描かれた 配置と 似て おり ます。 
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Figure  2.10:  wave により 生成され た イメージ 


ます。 ぺ インタ はこれ よりもより 複雑に する ことが 可能です。 rogers と 呼ば 
れる プリ ミ ティ ブな ペイ ンタは MIT の 創始者で ある William  Barton  Rogers の 
絵 を Figure  2.11 に 示される ように 描きます。 24  Figure  2.11 の 4 つの イメージ 

24 William  Barton  Rogers  (1804-1882) は mit の 創始者で あ リ 、 かつ 初代 学長です。 地 
質 学者で あ リ 、 才能 溢れる 教師で ある 彼 は William  and  Mary  College と University  of 
Virginia にて 教鞭 を 取り ました。 1859 年に 彼 は ボス ト ンへ 移り そこでよ り 研究に 打ち込 
み、 "技術 専門の 研究所" を 設立す る 計画 を 進めました。 また マサチューセッツ 州の 最初 
の ガス メータの 州 検査官 も 務めました。 

MIT が 1861 年に 創設され た 時、 Rogers は 最初の 学長に 選ばれました。 Rogers は "useful 
learning" (実用的 学習） の 活用 を 信奉し ました。 これ は 当時の 大学教育から は 異なる もの 
でした。 彼に 依れば 古典の 過度の 強調が "より 幅広く、 高く、 より 現実的な 教育と 自然 科 
学、 及び 社会科学の 前に 立ち塞がって いる" と 書いて います。 同様に 彼の 教育 は 職業 専門 
学校の 狭い 教育から も 異なる ものに なろうと していました。 

実利 的で ある こと と 科学 実務 者の 間の 区別 を 強制す る 世界 は 全く 無益 だ。 
現代の 経験 全てが その 完全な 無益 さ を 示して いる。 

Rogers は mit の 学長 を 健康 上の 理由で 辞任す る 1870 年まで 務めました。 1878 年に 二 
代 目の MIT 学長 John  Runkle は 1873 年 か らの大 不況に よりも たらさ れた 財政危機の プ 
レッシャーと Harvard による MIT の 買収の 試みに 対する 抵抗の 緊張に よ リ 辞任 しまし 
た。 Roger は 学長の オフィス を 支える ため 1881 年まで 戻りました。 

Rogers は 1882 年、 MIT の 大学院の 卒業試験に 取り組む 最中に 倒れ、 亡くなられ まし 
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Figure  2.11:  William  Barton  Rogers の イメージ 


は Figure  2. 10 の wave の イメージと 同じ 4 つの フレーム を 考慮して 描かれて い 
ます。 

イメージ を 結合す るに は 与えられた ぺ インタから 新しい ぺ インタ を 構築す 
る 種々 の 命令 を 使用し ます。 例えば beside 命令 は 2 つの ペイ ンタ を取リ 新し 


た。 Runkle が Roger の 最後の 言葉 を 同年に 送られた 弔 事から 引用して います。 

"本日 ここに 立ち 本校と は 何で あるか を 考える と... 科学の 始ま リを 思い 受 
かべます。 150 年 前に Stephen  Hales は 灯 用の ガス を 主題に した 小論 文 を 
発表し ました。 その 中で 彼 は 彼の 研究が 128 グレイ ンの 瀝青炭 - " "瀝青 
炭" これが 地上での 彼の 最後の 言葉でした。 ここで 彼 は 体 を 前に 曲げ、 彼 
の 前の テーブルの 上に ある 端 書 を 確認す るよう でいて、 そして ゆつ く リ と 
直立した 体制 を 取り戻し、 両腕 を 上げ、 そして 彼の地 上の 労働と 業績の 場 
面から "死の 明日" へと 形 を 変えた のです。 そこで は 人生の 謎 は 解決され、 
肉体から 解放され た 魂 は 新しく、 未だ 測り しれない 無限の 未来の 謎 を 熟考 
する ことに 終りの 無い 充足 を 見つける のです。 

Francis  A.  Walker(MlT の 三代 目の 学長） の 言葉で は 

彼 自身が 負うた 彼の 人生 全て は 最も 誠実で 雄々 しく、 そして 彼 は 騎士が 心 
から 望んだ かの ごとく、 仕事中に、 その 役職の まま、 公務の 行いの 最中に 
亡くなった。 
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Figure  2.12:  Figure  2. 10 の wave ペイ ンタ から 始めて 複雑な 

図 を 作成す る 


い 最初の ペイ ンタの イメージ を フレームの 左 半分に、 2 つ 目の ペイ ンタ のィメ 
一 ジをフ レームの 右 半分に 描く 複合 ペイ ンタを 生成し ます。 同様に below は 2 
つの ペイ ンタを 取り、 1 つ 目の ペイ ンタの イメージ を 2 つ 目の ペイ ンタ のィメ 
ージの 下に 描きます。 いくつかの 命令 は 単一の ぺ インタ を 変換し 新しい ペイン 
タを 生成し ます。 例えば flip-vert はぺ インタ を 取り その イメージ を 上下 逆さ 
に 描く ペイ ンタを 生成し、 flip-horiz は 元の ペイ ンタの イメージ を 左右 逆に 
描く ペイン タを 生成し ます。 

Figure  2. 12 は wave4 を 呼んだ ぺ インタ の 描画 を 見せて ぉリ、 こ れは wave で 
始め 2 段階 を 経て 構築され ています。 

def ine   wave2    (beside  wave に： flip  -  vert   wave  ) ) ) 
(define   wave4    (below  wave2  wave2 ) ) 

複雑な ィ メージ を こ の 様式で 構築す る 場合 は ペイ ン タ が 言語の 接続 手段 

の 下で 閉じて いると いう 事実 を 利用して います。 2 つの ペイ ンタの beside や 
below は それ 自身が ペイン タ です。 従って それ をより 複雑な ペイン タを 作る た 
めの 要素と して 使用で きます。 cons を 用いて リスト 構造 を 構築す るのと 同様 
に、 結合 手段の 下の データの 閉包 はほんの わずかな 命令 を 用いて 複雑な 構造 を 
作成す る 能力に とって 重大です。 

ぺ インタ を 結合で きれば 直 ぐ に、 ペイン タを 接続す る 典型的な バタ ーンを 
抽象化で きる ようになり たいと 願う でしよ う。 ぺ インタ 操作 を Scheme の 手続 
と して 実装す る ことにします。 それ は 私達が ピクチャー 言語 内の メカニズム 
と して 専用の 抽象化 を 必要と しない こと を 意味し ます。 接続の 手段が 普通の 
Scheme の 手続です から、 手続の 範囲で 行える ぺ インタの 操作 を 用いて、 何で 
もで きる 能力が 自動的に 得られます。 例えば waveA 内の パターン を 抽象化で き 
ます。 
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Figure  2.13:  right-split と corner-split の 再帰 計画 


( dei ine    (f lipped-pairs  painter ) 

(let      ^painter2    (beside  painter    (flip-vert  painter  ) ) ) ) 
(below  paint er2  painter 2 ) ) ) 

そして wave4 を この パターンの ィ ン スタンス として 定義し ます。 

dei  ine  wave4   (ェ丄 ipped - pairs   wave  ) ) 

また 再帰 命令 を 定義す る こと も 可能です。 以下 はぺ インタ を 分割し、 Figure 
2.13 に 示す よう に 右へ 向けて 枝分かれ します。 

dei  ine    (right-split  camter  n) 
(if    (=  n  0) 
painter 

(let    ( ( smaller    (right-split  painter    (-  n 1)))) 
(beside  painter    (below  smaller   smaller ) ) ) ) ) 

右に 向けて と同じように 上方 向に も 枝分かれ する ことで バランスの 取れた パ 

ターン を 生成す る こ とも 可能です。 （課題 Exercise  2.44 と 図 Figure  2. 13 と Figure 
2.14 を 参照して 下さい)。 


137 


(define    ( corner-split  painter  n) 
(if    (=  n  0) 
painter 

(let    ( (up   (up-split  painter    (-  n 1))) 

(right    (right-split  painter    (-  n 1)))) 
(let    ( (top-left    (beside  up  up)) 

(bottom-right    (below  right  right ) ) 
( corner    ( corner-split  painter    (-  n 1)))) 
(beside    (below  painter  top-left) 

(below  bottom-right   corner )))))) 

corner-split の 4 つの コピ一 を 置く ことで square-limit と 呼ばれる パタ一 
ンを 獲得す る ことができ、 wave と rogers に対する 適用 力^ igure  2.9 に 示され 
ます。 

(, del ine    (square-limit  painter  n) 

(let    (.  (. quarter    (  corner-split  painter  n) ) ) 

(let    ( (half    (beside    ( f lip-horiz  quarter )    quarter ) ) ) 
(below    (flip-vert  half)  half)))) 

Exercise  2.44:  corner-split にて 使用され た 手続 up-split を定 
義 せよ。 right-split に似てい るカ弋 below と beside の 役割 を 入 

れ 替える。 

ペイ ンタ 命令の パターン を 抽象化す るのに 加えて、 よ リ 高い レベルの ペイ 
ン タ 命令 接続の 抽象化 バタ ーン について 取り 組む こ と がで きます。 それ は ペイ 
ンタ 命令 を 操作 を 行うた めの 要素 一 ペイ ンタ 命令 を 引数と して 取り 新しい ぺ 
インタ 命令 を 作成す る 手続と 見做し、 そして これらの 要素の ための 組み合わせ 
の 手段の 記述が 可能 だ という こと です。 

例と して、 flipped-pairs と square-limit はぺ インタの イメージ を 四角 
の パターン 内に て 4 つの コピー を それぞれが 準備し ます。 それら は どのような 
位置と 向きに 置く かとい うことの みに おいて 異なり ます。 この ペイン タ 接続の 
パターン を 抽象化す る 1 つの 方法 は 以下の プロシジャ を 用いて、 4 つの 1 引数 
ペイ ンタ 命令 を 取り 与えられた ペイ ンタを それら 4 つの 命令で 変換す る 命令 を 
生成し、 結果 を 四角の 中に 配置し ます。 tl, tr,  bl, and  br は 左上、 右上、 左下、 
右下の コピーに 対応す る 変換です。 
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(right-split  wave  4) 


(right-split  rogers  4) 


>>>>>>>>>>>>>>> 


(corner-split  wave  4) 


(corner-split  rogers  4) 


Figure  2.14: ペイ ンタ wave と rogers に 適用され た 再帰 命 
令 right-split と corner - split。4 つの 図 corner-split を 

組み合わせる ことで Figure  2.9 で 示された 対照的な square- 
limit  の デザィ ンを 生成す る。 
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(define    (square-of -f our  tl tr  bl br ) 
( lambda   (painter ) 

(let    (  (top    (beside    ( tl  painter )    ( tr  painter ) ) ) 

(bottom   (beside    (bl  painter )    (br  painter ) ) ) ) 
(below  bottom  top)))) 

する と flipped- pairs は square-of -four を 以下の よう に 用いて 定義 可能で 

す。 25 

dei ine  、： flipped -; pairs  painter  ) 

(let    "combine4     square-of -four   ident ltv  f lip-vert 

identity  f lip-vert ) ) ) 

( combine4  painter ) ) ) 

そして square- limit は 以下の 様に 表現 可能です。 26 

dei  ine    、  square -丄 imit  painter  n) 
(let    { C  combine4    ( square-of -four   f lip-horiz  identity 

rotatel80  flip-vert) ) ) 
( combine4    ( corner-split  painter  n) ) ) ) 

Exercise  2.45:  right-split と up-split は 一般的な 分割 命令の ィ 
ン スタンス だと 言う ことができる。 手続 split を 以下の 式 を 評価 
する 場合に、 

、 def ine   right-split    ( split  beside  below) ) 
(define  up-split    ( split  below  beside ) ) 

既に 定義 済みの ものと 全く 同じ 振舞 を 行う 手続 right-split と 
up- split を 生成す るよう 定義せ よ。 

25 同等に、 こう も 書け ます。 

t,  def  ine  f lipped-pairs 

( square-of -four   identity   flip-vert    ident  it v  flip-vert ； ； 

26Rotatel80 は ペイ ンタを 180 度 回転 します （Exercise  2.50 参照）。 rotatel80 の 代わ リ 
に (comoose  flip  -  vert  f lip-horiz) と"^ つ」 とも し、 きまき。 compose 手 |?c は Exercise 
1.42 から 使用し ました。 
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origin  (0,  0)  point  on 
vector      display  screen 

Figure  2.15:  3 つのべ ク トルー 始 点と 2 つの 辺に より 記述 

された フレーム 


フ レーム 

ペイ ンタ とどの ように 実装し その 接続 手段 を 示す 前に、 始めに フレームに 
ついて 考えなければ なり ません。 フレーム は 3 つのべ ク トルー 始 点べ ク トルと 
2 つの 辺べ ク トルで 説明で きます。 始 点べ ク トル は 平面 上に おいて ある 絶対的 
な始 点から フレームの 始 点までの オフ セッ トを 指定し ます。 そして 辺べ ク トル 
は始 点から 角までの オフ セッ トを 指定し ます。 もし 2 つの 辺が 垂直で あれば フ 
レーム は 長方形になります。 そ れ 以外で は フレーム はより 一般的な 平行四辺形 
になり ます。 

Figure  2.15 はフ レームと その 対応す るべ ク トル を 示します。 データ 抽象化 
に 従い、 まだ フレームが どのように 表現され るかに ついては、 3 つの ベクトル 
を 取リフ レーム を 生成す る コンストラクタ make-frame と 関連す る 3 つの セ レ 
ク タ origin-frame,  edgel-frame,  edge2-f  rame 力 《存在する こ と 以外 を 特定す 
る 必要が あ リ ません。 （Exercise  2.47 を 参照して 下さい)。 

私達 は 単位 正方形 （0  <  x,y  < 1) 内の 座標 を イメージ を 指定す るのに 用い 
る ことにします。 各 フレーム は、 フレームに 適合す るよう に イメージの 移動と 
拡大 縮小 をす るのに 使われる frame  coordinate  rraap (フ レーム 座標 マ ッ プ） に 関 
連 付けられます。 マップ は 単位 正方形 をべ ク トル v  = (もが を 次の べク トルの 
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和 に マ ッ ピ ン グす る ことで 変換し ます。 

urigm(Frame)  +  x  .  Edgei  (Frame)  +  v  .  Edges  (Frame  I . 

例えば、 （0,  0) は フレームの 始 点に、 （1, 1) は 対角線 上に 始 点の 反対の 項 点へ、 
そして （0.5,  0.5) は フレームの 中心点に マッピング されます。 フレーム 座標 マ 
ップは 以下の 手続に より 作成で きます。 27 

^define    (frame-coord-map ェ rame ノ 
( lambda  ( v) 
( add-vect 
に origin -： frame   frame ) 

( add-vect    (scale - vect    (xcor-vect  v ) 

(edgel-f rame   frame ) ) 
(scale - vect    (ycor-vect  v) 

( edge2-f r ame   frame )))))) 

frame- coord-map を フレームに 適用す ると、 べク トル を 取 リベ ク トル を 返す 手 

続 を 返す ことに 注意して 下さい。 もし 引数 ベクトルが 単位 正方形の 中なら、 結 
果 のべ ク トル は フレームの 範囲 内に なり ます。 例と して、 

、(： frame - coord - man   a-irame ； に make—vect   0  0) ) 

は 以下の べク トルと 同じ もの を 返します。 

、 origin - frame   a -; frame) 

Exercise  2.46: 始 点から ある 点へ と 走る 2 次元べ ク トル v は rr- 座 

標と リ- 座標から 成る ペアに ょリ 表現で きる。 べク トルに 対する デ 
ータ 抽象 を コンス トラクタ make-vect と 関連す る セレクタ xcor- 
vect  と ycor-vect を 与える ことによ リ 実装せ よ。 セレクタと コン 
ス トラクタ を 用いて ベクトルの 足し算、 引き算、 ス カラに よる 乗 
算を 求める 操作 を 実行す る 手続 add-vect,  sub-vect,  scale-vect 
を 実装せ よ。 

+  (x2,y2)  =  (xi +x2,yi  +2/2), 
(xi,Vl) ― (X2,V2)  =  {xi - x2,yi  —2/2), 

,  s 二  {x,y)  =  (sx,sy). 

27frame-coord-map はこの 先の Exercise  2.46 にて 説明され るべ ク トル 操作 を 用います。 
ここで は 何ら かの べク トルの 表現 を 用いて 実装 済みと 仮定し ます。 データ 抽象化の おか 
げで このべ ク トルの 表現が どんな もの か は、 べク トル 操作が 正しく 振る舞われる 限りに 
おいて 問題に はなり ません。 
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Exercise  2.47: ここに 2 つの 有り得 そうな フレームの コンス トラ ク 
タが ある 


(define  (make-irame   origin  edge 1 edge2 ) 

(list  origin  edge 1 edge2 ) ) 

(define  (make-frame   origin  edge 1 edge2 ) 

( cons  origin   ( cons   edge 1 edge2 ) ) ) 

各 コンストラクタに 適切な、 フレームに 対応す る 実装 を 生成す る 
セレクタ を 提供せ よ。 

ぺ インタ 

ぺ インタ は フレーム を 引数と して 与え、 特定の イメージ を フレームに はま 
るよう に 移動、 拡大 縮小して 描く 手続と して 表現され る。 すなわち もし P がぺ 
ィ ンタで f が フレーム である 場合、 f を 引数と して P を 呼び出す ことで f の 中 
に P の イメージ を 生成す る。 

プリ ミ ティ ブな ペイ ンタが どのよう に 実装され ている かの 詳細 は 特定の グ 
ラフィック システムの 特質と 描画され る イメージの タイプに 依存し ます。 例え 

ばスク リーン 上の 2 つの 指定され た 点の 間に 線 を 引 く 手続 draw-line が ある と 
想定し ます。 すると 線分の リストから 線 を 引く ための ペイン タ、 例えば Figure 
2. 10 の wave ぺ インタの ような もの を 以下の ように 作る ことができます。28 

1, del ine    (segment s->pamter   segment-list ) 
( lambda    (frame ) 
(f or-each 
(lambda   (segment ) 
( draw-line 
( (frame-coord-map  frame ) 

( st art- segment   segment ) ) 
( (frame-coord-map  frame ) 
( end-segment   segment ) ) ) ) 
segment -list))) 


28Segments->painter は 線分の 表現に 下記の Exercise  2.48 で 説明 さ れた もの を 使って 
います。 また Exercise  2. 23 で 説明され た for-each を 使って います。 
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線分 は 単位 正方形に 対しての 座標 を 用いて 与えられます。 リスト 中の 各 線分 に 
対してべ インタ は 線分の 終端 を フレーム 座標 マップ を 用いて 変換し、 変換 後の 
点の 間に 線 を 引きます。 

手続と してべ インタ を 表現す る こと は 強力 な 抽象化 バリア を ピクチャー ラ 
ン ゲージの 中に 確立し ます。 私達 は 全ての 種類の プリ ミ ティブな ぺ インタ を 
種々 の グラフィック 機能の 基盤の 上に 作り、 混ぜる ことができます。 それらの 
実装の 詳細 は 問題で はあり ません。 フレーム を 引数と して 取り フレームに 適切 
な サイズに スケールして 何 か を 描く 任意の 手続が ぺ インタの 役 を 演じる ことが 
できます。 29 

Exercise  2.48: 平面 上で 方向 を 持つ 線分 はべ ク トルの ペア 一原 点 

から 線分の 始 点へ と 向かう ベクトルと 原点から 線分の 終点へ と 向 
かう ベクトルと して 表現 可能 だ。 Exercise  2.46 のべ ク トル 表現 を 
用いて、 コノム トフ クタ make-segment と セレクタ start-segment 
と end-segment を 持つ 線分 表現 を 定義せ よ。 

Exercise  2.49:  segment  s->painter  ^ 用 レヽて 以下の フ リ ミア ィフ 

なぺ インタ を 定義せ よ。 

a 指定した フレームの 外枠 を 描く ペイン タ 

b フレームの 反対の 角 を 繋いで" X" を 描く ペイン タ 

c フ レームの 辺の 中点 を 結んで ダイヤ モン ドの形 を 描く ぺ 
インタ 

d  wave ぺ インタ 

変形と ペイ ンタの 組み合わせ 

ペイ ンタ に対する 操作 （例えば flip-vert や beside) はフ レーム 引数に 由 
来す る フレーム に対して 元の ペイ ンタを 実行す る ペイ ンタを 作成す る ことで 働 

29 例えば Figure  2. 11 の rogers ペイ ンタは グレー レベルの イメージから 構築され てい 
ます。 与えられた フレームの 中の 各 点に 対し rogers ペイ ンタは イメージ 中の マッピング 
される 位置 を フレーム 座標 マップの 下に 決定し、 適切に 影 を 付けます。 異なる タイプの 
ペイ ンタを 許可す る ことで、 Section  2.1.3 で 議論され た 分数 表現 は 適切な 条件 を 満たせ 
ば 全く 任意で かまわな いという 抽象 データの 考えからより 大きな 利点 を 得て います。 こ 
こ では ペイ ン タ は 指定され た フレーム 内 に 何 か を 描く ので あれば 全 くどの よう に 実装 さ 
れても 構わない という 事実 を 用いて います。 Section  2. 1.3 はまた ペアが どのよう に 手続 
として 実装され 得る かとい うこと も 示しました。 ペイン タは データに 対する 手続 表現の 
二つ目の 例です。 


144 


いています。 従って 例えば: flip-vert は 引つ く リ 返す 場合に も それが どのよう 
に 描かれる のか は 知る 必要が あり ません 一た だ フレーム を どのように 引つ く 
リ 返す のか 知る 必要が あ るの みです。 逆転 し た ペイ ン タ はた だ 元の ペイ ンタを 
用います が、 フレーム は 逆転され ている のです。 

ペイ ンタ 操作 は transform-painter 手続 を 基に してお リ、 それ はぺ インタ 
とどの ように フレーム を 変換す るかの 情報 を 引数に 取リ、 新しい ペイン タを生 
成します。 変換され たべ インタ は フレーム 上に て 呼ばれた 時に、 フレーム を 
変換して 基の ペイ ンタを 変換 済みの フレーム 上で 呼び出します。 transform- 
painter  に対する 引数 は 新しい フレームの 角 を 指定す る （べク トルと して 表現 
される） 複数の 点です。 フレームに マッピング される 時、 最初の 点 は 新しい フ 
レームの 始点を 指定し、 他の 2 つの は 辺 ベクトルの 終点 を 指定し ます。 従って、 
単位 正方形 内の 引数 は 元の フレームの 中に 含まれる フレーム を 指定し ます。 

V def me    (transform -painter  painter   origin   corner l corner2 ) 
( lambda   (frame ) 

(let    "m   (frame-coord-map  frame))) 
(let    ( (new-origin    (m  origin) ) ) 
(painter  (make-frame 
new-origin 

( sub-vect    (m  corner 1 ) new-origin) 

( sub-vect    (m  corner2 )   new-origin))))) )) 

次 は どのように ぺ インタの イメージ を 縦 方向に 逆 向きに する かです。 

def ine    (ェ丄 ip - vert  painter ) 
V transform-painter  painter 

(make - vect   0.0 1.0)        ；  new  origin 
(make - vect 1.0 1.0)        ；  new  end  of  edgel 
(make - vect   0.0  0.0)))    ；  new  end  of  edge 2 

transform-painter を 用いる ことで 簡単に 新しい 変換 を 定義す る ことができ ま 
す。 右上 4 分の 1 の フレーム は 次のようにして 与えられます。 

def  ine    (  shrink-to-upper -right  painter ) 
(transform-painter 
painter    (make-vect   0.5  0.5) 
(make-vect 1.0   0.5)    (make-vect   0.5 1.0))) 
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他の 変換 はィ メージ を 時計 回 リ の 逆に 90 度 回転 した リ、 3Q 

^define    (rot ate90  painter ； 
(transform-painter  painter 

(make - vect 
(make - vect 
(make-vect 

イメージ を フレームの 中心に 向けて 潰したり します。 31 

(, def ine    (  squash -inwards  painter ) 
(transform-painter  painter 

(make-vect   0.0  0.0) 
(make-vect   0.65  0.35) 
(make-vect   0.35  0.65))) 

フレーム 変換 は 2 つ 以上の ぺ インタ を 接続す る 手段 を 定義す るた めの 鍵で も あ 
リ ます。 例えば beside 手続 は 2 つの ペイン タを 取り それら を 引数の フレーム 
の 左 半分と 右 半分に それぞれ 描画す るよう に 変換す る 新しい 複合 ペイン タを生 
成します。 複合 ぺ インタが フレーム を 与えられ 時、 1 つ 目の 変換 済み ペイン タ 
を 呼び フ レームの 左 半分に 描き、 次に 二つ目の 変換 済み ペイ ンタを 呼び フ レー 
ムの右 半分 を 描きます。 

^define    (beside  painter l pamter2 ) 

(let    ( ( split-point    (make-vect   0.5  0.0))) 
(let    ( (paint-left 

(transform-painter 
painter 1 

(make-vect   0.0  0.0) 
split-point 
(make-vect   0.0 1.0))) 
(paint-right 
(transform-painter 
painter2 
split-point 

30rotate90 は 四角形の フレームに 対しての みの 純粋な 回転です。 イメージ もまた 拡大 
縮小して 回転した フレームに 合わせられる ためです。 

31Figure  2.10 と Figure  2.11 内の ひし 形の イメージ は squash-inwards を  wave と 
rogers に 適用す る こと で 作成 されました。 


1.0  0.0) 
1.0 1.0) 
0.0  0.0))) 
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(make- vect 1.0  0.0) 

(make-vect   0.5 1.0)))) 
(lambda   (frame ) 

(paint-left   frame ) 
(paint-right  frame))))) 

ペイ ンタの データ 抽象化と、 特に ペイ ンタの 手続と しての 表現が どのよう に 

beside の 実装 を 簡単に している のか 注目 して 下さい。 beside 手続 は コンポ 一 
ネント の ペイン トの 詳細に ついて 各 ペイ ンタが 指定され た フレームに 何 か を 描 
く こと 以外 は 一切 知る 必要が あ リ ません。 

Exercise  2.50: ぺ インタ を 水平 方向に 引つ く リ 返す 変換 flip- 
horiz を 定義せ よ。 また ペイン タを 時計と 逆 回りに 180 度と 270 
度 回す 変換 を 定義せ よ。 

Exercise  2.51: ペイ ンタ に対する below 命令 を 定義せ よ。 below は 

2 つの ペイ ンタを 引数に 取る。 結果の ペイ ンタは フレーム を 与え 
られ、 1 つ 目の ペイン タ にて フレームの 底 部 を 描き、 2 つ 目の ペイ 
ンタ にて 上部 を 描く。  below を 2 つの 異なる 方法で 定義せ よ。 1 つ 
は 上で 与えた beside と 同様な 方法で、 2 つ 目 は beside と 適切な 
(Exercise  2.50 の） 回転 命令 を 利用せ よ。 

堅牢な 設計の ための 言語の レベル 

ピクチャー 言語 は 私達が 紹介した 手続と データに ようる 抽象化に ついての 
重要な アイデアの いくつか を 訓練し ました。 基本的な データ 抽象化で ある ペイ 
ンタは 手続 表現 を 用いて 実装され 言語に 異なる 基礎的な 描画 能力 を 統一した 方 
法で 扱う こ と を 可能に しました。 接続 手段 は閉 包の 性質 を 満た し 簡単に 複雑な 
設計 を 組み上げる こと を 可能に しました。 最後に、 抽象化 手続に 対する 全ての 
ツール は ペイ ンタ に対する 接続 手段の 抽象化に とって 有効でした。 

私達 はまた 言語と プログラム 設計に 関する 素晴 しい 考え を 垣間見る ことが 
できました。 これ は sirai が ed  (fesz>i (階層 化 設計） の 方法で、 複雑な システム は 
一連の 言語 を 用いて 記述され る 一連の レベルと して 構造 化されるべき であると 
いう 概念です。 各 レベル は パーツ を パーツ を 接続して 構築され、 それら は 次の 
レベルで は プリ ミ ティブと して 参照され ます。 そして 各 レベルで 構築され たパ 
ーッは 次の レベルに て プリ ミ ティブと して 使用され ます。 階層 化された 設計の 
各 レベルで 使用され る 言語 は プリミティブ、 接続 手段、 そして その レベルの 詳 
細 さ に 適切 な 抽象化 手段 を 持って います。 
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階層 化された 設計 は 複雑な システムの 設計に おいて 普及して います。 例え 
ば 計算機 設計で は 抵抗 と トランジスタ は 接続 され （そして アナ 口 グ 回路 言語 を 

用いて 記述され) AND ゲート や OR ゲートの ような パーツ を 生じ、 それらが デ 
ジ タル 回路の 言語の プリミティブ を 形成し ます。 32 このような パーツ は プロ セ 
ッサ、 バス 構造、 メモリ システム を 構築す るた めに 接続され、 それら は コンビ 
ユー タを 形成す るた めに 接続され、 コンピュータ アーキテクチャに 相応しい 言 
語 を 用います。 コンピュータ は 分散 システム を 形成す るた めに 接続され、 ネッ 
ト ワーク 相互 接続 その他 を 記述す るに 適切な 言語 を 用います。 

階層 化の 簡単な 例と して、 ピクチャー 言語 は プリミティブな 要素 （プリ ミテ 
イブ ペイン タ） を 用い、 それら は 点と線 を 指定し segments->painter のた めの 
線分の リ ス トを 提供したり、 rogers のよう な ペイ ンタ に対する シ エーディ ン 
グの 詳細 を 提供した リ する 言語 を 用いて 作成され ました。 私達の ピクチャー 言 
語の 説明の 大部分が これらの プリ ミ ティ ブを 接続し beside や below のよう な 
幾何学 的 な コンパ イナ （結合 器） に 充てられました。 私達 はまた ょリ高 階な レべ 
ル において beside と below を プリ ミ ティ ブと して 見做し square-of-f our の 
よ う な 命令 を 持つ 言語に おいて 幾何学 的 結合 器 を 接続す る 共通の パターン を 獲 
得する ことに 努めました。 

階層 化 設計 は プログラム を ro^ お (堅牢） にす る こと を 手助けし ます。 それ 
はつ ま り プロ ダラ ム に おける 仕様 上の 小さな 変更が 相応 し た 小さな 変更 を 要求 
する こと を 意味し ます。 例え ば Figure  2.9 で 示 さ れた wave の イメージ を 変更し 
たいとし ます。 wave 要素の 詳細な 表現 を 変更す る 最も 低 レベルで 行う こと も 
可能です が、 中間の レベルに おいて corner-split が wave を どのよう に 複製す 
るかに ついて 行う こと も 可能です し、 最高 レベルに おいて square-limit が ど 
のように 角の 4 つの コピー を 配置す るかに ついて 変更す る こと も 可能です。 一 
般 的に 階層 設計の 各 レベル は 異なる 語彙 を システムの 特徴 を 表すのに 提供し ま 
す。 そして 異なる 種類の 変更 方法 を も 提供し ます。 

Exercise  2.52:  Figure  2. 9 の wave の square- limit に、 上で 説明され 
た 各 レベルで 働く ことで 変更 を 加えよ。 よ リ 詳細に は、 

a  Exercise  2.49 の プリ ミ ティブな wave ぺ インタに いくつ か 線 
分 を 加えよ。 （例えば 笑顔 を 追加せ よ） 

b  corner-split により 構築され る パターン を 変更せ よ （例え 
ぱ up-split や right-split の イメージ を 2 つで な く 1 つに 
せよ） 

32  Section  3.3.4 がその よう な 言語に ついて 記述し ます。 
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c  square-  of -four を 用いる  square-limit のノく 一 ン ョ ンを変 

更し角 を 異なる パター ンで 組み立て るよう にせよ。 （例 え ば 

正方形の 各 角に て Mr.  Rogers を それぞれ 外に 向けよ） 


2.3 記号 データ 

私達が ここ ま で 使用 し た 全ての 複合 デー タ ォ ブジ ェクト は 最終的 に は 数値 
から 構築され ていました。 この 節で は 任意の シンボル （記号） を データと して 用 
いる 能力 を 紹介す る ことで、 言語の 表現力 を 拡張し ます。 

2.3.1 クオート 

もし 記号 を 用いて 複合 データ を 形成で きれば 以下のような リスト を 持つ こ 
とがで きます。 

(abed) 
(23  45 17) 

((Norah 12)    (Molly  9)    (Anna  7)    (Lauren  6)    (Charlotte   4) ) 

記号 を 含む リスト は 言語の 式と 全く 同じように 見えます。 

(*    (+  23  45) 

(+  x  9)) 
(, def ine   (fact  n) 

(if    (=  n 1) 1 (*  n   (fact    (-  n 1))))) 

記号 を 扱う 目的の ために は 言語に 新しい 要素 を 必要と します。 データ オブジェ 
クトを ゆ oie (引用） する 能力です。 例えば リスト （a  b) を 構築したい とします。 
私達 はこれ を （list  a  b) を 用いて は 達成で きません。 なぜなら この 式 は a と 
b の 値から リスト を 構築す る 式で あり、 記号 それ 自体で はない からです。 この 
問題 は 自然言語の 文脈で は 良く 知られて いて、 単語と 文が 意味 上の 要素と して 
見做されて いるか、 または 文字列 （文法 上の 要素） として 見做されて いるかの 場 
合が 有 リ 得ます。 自然言語での 共通な 慣例 は 単語 や 文が 文字 通 リ に 扱われる こ 
と を 示す ために クォーテーションマーク を 用いる ことです。 例えば "John" の 
最初の 文字 は 明らかに "J" です。 も し 私達が 誰かに "貴方の 名前 を 大きな 声で 
言って" と 伝えれば、 その 人の 名前 を閬 くこと を 期待し ます。 しかし もし 誰か 
に " '貴方の 名前' と 大きな 声で 言って" と 伝えれば "貴方の 名前" という 語を閬 
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くこと を 期待す るでしょう。 私達が クォーテーションマーク を 入れ子に する こ 
と を 第三者が 何 を 言う だろう か を 説明す るた めに 強制され ている ことに 注意し 
て 下さい。 33 

データ オブジェ ク ト と して 扱われるべき であり、 式と して 評価され るべき 
ではない リストと シンボル を 区別す るた めに、 これと同じ 習慣に 従う ことが で 
きます。 しかし クオート する 形式 は 自然言語の それと は 異なり、 クオ 一 テーシ 
ヨン マーク （伝統的に シングル クオートの 記号 '） は クオート されるべき ォブジ 

ェク トの 先頭に のみ 置かれます。 Scheme の 文法で この 様に 逃れられ るの はォ 
ブジェク トを 区切る のに 空白と 括弧 を 信頼す る ことができる ためです。 従って 
シングル クオート 文字の 意味 は 次の オブジェクト を クオート する ことにな リま 

す。 34 

これで シンボル とその 値 を 区別す る こ と が 可能です。 

I,  def  ine  a 1) 
(define  b  2) 
(list   a  b) 
(1 2) 

(list    ' a  'b) 
(a  b) 

(list    ' a  b) 
(a  2) 


33 言語の 中で クオ 一 テーシ ヨン を 許可す る ことが 簡単な 語で 言語に ついて 推論す る 能 
力 を 与える と共に 大きな 破壊 を もたらし ています。 それが 等値な 物 は 等値な 物と 置換で 
きる という 概念 を 破壊す るた めです。 例えば 1 足す 2 は 3 です が" 3" という 語 は" 1 足す 
2" という 語句ではありません。 クオ 一 テーシ ヨン は 他の 表現 を 操作す る 表現 を 構築す る 
手段 を 提供す るた め 強力です。 （Chapter  4 で インタプリタ を 書く 時に 学びます)。 しかし 
言語の 中で、 同じ 言語の 他の 文に ついて 話す 文 を 許す こと は "等値な 物 は 等値な 物と 交換 
できる" が 何 を 意味すべき かとい う 任意の 一貫性 を 保守す る こと を とても 難しく します。 
例えば も し 私達が 宵の明星が 明けの明星と 同じで ある こと を 知っている 場合、 "宵の明星 
は 金星" という 文から" 明けの明星 は 金星" である こと を 推論で きます。 しかし" John は 
宵の明星が 金星で ある こと を 知っている" を 与えられても "John は 明けの明星が 金星で 
ある こと を 知っている" と は 推論す る こと はでき ません。 

34 シングル クオート は 表示され る 文字列 を 囲む のに 使用して きた ダブル クオ 一 トとは 
異なります。 シングル クオートが リスト や シンボル を 示す のに 対し、 ダブル クオート は 
文字列 と共にの み 利用 されます。 こ の 本で は 文字列の 使用方法 は 表示され る ための 項 目 
と しての みです。 
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クオ 一 テーシ ヨン はまた 慣習 的な リストに 対する 印字され た 表現 を 用いて 複合 
オブジェクトの 入力 も 可能に します。 35 

、 car    '  (a  b  c  ) ； 
a 

(cdr    '  (a  b  c) ) 
(b  c) 

これ を 守る ことで、 空 リスト を' （） を 評価して 得る ことができます。 従って、 変 
数 nil の 使用 を 止められます。 

記号 を 操作す るのに 使われる もう 1 つ 追加の プリ ミ ティ ブと して eq? が あ 
リ ます。 これ は 2 つの シンボル を 引数と して 取り それらが 同じで あるか テス ト 
します。36  eq? を 用いる ことで memq と 呼ばれる 便利 な 手続 を 実装で きます。 こ 
れは 2 つの 引数、 シンボルと リスト を 取ります。 もし シンボルが リストに 含ま 
れて いな レ 、場合 （つまり リスト 中の どの 項目に も eq? でな い 場合) memq は false 
を 返します。 そうでなければ リスト 中の その シン ボルが 最初 に 出現す る 場所 か 
らの サブ リスト を 返します。 

V dei ine    (mema   item  x) 
(cond   ((null?  x)  false) 

( ( eq?   item   (car  x) )  x) 

(else    (memq  item   (cdr  x) ) ) ) ) 

例えば、 次の 式の 値 は 


35 厳密に は 私達の クォーテーションマークの 使用方法 は 言語に おける 全ての 複合 式 は 
括弧で 区切られ リストの ように 見える という 全体の ルール を 破ります。 この 整合性に 対 

して は 特殊 形式 quote を 紹介す る こ と で 回復す る こ と が 可能です。 これ は クオ 一 テーシ 
ヨン マークと 同じ 目的 を 演じます。 従って 'a の 代わりに （quote  a) と 入力で きます し、 
' (a  b  c) の 代わりに （quote  (a  b  c)) と 入力で きます。 これ は インタプリタ は 正確に 
は どのように 働く かとい うこ とです。 クォーテーションマーク は 単一 文字に よる 省略 形 
に 過ぎず 次の 完全な 式 を quote でラ ッ ビングす る ことで （quote  (expression)) を 形成 
します。 これ は 重要な ことです。 なぜなら インタプリタに 読まれる 任意の 式が データ ォ 
ブジェク 卜と して 扱う ことができる という 原則 を 保持す るからで す。 例えば （car  '(a  b 
c)) という 式 は （car  (quote  (a  b  c))) と 同じで、 (list  'car  (list  '  quote  '(a  b 
c))) を 評価す る ことで 構築で きます。 

36 2 つの シンボルが 同じ 文字で 同じ 順に 構成され ている 場合に それらが" 同じ" である 
と 考える ことができます。 そのよう な 定義 はま だ 私達が 解決す るに は 準備の 足り ない 深 
い 問題 を 回避して います。 プログラミング 言語に おける" 同一 性" の 意味です。 私達 はこ 
の 問題に Chapter  3  (Section  3.1.3) にて 戻リ ます。 
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(memq    1  apple    1  (pear  banana  prune ) ) 

false にな リ ます。 そして 次の 式の 値 は 


、memq    1 apule    ' (x   (app 丄 e   sauce )   v  app 丄 e  pear ; ) 

(apple  pear) です。 

Exercise  2.53: 以下の 式の それぞれ を 評価した 応答と して ィ ンタプ 
リタ は 何 を 表示す るか？ 

(list    ' a    'b    r  c ) 

(list    v 丄 ist    1 george ； ) 

(cdr    ' ((xl x2)    (yl y2))) 

(cadr    ' ((xl x2)    (yl  y2))) 

(pair?    (car    ' (a  short  list))) 

(memq    1  red    '((red   shoes )    (blue  socks))) 

(memq    1  red    1  (red  shoes  blue  socks)) 

Exercise  2.54:  2 つの' J スト は それぞれが 同じ 要素 を 同じ 順で 持つ 
ている 場合に equal? と言える。 例えば 

(equal?    '  、"this   is   a list)    '  (.this   is  a list リ) 
は 真で あるが 

(equal?    ' 、this   is   a list )    ' 、this    (is   a)  list)) 

は 偽で ある。 具体的に は 基本と なる eq? の 記号の 等価 性 を 再帰 的 
に 用いて equal? を 定義で きる。 a と b が equal? であると は それ 
らが 両方と も 記号で ある 場合、 かつ 記号が eq? である 場合、 または 
両方 とも リスト であ リ （car  a) が (car  b) に equal? であ リ 、 力、 
つ （cdr  a) せ (cdr  b) に equal? であるよ う な 場合で ある。 この 
考え を 用いて equal? を 手続と して 実装せ よ。 37 

Exercise  2.55:  Eva  Lu  Ator はィ ンタ プリ タ に 次の 式 を 入力した。 

37 実際に は、 プログラマ は equal? を 数値と 同じく シンボル を 含む リストの 比較に 用い 
る。 数値 は 記号と は 認識され ない。 数の 上で 等しい 二つの 数値 （= で テストした 場合の 様 
に） が eq? でもそう であるか という 問題 は 高度に 実装 依存で ある。 equal? の （Scheme に 
プリ ミ ティ ブと して 提供され ている ような） よ リ 良い 定義で も、 もし a と b が 数値で ある 
なら、 それら が 数値 として 等しい 場合に equal? であると 明記す るだろう。 
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(car    1  1  abracadabra ) 

驚いた ことに インタプリタ は quote を 応答と して 表示した。 説明 
せよ。 

2.3.2 例： 記号 微分 

記号 操作の 説明と して、 及びより 一層の データ 抽象の 説明と して、 代数式 
の 記号 微分 を 行う 手続の 設計に ついて 考えて みま しょう。 手続 は 引数と して 代 
数式と 変数 を 取り 変数に 対する 式の 導関数 を 返す ことにします。 例えば 手続に 

対する 引数が aa;2 +  b:r  +  c と a; の 時、 手続 は 2aa;  +  b を 返さな けれ ぱいけ ませ 
ん。 記号 微分 は Lisp にと つて 歴史的に 特別な 意味が あります。 記号 操作の ため 
の コンピュータ 言語の 開発の 裏に こ れ がその 動機の 一例 として 存在し ました。 
さらに こ れが 現在 増大す る 応用数学 者 及び 科学者 に 用いられ ている 記号 数理の 
成果の ための 強力 な システムの 開発へ と 導く 一連の 研究の 始 まりに 跡 を 残し ま 
した。 

記号 微分 プログラムの 開発に おいても S ect io n  2 . 1 . 1 の 分数 システムの 開発 
と 同じ データ 抽象化の 戦略に 従います。 最初に "sums,"  "products,"  "variables" 
のよう な 抽象 オブジェ ク トを 操作す る 微分 アルゴリズム を 定義し ます。 これら 
が どのように 表現され ている のかに ついて 心配す る ことありません。 後程、 表 
現 上の 問題に ついては 解決し ま しょう。 

抽象 データ を 用いた 微分 プロ グラム 

問題 を 簡単に する ために、 二 引数の 足し算と かけ 算の 命令の みから 構築 さ 
れる 式の み を 扱う とても 簡単な 記号 微分 プログラム について 考えましょう。 任 
意の そのような 式の 微分 は 以下の 簡約 ルール を 適用す る ことで 実行され ます。 

ま = 0,     c は 定数 か、 a; と 異なる 変数， 
ax 

dx 
dx 

d(u+  v)      du  dv 
dx  dx  dx 

d  (uv)        dv  du 
dx  dx       dx . 
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後者の 2 つの ルール は 自然に 再帰 的で ある ことに 注意して 下さい。 つま リ 和の 
導関数 を 得る ため に は 最初 に 項の 導関数 を 求め それら を 足す 必要が あ リ ま す。 
各項 は 順 に 分解が 必要な 式に 成り 得 ま す。 順 に よ リ 小 さな 部分へ と 分解 してい 
くこと はやが て 定数 か、 その 導関数が 0 か 1 のどち ら かになる 変数に な り ます。 
これらの ルール を 手続で 具体化す るた めに、 分数 実装の 設計で 行った よ う 
に 少し 希望的観測に 耽リ ます。 も し 代数式 を 表現す るた めの 手段が あるの なら 
式が 和 か 積 か 定数で ある か を 判別す る こ と がで き る はずです。 式の パーツ を 抽 
出す る ことができる はずです。 例えば 足し算に 対して 加数 （第一 項） と 被 加数 
(第二 項） を 抽出で きる はずです。 また パーツから 式 を 構築す る こと もで きる は 
ずです。 既に 以下の セレクタ、 コンストラクタ、 述語 を 実装す るた めの 手続 を 
持って いると 仮定し ましょう。 


I, var laole?  e) 
^same-variable?   vl v2) 
( sum?   e ) 
( addend  e ) 
( augend  e ) 
(make-sum  al 
(product?   e ) 
(multiplier  « 
(multiplicand  e) 
(make-product  ml m2 ) 


a2) 


0 


e は 変数で あるか？ 

vl と v2 は 同じ 変数で ある 力 マ 

e は 和 か？ 

和 e の 加数. 

和 e の 被 加数. 

al と a2 の 和 を 構築す る 

e は 積 か？ 

積 e の 乗数 

積 e の 被乗数 

ml と m2 の 積 を 構築す る 


これらと 数値で あるか を 判断す る プリ ミ ティブな 述語 number? を 用いて、 
の 手続の 様に 微分の ルール を 表現で きます。 


dei ine    (deriv  exp  var ) 
( cond   ( (number?   exp)  0) 

( ( variable?   exp)    ( if 
( ( sum?   exp)  (make-sum 


( (product?   exp ) 
(make-sum 

(make-product 


(same-variable?   exp  var ) 
(deriv    ( addend  exp)  var) 
(deriv    ( augend  exp)  var): 


以下 


0)) 


(multiplier  exp) 
(deriv    (multiplicand  exp)   var ) ) 
(make-product    (deriv    (multiplier  exp)  var) 
(multiplicand  exp ) ) ) ) 


(else 
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( error   " unknown  expression  type :    DERIV "   exp ) ) ) ) 

こ の deriv 手続 は 完全な 微分 ァ ル ゴ リ ズム に 立脚して いま す。 代数 デー タの項 
に よ リ 表現され ている ため、 適切な セレクタ と コンストラクタ を 設計す る 限 リ 
において、 どのように 代数式 を 表現しても 動きます。 この 条件の 部分が 次に 解 
決すべき 問題です。 

代数式 を 表現す る 

代数式 を 表現す る リスト 構造 を 使用す る 手法 は 数多く 想像で きます。 例え 
ば 通常の 代数 記法 を 真似す る 記号の リスト を 用い、 ax  +  b を リスト （a  *  x  +  b) 
の 様に 表現す る こと もで きる でしよう。 しかし 特に 直接的な 1 つの 選択 は Lisp 
が 複合 式 に 用いる のと 同じく 括弧で 括 つ た 接頭辞 記述 法です。 つまり ffl:r  + わ は 
(+  (*  a  x)  b) と 表現され ます。 従って 微分 問題に 対する データ 表現 は 以下の 
とおりです。 

• 変数 は シンボル である。 プリミティブな 述語 symbol? で 判別され る。 
(define    (variable?  x )    ( s vmb o 1 r  x) ) 

. 2 つの 変数 は それら を 表現す る シンボルが eq? である 時 同じ だ。 

(define    (same-variable?   vl v2 ； 

(and   (variable?  vl)    (variable?  v2)    (eq?  vl v2) ) ) 

• 和と 積 は リストと して 構築され る。 

(define    (make- sum  ai a2 ) (list    '+  al a2; ) 

( def  ine    (make-product  ml m2) (list    *  *  ml m2 ) ) 

• 和 は 最初の 要素が シンボル + の リスト だ。 

(define    ( sum?  x)    ( and   (pair?  x)    ( eq?    ( car  x)    ' +) ) ; 

• 加数 は 和の リストの 二つ目の 項 だ。 

(define    ( addend  s ；    、cadr   s ) ) 

• 被 加数 は 和の リストの 三つめ の 項 だ。 

(define    ( augend  s;      caddr  s ) ) 
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• 積 は 最初の 要素が シ ン ボル * の リスト だ。 

(define    (product?  x;      and     p  a 1 r  r  x;    、eqr     car  x)    1  *  ) ) ) 

• 乗数 は 積の リストの 二つ目の 項 だ。 

(define    (multiplier  p)    ( cadr  p ) ) 

• 被乗数 は 積の リストの 三つめ の 項 だ。 

(define    (multiplicand  p )    ( caddr  d) ； 

従って 記号 微分 プログラム を 得る ために は、 これら を deriv によ リ組 込まれた 
アル ゴ リ ズムを 用いて 組み立て る こと のみが 必要で です。 いく つかの 例 とその 
振舞 を 見て みましょう。 

、 der iv    '  (+  x  3)    '  x ； 

(+ 1 0) 

( der iv    '  ( *  x  v)    1  x ； 

(+  (*  x  0)   (* 1 y)) 

( der iv    '  ( *    ( *  x  y )    (+  x  3)  )    '  x  ； 

(+  (*  (*  x  y)   (+ 1 0)) 

(*  (+  (*  x  0)   (* 1 y)) 
(+  x  3))) 

プログラム は 正しい 解答 を 生成し ます。 しかし、 それら は 簡略 化されて いま 
せん。 


しかし 私達 はこの プログラムに: r.  0  =  0,  l-y  =  y,  0  +リ =y を 理解して 欲しい 
と 望みます。 二つ目の 例の 解答 は 単純に y となる べきです。 三つめ の 例が 示す 
よ う に、 これ は 式が 複雑な 場合に は 深刻な 問題と な リ ます。 

この 困難 は 分数 実装に おいて 出くわし たものと とても 似て います。 最も 単 
純な 形式 に 解答 を 約分して いません でし た。 分数 を 約分す るた め に は 実装の コ 
ンス トラクタと セレクタ のみ を 変更す る 必要が ありました。 ここで も 同様の 戦 
略 を 受け入れる ことができます。 deriv に は 全く 変更 は 加えません。 その 代わ 
りに make-sum を 変更し 両方の 加数が 数値で ある 場合、 make-sum は それら を 足 
して その 和 を 返します。 また 加数の 1 つが 0 ならば make-sum はもう 一方の 加 
数 を 返します。 
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(define    (make-sum  al a2) 

(cond  ( (=number?  al 0)  a2) 
( (=number?  a2  0)  al) 
( ( and   (number?   al ) (number?   a2 ) ) 

(+  al  a2)) 
(else   (list    '+  al a2 ) ) ) ) 

これに は 手続 -number? を 用いました。 式が 与えられた 数値と 等しい かチ エツ 
ク します。 

dei ine    (  =  number?   exp  num) に and   v. number ?   exp)    (=   exp  num) ) ； 

同様に make-product を 変更し 任意の 項に 0 を 掛ければ 0、 任意の 項に 1 を掛 
ければ それ 自身に する ルール を 構築し ます。 

、deiine    (make-product  mi m2) 

(cond   ( (or    (  =  number?  ml 0)    (  =  number?  m2  0) )  0) 
( (=number?  ml 1) m2) 
( (=number?  m2 1) ml) 

( (and   (number?  ml)    (number?  m2))    (*  ml m2) ) 
(else    (list    1  *  ml  m2)))) 

これが この バージョンが 先程の 3 つの 例で どのよう に 動く かです 

、 der iv    '  (+  x  3)    1 x ； 

、 der iv    '  ( *  x  v)    1  x ； 

y 

( der iv    '  ( *    ( *  x  y )    (+  x  3)  )    '  x  ； 

(+  (*  x  y)   (*  y  (+  x  3))) 

これ はとても 改善が 見られ ますが、 三つめ の 例 は 式 を "最も 単純" だと 同意 を 得 
られる 形式に 変形す る プログラム を 得る までに は 今 だ長レ 、道程が あ る こと を 示 
します。 代数の 簡約の 問題 は 複雑です。 他の 理由の 中で も、 ある 目的に とって 
最も 単純な 形式が 他の 目的に とって はそう ではない こと が 有 リ 得る ためです。 

Exercise  2.56: ょリ 多く の 種類の 式 を 扱うた めに 基本的な 微分 を ど 
のように 拡張すべき か 示せ。 例と して、 以下の 微分 ルール を 実装 
せ } 

d{un)  „_1 du 

dx  dx 
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deriv プログラムに 新しい 節 を 追加し、 適切な 手続 exponentiation?, 
base,  exponent,  make-exponentiation を疋 我せ よ。 (シンボル ** 
を 指数 演算の 表記に 用いても 良い)。 任意の 数の 0 乗 は 1 であり、 

任意の 数の 1 乗 は それ 自身で あると いう ルール を 構築せ よ。 

Exercise  2.57: 微分 プログラム を 拡張し、 （2 以上の） 任意の 数の 項 
の 和と 積 を 扱える よ う にせよ。 すると 上の 最後の 例 は 以下の よう 
に 表現で きる。 

i, deriv    '  (*  x  v   (,+  x  3) )    '  x ) 

この 問題 を 和と 積の 表現の み を 変更す る ことで 行え。 deriv 手続 
に は 全く 変更 を 加えない。 例えば 和の addend (加数） は 最初の 項に 
な リ 、 augend (被 加数） は 残 り の 項の 和 となる であろう。 

Exercise  2.58: 微分 プログラム を 変更し 通常の 数学の 記法 を 扱える 

ようにした いとする。 + と * は 接 中 辞と なり 接頭辞 演算子で はなく 
なる。 微分 プログラム は 抽象 データ を 用いて 定義され ている ので、 
もっぱら 微分 プログラム が 操作す る 代数式 を 表現す る 述語、 セ レ 
クタ、 コンストラクタ を 変更す る ことで 式の 異なる 表現 を 対応す 
るよう に 変更す る ことができる。 

a  (x  +  (3  *  (x  +  (y  +  2)))) の 様な 接 中 辞で 表される 代数式 
を 微分す る こと を どのように 行う の か 示せ。 作業 を 簡単に す 
るた めに + と * は 常に 2 つの 引数 を 取り 式 は 完全に 括弧で 括 
られ ている と 仮定せ よ。 

b  (x  +  3  *  (x  +  y  +  2)) のよう な 標準 的な 代数 記法 を 認める 

ことで 問題 は 大幅に 難しく なる。 これ は 必要の 無い 括弧 を 省 
略し、 乗算 は 加算の 前に 行われる と仮定して いる。 私達の 微 
分 プログラムが それでも 働く この 記法に 対する 適切な 述語、 
セレクタ、 コンストラクタ を 設計で きる だろう 力 v? 


2.3.3 例： 集合 を 表現す る 

以前の 例に おいて 2 つ 種類の 複合 データ オブジェ ク トの 表現 を 構築し まし 
た。 分数と 代数式です。 これらの 例の 1 つで は 組立 時と 選択 時の どちら かで 式 
を 単純化 （簡約 化） を 行う か 選択肢が ぁリ ました。 しかし それ 以外で は リスト を 
用いた これらの 構造に 対する 表現の 選択肢 は 直接的な もので し た。 私達が 集合 
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の 表現に 向かう 時、 表現の 選択肢 は あまり 明白ではありません。 本当に 数多く 
の 可能な 表現が 存在し、 それら はお 互いから いくつかの 点に おいて 著しく 異な 
リ ます。 

非公式に は 集合 は 異なる 要素の 単純な 集ま りです。 よ り 正確な 定義 を 与える 
ために 私達 は データ 抽象の 手法 を 用いる ことができます。 それ は" 集合" を 集合 

上で 用いられる 操作 を 特定す る ことで 定義す る ことです。 これら は union-set, 
intersection-set,  element  -  of  -  set1?,  ad  "join-set  (J' す。 element  -  of  -  set7 は 
与えられた 要素が 集合の メンバー であるか を 判定す る 述語です。 adjoin-set 
はォ ブジェク 卜と 集合 を 引数と して 取り、 元の 集合の 要素と 挿入され た 要素 を 
も 含む 集合 を 返します。 union-set は どちら かの 引数に 現れる 全ての 要素 含む 
集合で ある、 2 つの 集合の 和 集合 を 計算し ます。 intersection-set は 両方の 
引数の 中に 現れる 要素の み を 含む、 2 つの 集合の 共通 集合 を 計算し ます。 デー 
タ 抽象の 視点 か ら 見れば、 私達 は 上で 与え ら れた 解釈 と 一致す る 方法で あれば、 
これらの 命令 を 実装す る どんな 表現 を 設計す る こ と も 自由です。 38 

順序 無し リストと しての 集合 

集合 を 表現す るた めの 1 つの 方法 は、 どの 要素 も 一度より 多く は 現れな レ 、 
要素の リストと します。 空集合 は 空 リストと して 表現され ます。 この 表現で 
は element- of- set? は Section  2.3.1©^^  memq と 似て います。 eq? の 代わり 
に equal? を 用いて いるので 集合 要素 は シンボル である 必要 はあり ません。 

(, del ine    (element -of-set?  x  set ) 
( cond   ( (null?   set )    false ) 

( ( equal?  x   (car   set))    true ) 

(else    (element -of-set?  x   ( cdr  set))))) 


38 もしより 正式で ぁリ たければ、 "上で 与えられた 解釈と 一致す る" の 部分 を、 命令 群 
が 以下の よう な ルールの 集合 を 満たす と 指定す る ことができます。 

任意の 集合 S と 任意の オブジェ ク 卜 x に 対し、 （element - of  - set?  x  (adjoin- set  x  S)) 

は 真 （非公式に は "オブジェ ク トを 集合に adjoin すれば その オブジェ ク トを 含む 集合 を 
生成す る"） 

任意の 集合 S と T と 任意の オブジェ ク 卜 x に 対し、 （element- of- set?  x  (union-set  S 
T)) は (or  (element — of — set?  x  S)  (element — of — set?  x  T)) に 等しい (非公式に は 
" (union  S  T) の 要素 は S または T に 存在す る 要素"） 

任意の オブジェ ク ト x に 対し （element- of- set?  x  '()) は 偽 （非公式に は" どの ォブジ 
ェク トも 空集合の 要素で はない"） 
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これ を 用いて adjoin-set を 書け ます。 adjoin される ォ ブジェク トが 既に 集合 
に 存在す る 場合、 単に 元の 集合 を 返します。 そうでなければ cons を 用いて ォ 
ブジェク トを 集合 を 表す リストに 追加し ます。 

dei ine    (  ad "]  om-set  x  set ; 
、if    ( element -of-set?  x   set ) 
set 

( cons  x   set ) ) ) 

intersection-set に对 して 再帰の 戦略 を 使用で きます。 も し set2 と setl の 
cdr の 共通 集合の 求める 方が わかれば、 これに setl の car を 含める かどう か 
決定す る ことのみ が 必要です。 しかし これ は （car  setl) が set2 にも 存在す 
るかに 依存し ます。 以下に 結果の 手続 を 示します。 

(. dei  ine    (inter  sect  ion- set   setl  set2) 

(cond   ( (or    (null?   setl)    (null?   set2) ) '()) 
((element -of-set?    (car   setl)    set2 ) 
(cons    ( car   setl ) 

(inter sect  ion- set    ( cdr   setl)    set2 ) ) ) 
(else   (intersection-set   ( cdr  setl ) set2 ) ) ) ) 

表現の 設計に おいて、 私達が 考慮し なければ ならない 問題の 1 つ は 効率です。 集 
合 操作に より 必要と される ステップ 数 を 考えて 下さい。 それら 全てが element- 
of-set? を 使用す るので、 この 命令の スピード は 総 じて 集合 実装の 効率 上に 主 
要な 影響 を 与えます。 ここで、 ある オブジェクトが 集合の 要素で あるか をチ 
エックす るた めに、 element-of-set? は 集合 全体 を スキャンし なければ ならな 
いか もしれ ません。 （最悪の 場合、 その オブジェクト がその 集合の 中に 存在し 
ない ことが 分かる かも しれません)。 それ故に もし その 集合が n 要素 を 持つ 場 
合、 element-of-set? は 最大 n ステップ かかる かもしれ ません。 従って 必要と 
される ステップ 数 は e(n) で 増加し ます。 adjoin-set により 必要と される ス 
テツ プ数 は、 それが この 命令 を 用いる ので、 これ もまた e(n) で 増加し ます。 
intersection-set は、 setl の 各 要素に 対し element-of -set? の チェック を 行 
うため、 必要と される ステップ 数 は 関係す る 集合の サイズの 積 か、 または サイ 
ズ n の 2 つの 集合に 対し e(n2) で 増加し ます。 union-set に対して も 同じ こと 
が 言えます。 

Exercise  2.59: 集合の 順序 無し リ ス ト 表現に 対する union-set 命 

令 を 実装せ よ。 
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Exercise  2.60: 集合 は 重複 無しの リストと して 表現され ると 指示し 
た。 ここで 重複 を 許可す ると 仮定して みる。 例と して 集合 {1,2,3} 
は リスト （2  3  2 1 3  2  2) とし て 表現で きる だろう。 この 表 
現 上で 操作 を 行う 手続 element - of  - set7,  adjoin- set,  union-set, 
intersection-set を 設計せ よ。 それぞれの 効率 は 対応す る 重複 
無し 表現に 対する 手続に 比べて どれ 程だろう か？ 重複 無しの 集合 
に 優先して この 表現 を 用いる だろう アプリ ケーシ ヨン は ある だろ 
うか？ 


順序 有り リストと しての 集合 

私達の 集合 操作 を 高速 化する ための 1 つの 方法と して 表現 を 変更す る こと 
で 集合 要素 を 昇順に 並べる 方法が ぁリ ます。 これ を 行う に は 2 つの オブジェ ク 
トを 比較す る 何ら かの 方法が 必要です 。それにより どちらが 大きい を 言う こと 
がで きます。 例 え ばシ ン ボル を 辞書 順で 比較 した リ、 ォ ブジ ヱ クトに 一意の 番 
号 を 付け その後 要素 を 対応す る 番号で 比較す るた めの 何ら かの 方法に ついて 同 
意で きる でしよう。 議論 を 単純に する ため 私達 は 集合 要素が 数値で ある 場合の 
みに ついて 考えます。 それにより 要素 を  >  と  <  を 用いて 比較す る ことができ 
ます。 数値の 集合 を その 要素 を 昇順に 並べる ことで 表現し ましょう。 上の 最初 
の 表現 は 集合 {1,3,  6， 10} を 要素 を 任意の 順で 並べる ことで 表現で きる 一方で、 
新しい 表現 は リスト （136 10) のみ を 許します。 

順序 付けの 1 つの 利点 は element-of-set? にて 現れます。 項目の 存在 をチ 
エックす る 場合に おいて、 集合 全体 を スキャン する 必要が ありません。 もし 探 
している 項目よりも 大きな 要素に 出会ったならば その 集合に この 項目が 無い こ 
とがわ かり ます。 

、deiine    (element -of-set?  x  set ) 
( cond   ( (null?   set )    false ) 

( (= x   (car   set))    true ) 
( (<  x   (car   set))    false ) 

(else    (element -of-set?  x   ( cdr  set))))) 

これが どれ だけの ステップ を 割引く でしよう 力、？ 最悪の 場合、 探して いる 項目 
は 集合の 中で 一番 大きい 物 かも しれません。 その 場合 ス テツ プ数は 順序 無し 表 
現と 同じです。 しかし 一方で も し 多くの 異なる サイズの 項目 を 探して いる 場合、 
時々 は リスト の 先頭 近 く の 点で 検索 を 停止す る ことができる こと を 期待で き ま 
す。 そして 他の 場合に はや はり リストの ほとんど を 試験し なければ いけません。 
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平均で は 集合の 項目 数の 半分 近く を 試験し なければ いけない ことが 期待で きる 

はずです。 従って 必要と される 平均の ステップ 数 は 約 n/2 になります。 これ は 
それでも e(n) で 増加し ますが、 以前の 実装に 対して 平均 的に は ステップ 数に 
おいて 半分に 節約し ます。 

intersection-set ではよ リ 目 覚ま しい 高速 化 を 得ます。 順序 無し 表現で は 
この 命令 は G)(n2) ス テツ プを 必要と しました。 setl の 各 要素に 対して set2 の 
完全な スキャン を 実行して いたた めです。 しかし 順序 有り 表現で はより 賢い 方 
法 を 用いる ことができます。 二つの 集合の 最初の 要素 xl と x2 を 比較す る こと 
で 始め、 もし xl と x2 が 等しい 場合に は それら は 共通 集合の 要素です。 そして 
共通 集合の 残り は 2 つの 集合の cdr の 共通 集合です。 そうでな く  xl が x2 より 
小さい 場合 を 考えます。 x2 は set2 の 最小の 要素です から 直ぐに xl は set2 の 
どこに も 現れず、 従って 共通 集合に は 有り得ません。 従って 共通 集合 は set2 
と setl の cdr の 共通 集合に 等しい となり ます。 同様に もし x2 が xl より 小さ 
い 場合、 共通 集合 は setl と set2 の cdr の 共通 集合に て 与えられます。 以下に 
手続 を 与えます。 

dei ine    (inter  sect  ion- set   set 1 set2) 
(if    (or    (null?   setl)    (null?  set2)) 
, () 

(let    ( (xl    (car  setl) ) (x2    (car   set2) ) ) 
(cond   ((=  xl x2) 

( cons   xl    (intersection-set    ( cdr   setl ) 

(cdr   set2) ) ) ) 

((<  xl x2) 

^intersect ion- set    ( cdr   setl)    set2 ) ) 
((<  x2  xl) 

^intersect ion- set   setl ( cdr  set2))))))) 

この 処理に より 必要と される ステップ 数 を 推定す るた めに、 各 ステップ にて 共 

通 集合 問題 は 縮小され、 setl か set2、 又は その 両方の 最初の 要素 を 削除す る 
ことで、 よ り 小 さ な 集合の 共通 部分 を 求める 問題に なって いる ことに 注意して 
下さい。 従って 必要と される ステップ 数 は 最大で も setl と set2 の サイズの 合 
計で あり、 順序 無し 表現に おける サイズの 積と はなり ません。 これ は G)(n2) で 
なく、  e(n) で 増加す るた め、 例え 中程 度の サイズの 集合に 対してで も 考慮に 値 
する 高速 化です。 

Exercise  2.61: 順序 有リ 表現 を 用いた adjoin-set の 実装 を 与えよ。 
element-of-set? との 類似点に て、 どのように 順序の 利点 を 用い 
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Figure  2.16: 集合 {1, 3, 5, 7, 9， 11} を 表現す る さまざまな 
二分木 


て 順序 無 し 表現 に 対 し 平均で 約半分の ス テツ プを 必要と する 手続 
を 生成す るか を 示せ。 

Exercise  2.62: 順序 付き リ ストと して 表現され た 集合に 対する 
union-set の 実装 を g)(n) の 範囲で 行え。 

二分木と しての 集合 

集合 要素 を 木の 形式に て 準備す る ことで 順序 有リ リ ス ト 表現よ リも 良く 行 
なう ことができます。 木の 各 ノード は その ノードに おける "ェン ト リ" と 呼ばれ 
る 集合の 1 つの 要素と 他の 2 つの （空に も 有り得る） ノードへの リンク を 持ち ま 
す。 "左" の リンク は その ノードよりも 小さな 値 を 差し、 "右" の リンク は その ノ 
一 ドの 値よ リ 大きな 値の ノード を 差します。 Figure  2.16 は 集合 {1,3,5,7,9,11} 
を 表現す るいくつ かの 木 を 示して います。 

木 表現の 優位 点 は 次の と お り です。 ある 数値 2； が ある 集合に 含まれて いる 
かどう か を チェック したいと 想定し ます。 ； r を トップ ノードの ェント リ と 比較 
する ことから 始めます。 もし: r が これよりも 小さければ、 左の 部分 木の み を 探 
索 すれば 良い ことが わかります。 もし 2； が 大きければ、 右の 部分 木の み を 探索 
する 必要が あります。 ここで、 木が" バランスが 取れた" 状態で あると は 各部 
分木の サイズが 元の 約半分で あると いう ことです。 従って 一度の ス テツ プ にお 
いて サイ ズ n の 木の 探索 問題 を、 サイ ズ n/2 の 木の 探索 問題に 縮小 した ことに 
なり ます。 各 ステップ によ り 木の 探索に 必要な ステップ は 半分になる ので サイ 
ズ n の 木の 探索に 必要な ス テツ プ数は e(logn) で 増加す る ことが 期待され ま 
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す。 39 大きな 集合に 対して は 以前の 表現に 比べ これ は 著しい 高速 化になる でし 
よ ラ。 

木 は リスト を 用いて 表現で きます。 各 ノード は 3 つの 項目の リストに なり 
ます。 ノードの エントリ、 左 部分 木、 右 部分 木です。 左、 または 右 部分 木が 空 
リスト の 場合 は そ こ に 接続され た 部分 木が 存在 しない こと を 示します。 この 表 
現 を 以下の 手続に て 説明で きます。 4Q 

def ine  (  entrv  tree  )    (car  tree  ； ) 

(define  (left-branch  tree)    ( cadr  tree ) ) 

(define  (right -branch  tree )    ( caddr  tree)) 

( def  ine  (make-tree   entry  left   right ) 

( list  entry  left  right)) 

これで element-of- set? 手続 を 上で 説明され た 戦略 を 用いて 書く ことができ 
ます。 

def  ine    (element  -  of  -  set?  x  set  ； 
( cond   ( (null?   set )    false ) 

( (= x    ( entry  set))    true ) 
((<  x   ( entry  set)) 

( element - of - set?  x    ( left-branch  set))) 
((>  x   ( entry  set)) 
( element - of - set?  x    ( right -branch  set))))) 

集合に 項目 を 付加す る こと は 同様に 実装され、 そして また €)(l0gn) ステップ を 
必要と します。 項目 x を 付加す るた めに は、 x を ノードの エントリと 比較し x 
が 右 か 左の どちらの 枝に 追加され るべき を 判断し、 x を 適切な 枝に 追加し、 こ 
の 新しく 構築され た 枝 を 元の エントリ ともう 一方の 枝と 共に 接続し ます。 もし 

X を 空の 木に 付加す るよう 求められたら ェン トリに X を 持ち、 右と 左の 枝 は 空 

である 木 を 生成し ます。 以下が この 手続です。 

(, def  ine    (  adj  om-set  x  set ; 

( cond   ( (null?   set )    (make-tree  x    '() '())) 


39 Section  1.2.4 の 高速 指数 アル ゴリ ズムゃ Section  1.2.4 の 半 区間 検索 手法で 学んだ よ う 
に 各 ステップ にて 問題の サイ ズを 半分に する こと は 対数 増加の 特徴 的な 性質です。 

413 私達 は 集合 を 木 を 用いて 表現して ぉリ、 そして 木 は リスト を 用いて います 一 事実上、 
データ 抽象化が データ 抽象化の 上に 構築され ています。 手続 entry, lef  t-branch,right- 
branch,  make-tree を 私達が そのような 木 を リスト 構造 を 用いて 表現す る こと を 望んだ 
特定の 方法から "二分木" の 抽象化 を 分離す る 方法と して 見做す ことができます。 
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( (= x    ( entry   set))    set ) 
((<  x   ( entry  set)) 
(make-tree    ( entry  set ) 

( ad j  oin-set  x    (left-branch  set)) 
(right -branch  set ) ) ) 
( (>  x   ( entry  set)) 
(make-tree    ( entry  set ) (left-branch   set ) 

( ad j  oin-set  x   (right-branch  set)))))) 

上の 木の 検索 は 対数 ステップで 実行可能で あるとの 主張 は 木 は "バランスが 取 
れ ている" という 前提に 依存して います。 すなわち、 全ての 木の 左と 右の 部分 
木 は 大体 同じ 要素の 数 を 持って いるた め、 各部 分木 は その 親の 約半分の 要素 持 
つてい る ことになります。 しかし どのよう に すれば 私達が 構築 し た 木が バラ ン 
ス が 取れて いると 確信す る ことができる のでしょう 力、。 例え もし バランスの 取 

れた 木で 開始した としても、 adjoin-set にて 要素 を 足して いけば バランスが 
取れて いない 結果 を 生み出します。 新しく 付加され る 要素の 位置 は 集合に 既に 
存在す る 項目と どのように 比較され るかに 依存す るた めに、 もし 要素 を "ラン 
ダム" に 追加 すれば その 木が 平均で は バランスが 取れる ことが 予想で きます。 
しかし これ は 保証され ません。 例えば もし 空集合から 始めて 数値 を 1 から 7 ま 
で 順番 に 追加して いけ ば Figure  2 . 1 7 で 示される とても アンバランスな 木に なつ 
てし まいます。 この 木で は 全ての 左の 部分 木 は 空で あり、 単純な 順序 有り リス 
ト に対する 優位 点が 存在し ません。 この 問題 を 解く 1 つの 方法と して 任意の 木 
を バラ ンスの 取れた 木に 同じ 要素 を 用いて 変換す る 操作 を 定義す る ことが 上げ 
られ ます。 そうすれば 数回 毎の adjoin-set の 後に この 変換 を 実行す る ことで 
集合の バラ ンスを 保つ こと がで きます。 この 問題 を 解く 他の 方法 も ま た 存在 し 
ますが、 その 多く は 検索と 揷 入の 両方が €)(logn) ステップで 行える 新しい デー 
タ 構造 を 設計す る こと を 含みます。 41 

Exercise  2.63: 以下の 2 つの 手続 は それぞれ 二分木 を リスト に 変換 
する。 

(define    ( tree->li st- 1 tree ) 
(if    (null?  tree) 
, () 

( append   (tree - >list - 1 (left-branch  tree ) ) 

41 そのよう な 構造の 例に は B-£rees(B 木） や red-black か ees (赤黒 木） が あ リ ます。 この 
問題に ささげられた 巨大な 文献が 存在し ます。 Cormenetal.  1990 を 参照して 下さい。 
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Figure  2.17: 1 から 7 まで 順に adjoin する ことで 生成した 不 
均衡な 木 


( cons     entry  tree) 
に tree - >li st - 1 
right -branch 


tree)))))) 


(define    (tree->list-2  tree ) 

(define    ( copy-to-list   tree  result-list ) 
(if    (null?  tree) 


a  2 つの 手続 は 全ての 木に 対して 同じ 結果 を 生成す るか？ も し 
そうでな ければ どの よ う に 結果 は 異な る かつ. Figure  2.16 の 木 
に対して 2 つの 手続 は どんな リスト を 生成す るか？ 

b  2 つの 手続 は n 要素の バランスの 取れた 木 を リスト に 変換す 
るのに 同じ ステップ 数 増加の オーダで あるか？ も しそうで な 
ければ どちらが よ リ 遅く 増加す るか？ 


result-list 
に copy -" to - list 


( left-branch  tree) 
( cons     entry  tree) 


(copy 


to — list  tree 


( copy-to-list 

(right-branch  tree ) 
result-list))))) 

())) 
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Exercise  2.64: 以下の 手続 list->tree は 順序 有 リ リスト を バラン 

スの 取れた 木に 変換す る。 ヘル パ 手続 partial-tree は 引数と して 
整数 n と 少なくとも n 要素の リスト を 取り、 リストの 最初の n 要 
素 を 含む バランスの 取れた 木 を 生成す る。 partial-tree の 結果と 
して 返される の は （cons で 構築され た） ペアで あり、 car 力 《 構築 さ 
れた 木で cdr が 木に 含まれなかった 要素の リ ス ト である、 

、deiine    ( list->tree   elements ； 

に car   (.partial-tree   elements    、丄 ength  elements  ) ) ; ) 
( dei ine    (partial-tree   elts  n) 

(if    (=  n  0) 

( cons    1  ()    elts  ) 

(let    ( (left-size    (quotient    (-  n 1) 2) ) ) 
(let    ( (left-result 

(partial-tree   elts   left-size ) ) ) 
(let    ( ( left-tree    ( car   left-result ) ) 

(non - left - elts    ( cdr left-result ) ) 
(right-size    (-  n   (+ left-size 1) ) ) ) 
(let    、、 this - entry   ( car  non-left-elts)) 
(right-result 
(partial-tree 
( cdr  non-left-elts) 
right- size ) ) ) 
(let    ( (right-tree    ( car  right-result)) 
(remaining - elts 
(cdr  right-result ) ) ) 
( cons    (make-tree   this— entry 
left-tree 
right-tree) 
remaining- e It s)))))))) 

a できるだけ 明確に partial- tree が どのよう に 働く のか 文章 
で 答えよ。 リスト （1 3  5  7  9 11) に 対し list->tree によ 

り 生成され る 木 を 描け。 

b list->tree が n 要素の リス トを 変換す るのに 必要と される 
ステップ 数の 増加ん オーダ はいく らか？ 
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Exercise  2.65:  Exercise  2.63 と Exercise  2.64 の 結果 を 用いて (バラ 
ンスの 取れた） 二分木と して 実装され た 集合の G)(n) における 実装 

を 与えよ。 42 
集合と 情報検索 

リスト を 集合 を 表現す るのに 使用す る 選択肢に ついて 調べ、 データ ォブジ 
ェクト に対する 表現の 選択が どのように その データ を 使用す る プログラムの パ 
フォー マンスに 大きな 影響 を 与える かにつ いて 学びました。 集合に 専念す る も 
う 1 つの 理由と して ここで 議論され た テクニック が 情報検索 を 含む アプリ ケー 
シ ヨンに おいて 何度も 何度も 現われる ことが 上げられます。 

企業が 持つ 個人情報 や 会計 システムの 取引 等、 大量の 個人 レコード を 持つ 
データベース について 考えて みて 下さい。 典型的な データ 管理 システム はレコ 

一 ドの 中の データへの アクセス や 変更に 多大な 時間 を 過ごします。 従って レコ 
ード にァク セス する 効率的な 手法 を 必要と します。 こ れは各 レコー ドの 一部に 

識別子で ある fcey (キー） としての 役割 を 果たさせる ことで 行われます。 キー は 
レコード を 一意に 識別す る 任意の 物で かまいません。 個人情報 に対して は 従業 
員 番号であった りします。 会計 システム において は 取引 番号であった りします。 
キーが 何で あれ レコード を データ 構造と して 定義す る 時、 与えられた レコード 
に 関連す る キー を 取得す る key セレクタ 手続 を 含まなければ なり ません。 

さて、 データベース を レコードの 集合と して 表現し ます。 与えられた キー 
で レコード を 指し示す ために は 手続 lookup を 用い、 引数と して キーと データ 
ベース を 取り、 その キー を 持つ レコード を 返す か、 そのような レコードが 無け 
れば false を 返します。 例えば もし レコードの 集合が 順序 無し リストで 実装 さ 
れ ていれば、 以下 を 用いる ことができます。 

dei ine    (lookup  given-key   set - of  - records ソ 
( cond   ( (null?   set - of -： records )    false ) 

( ( equal?   given-key    (key    (car   set - of - records )) ) 

(car   set - of - records)) 
(else    ( lookup  given-key   ( cdr   set - of - records ) ) ) ) ) 

もちろん、 巨大な 集合 を 表現す るのに は 順序 無 し リスト よりもより 良い 方法が 
存在し ます。 レコードが" ランダム アクセス" される 情報検索 システム は 一般 
的に 木 を ベースに した 手法で 実装され ます。 以前に 議論され た 二分木の よう な 
物です。 そのような システム を 設計す る 場合、 データ 抽象化の 方法論 はとても 

42  Exercise  2. 63 から Exercise  2.65 は Paul  Hilfinger による ものである。 
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大きな 手助けに な リ ます。 設計者 は 順序 無し リ ス トの 様な、 簡単で 直接的な 表 
現 を 用いて 初期 実装 を 作成す る こと がで きます。 こ れは 最終的な システムに は 

相応しく ありません。 しかし、 "quick  and  dirty" (迅速 だが 汚い） データベース 
を 残りの システム を テス ト する ために 提供す る 目的に は 便利でしょう。 後で デ 
一 タ 表現 はよ リ 洗練され た 物に 変更す る こ と が 可能です。 も し デー タ ベースが 
抽象 セレクタと コンストラクタ により アクセスされ るの ならば、 この 表現 上の 
変更 は 残りの システムに 対し 何の 変更 も 要求し ません。 

Exercise  2.66: レコードの 集合が 二分木と して 構造 化され、 キーの 
数値で 順序 付けられ ている 場合の lookup 手続 を 実装せ よ。 

2.3.4 例： ハフ マン 符号化 木 

この 節で は 集合と 木 を 操作す るた めの リスト 構造と データ 抽象化の 使用の 

ための 練習 を 提供し ます。 アプリケーションの 狙い は 1 と 0 の （ビッ トの） 列と 
しての データ を 表現す るた めの 手法です。 例 え ば ASCII 標準 コード はコ ン ピ ュ 
ータ 内に て 各 文字 を 7 ビッ トの 列に 符号化して テキスト を 表現す るのに 利用 さ 
れ ます。 7 ビット を 用いる こと は 27、 または 128 の 異なる 文字 を 区別す る こと 
がで きます。 一般的に、 もしれ 個の 異なる 記号 を 区別したい 場合、 記号 当た リ 
に log2n ビッ トの 使用が 必要と なります。 もし 全ての メッセージが 8 つの シン 
ボル、 A,  B,  C,  D,  E,  F,  G,  H で 作られて いる 場合、 一文字 当たり 3 ビットの 
コード を 選択す る こと がで きます。 以下 に 例 を 上げ ま す。 

A  000  C  010  E 100  G 110 
B  001 D  Oil F 101 H 111 

この 符号 を 用いて、 以下の メッセージ は 

BACADAEAFABBAAAGAH 

54 ビッ トの 列と して 符号化 されます。 

001000010000011000100000101000001001000000000110000111 

ASCII や 上記の A から H の 符号 は/ ^ed-kn が /i( 固定長） 符号と して 知られて い 
ます。 それらが メッセージの 各 記号 を 同じ 数の ビッ トを 用いて 表現す るた めで 
す。 時には wiria&fe-kn が /i( 可変長） 符号 を 使用す る ことが 有利な 場合 も あり ま 
す。 異なる シンボルが 異なる 数の ビットで 表現され 得る ものです。 例えば モー 
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ルス 符号 は アルファべ ッ トの各 文字に 対して 同じ 数の 点と 長音 を 用い はし ませ 

ん。 具体的に は E は 最も 頻繁に 現われる 文字です ので 単一の ドッ トで 表現され 
ます。 一般的に はもし メッセージ において ある 記号が とても 良く 現れ、 ある 記 
号 はとても 稀に 現れる 場合、 短い 符号 を 頻出の シンボルに 割り振る ことで デー 
タ をより 効率的に （つまり メ ッ セージ 当たりで よ リ 少ない ビッ ト 数で） 符号化 
する ことができます。 

AO  C 1010        E 1100        G 1110 

B 100        D 1011 F 1101 H 1111 

この 符号で は 上の 同じ メッセージが 以下の 列と して 符号化 されます。 
100010100101101100011010100100000111001111 

この 列 は 42 ビッ ト ですから 上で 示した 固定長 符号に 比べ 記憶 域に おいて 20% 
以上 節約で きています。 

可変長 符号 を 用いる 上での 難点の 1 つと して 0 と 1 の 列 を 読んで いる 時に 
いつ シン ボルの 終わ りに 迪リ 着いた か 知 る こと が 上 げられ ま す。 モー ルス 符号 
はこの 問題 を 各 文字に 対する トンと ツーの 列の 後に 特別な separator  code (分離 
符号) （この場合に は 一息 置く こと） を 用いる ことで 解決し ました。 他の 解法と し 
て は どの 任意の シ ン ボルに 対する 完全な 符号 も 他の シ ン ボルの 符号の 始め （ ま 
たは pre/ix (接頭辞)） ではない 様に 符号 を 設計 するとい う 物が あり ます。 このよ 
うな 符号 は pre/ia;  code (接頭 符号） と 呼ばれます。 上の 例で は A は 0 で 符号化 さ 
れ B は 100 で 符号化され るので、 他の どの シンボル も 0、 または 100 で 始まる 
符号 を 持つ こと がで きません。 

一般的に、 も し 符号化 対象の メ ッ セージ 中の シンボルの 相対 頻度の 利点 を 
得 られる 可変長 接頭 符号 を 用いれば 著しい 俛約を 達成す る ことができます。 こ 
れを 行うた めの 1 つの 特定な 理論体系 として その 発見者 David  Huffman に 因 
んで ハフ マン 符号と 呼ばれる 手法が あり ます。 ハフ マン 符号 は 葉が 符号化され 
た 記号で ある 二分木と して 表現す る ことができます。 木の葉で ない ノードの そ 
れぞれ に は その ノードの 下に 位置す る 葉の 中の シン ボル 全て を 含む 集合が あ リ 
ます。 加えて 各 葉の シンボルに は 重み （相対的な 頻度） が 割り振られ ており、 葉 
でない ノー  ドの それぞれ は その 下に 位置す る 葉の 重み 全ての 合計で ある 重み を 
持って います。 重み は エンコード、 または デコード 処理で は 利用され ません。 
以下で は 重みが どのように 木の 構築 を 手助けす るかに ついて 学びます。 

Figure  2.18 は 上で 与えられた A から H 符号に 対する ハフ マン 木 を 示して 
います。 葉の 重み はこの 木が A は 相対 頻度 8、  B は 相対 頻度 3、 他の 文字 は 相 
対 頻度 1 で 現われる メッセ 一 ジ に 対 し 設計され たこと を 示して います。 
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{ABCDEFGH}17 


ハフ マン 木 を 与えられる ことで、 任意の シン ボルの 符号 を 木の 根から 始め 
て その シンボル を 持つ 葉に 迪リ 着く まで 降リ ていく ことで 見つける こと がで き 
ます。 左の 枝に 降りる 度に 符号に 0 を 追加し、 右の 枝に 降りる 度に 1 を 追加し 
ます。 （どの 枝 を 降りる か は どの 枝が その シンボル に対する 葉 を 含む 力 \ つまり 
その 集合に シンボル を 含む か を テス ト して 判断す る ことで 決定し ます)。 例え 
ば Figure  2.18 の 木の 根から 始めて D に対する 葉に 迪リ 付く に は 右の 枝 を 選択 
し、 次に 左の 枝、 次に 右の 枝、 次に 右の 枝を迪 ります。 従って D に対する 符号 
は 1011 になり ます。 

ビッ ト列を ハフ マン 木 を 用いて 複合す るに は、 根から 始めて ビッ ト 列の 一 
連の 0 と 1 を 用いて 左 か 右の 枝 を 下りる のか 決定し ます。 葉に 着く 度に、 メッ 
セージの 新しい シン ボル を 生成し、 その 時点で 木の 根 か ら 再開 し 次の シ ン ボル 
を 見つけます。 例えば 上記の 木と 列 10001010 を 与えられた とします。 根から 
始めて 右の 枝へ と 下ります。 （列の 最初の ビットが 1 だからです)。 次に 左の 枝 
を 下ります。 （2 つ 目の ビットが 0 だからです)。 次に 左の 枝 を 下ります。 （3 つ 
目の ビッ ト もまた 0 だからです)。 この 様に して B に対する 葉に 迪リ 着く ので 
複合され たメ ッ セージの 最初の シンボル は B です。 ここで また 根から 再開し、 
次の ビットが 0 なので 左に 移動し ます。 これにより A の 葉に 迪リ 着きます。 そ 
して また 根から 残りの 列 1010 と共に 再開し、 右、 左、 右左と 動き C に 迪リ着 
きます。 従って メッセージ 全体 は BAC です。 
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ハフ マン 木の 生成 

シンボルの" アルファべ ッ ト" と それらに 対応す る 頻度 を 与えられた 時、 ど 
のように "最高の" 符号 を 構築で きる でしよう か？ （言い替えれば、 どの 木が メ 
ッ セージ を 最も 少ない ビッ ト 数で 符号化す るでしょう か?)。 ハフ マン はこれ を 
行う アルゴリズム を 与え、 結果の 符号が 相対的な シ ン ボルの 頻度 と 符号が 構築 
された 時の 頻度が 合致した 場合に、 実際に メッセージ に対する 最良の 可変長 符 
号で ある こと を 示しました。 この ハフ マン 符号の 最適 性に ついては ここで は 証 
明し ません。 しかし ハフ マン 木が どの よ う に 構築 される かに ついては 示し ま す。 

43 

ハフ マン 木 を 生成す るた めの アルゴリズム はとても 簡単です。 その 考え は 
木 を 再配置す る こ と で 最も 低レ 、頻度の シ ン ボルが 根 か ら 最も 遠く 現れる ように 
します。 シンボルと 頻度 を 含む 葉の ノードの 集合と 共に 符号 力 《 構築され る 初期 

データに より 決定され るに 従う まず 重みが 最低の 2 つの 葉 を 見つけ、 それら を 
マージし てこの 2 つの ノード を 左と 右の 枝に 持つ ノード を 生成し ます。 新しい 
ノードの 重み は 2 つの 重みの 和です。 元の 集合から 2 つの 葉 を 削除し それら を 
この 新しい ノードで 置き換えます。 この 処理 を 続けます。 各 ステップ にて 最も 
小さな 重み を 持つ 2 つの ノード を マージし、 集合から 削除し、 これらの 2 つ を 
左と 右の 枝に 持つ ノードで 置き換え します。 処理 は 1 つの ノードの みが 残った 
時に 停止し、 それが 木 全体の 根になります。 以下に Figure  2.18 の ハフ マン 木が 
どのように 生成され るか を 示します。 

Initial 

leaves  {(A  8； 
Merge  {(A  8) 
Merge  {(A  8) 
Merge  {(A  8) 
Merge  {(A  8) 
Merge  {(A  8) 
Merge  {(A  8) 
Final  {({A  B 
merge 

この アル ゴリ ズムは 常に 同じ 木 を 特定し ません。 各 ステップ において 重みが 最 
小の ノードの ペアが 一意と なると は 限らない ためです。 また どの 2 つの ノード 

43 ハフ マン 符号の 数学 上の 特性に ついての 議論に 対して は Hamming  1980 を 参照して 
下さい。 
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(B  3)  (C 1) (D 1) (E 1) (F 1) (G 1) (H 1)> 

(B  3)  ({C  D>  2)   (E 1) (F 1) (G 1) (H 1)} 

(B  3)  ({C  D>  2)   ({E  F}  2)   (G 1) (H 1)} 

(B  3)  (-CC  D>  2)   ({E  F>  2)   ({G  H>  2)> 

(B  3)  ({C  D>  2)   ({E  F  G  H}  4)} 

({B  C  D}  5)   ("[E  F  G  H>  4)> 

({B  C  D  E  F  G  H>  9)> 

C  D  E  F  G  H> 17)} 


が マージされ るかの 順 も 決定し ません。 （つまり どれが 右に なり、 どれが 左に な 
るの か はわ かり ません)。 


ハフ マン 木の 表現 

以下で は ハフ マン 木 を 用いて メッセージの 符号化 • 複合 化 を 行い、 かつ 上 
で 概説した アルゴリズムに 基づき ハフ マン 木 を 作成し ます。 木 は どのように 表 
現される かの 議論から 始めます。 

木の葉 は シンボル leaf  、 葉に 対する シンボル、 そして 重みから 構成され る 
リストに て 表現され ます。 

V dei me    (make-leaf    symbol  weight ) 

( list    1 leaf    symbol  weight ) ) 
( dei ine    (leaf?  object) 

( eq?    (car  object)    * leaf ) ) 
( def ine    ( symbol-leaf   x)    ( cadr  x) ) 
(define    (weight-leaf   x )    ( caddr  x) ) 

一般的な 木 は 左側の 枝、 右側の 枝、 シンボルの 集合、 そして 重みの リストに なり 
ます。 シンボルの 集合 は 単純に シンボルの リストと なり、 より 洗練され た 集合 
の 表現 を 用い はしません。 2 つの ノード を マージして 木 を 作る 時、 木の 重み を 
各 ノードの 重みの 和と して 取得し、 シンボルの 集合 は 各 ノードの シンボルの 集 
合の 和 集合と します。 シンボルの 集合 は リスト と して 表現され ています ので 和 
集合 は Section  2.2.1 で 定義した append 手続 を 用いて 形成す る ことができます。 

dei  ine    (make-code-tree   left  right ) 
(list  left 
right 

( append   ( symbols   left ) 

( symbols   right ) ) 
(+   (weight  left) 

(weight   right) ) ) ) 

もし このように 木 を 作る のなら 以下のような セレクタ を 持つ ことにな リ ます。 

dei  ine  (left-branch  tree  )  (car  tree  ) ) 
( dei ine    (right -branch  tree )    ( cadr  tree)) 

( dei ine    (symbols  tree ) 
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(if    (leaf?  tree) 

(list    ( symbol-leaf   tree ) ) 

( caddr  tree ) ) ) 
(define    (weight   tree ) 
(if    (leaf?  tree) 

( weight-leaf   tree ) 

( cadddr  tree ) ) ) 

手続 symbols と weight は それらが 葉と 一般的な 木の どちらと 共に 呼ばれた か 
に よ リ 少々 異なつ たこと をし な ければ な リ ません。 これら は generic  procedures 
(ジェ ネリ ック 手続 ： 二種 類 以上の データ を 扱える 手続） の 簡単な サンプル であ 
リ、 Section  2.4 と Section  2.5 にて より 多くの ことにつ いて 述べます。 

複合 化 手続 

以下の 手続 は 複合 化 アルゴリズム を 実装し ます。 0 と 1 の リスト を ハフ マ 
ン木 と共に 引数と して 取り ます。 

dei ine    (decode  bits   tree  ； 
( dei ine    (decode- 1 bits   current -branch ) 
(if    (null?  bits) 
, () 

(let    ( (next-branch 

(choose - branch 
(car  bits )    current-branch) ) ) 
v.  if    ( leaf?  next-branch ) 

( cons    ( symbol-leaf   next-branch ) 

(decode- 1 ( cdr  bits )   tree ) ) 
( decode- 1 ( cdr  bit s )   next-branch ) ) ) ) ) 
( decode- 1 bits  tree ) ) 
( dei ine    ( choose - branch  bit  branch) 

( cond   ((=  bit   0) ( left-branch  branch ) ) 
((= bit 1) (right-branch  branch ) ) 
(else    (error   "bad  bit  :    CHOOSE  -  BRANCH  ■'  bit)))) 

手続 decode- 1 は 2 つの 引数 を 取ります。 残りの ビット 列の リストと 木に おけ 
る 現在の 位置です。 木 を "下り" 続ける ため リ ス トの 中の 次の ビッ トが 0 であ 
るか 1 であるかに 従って 左、 または 右の 枝 を 選択し ます。 （これ は 手続 choose - 
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branch と共に 行われます)。 葉に 迪リ ついた 時、 その 葉の シンボル を メッセ 一 
ジの 次の シ ン ボル として 、残りの メッセージ を 木の 根から 再開して 複合し た 結 
果の 頭に cons する ことで 返します。 choose-branch の 最終 条項の エラー チェ 
ックに 注目して 下さい。 もし 手続が 0 または 1 以外の 物 を 入力 データに 見つけ 
た 場合に エラー を 発します。 

重み 付き 要素の 集合 

私達の 木の 表現に おいて、 各 葉で はない ノード は 簡単に リストと して 表現 
し た シ ン ボルの 集合 を 持ちます。 しか し 上で 議論 し た 木の 生成 アル ゴ リ ズム は 
また 葉と 木の 集合に 対しても 働き、 2 つの 最小の 項目の マージ を 続けなければ 
なり ません。 集合の 中の 最も 小さな 項目 を 繰り返し 見つけなければ なリ ません 
から、 このような 集合に 対して は 順序 有 りの 表現 を 用いる と 便利 です。 

葉と 木の 集合 を 重みの 昇順で 配置した 要素の リスト と して 表現す る ことに 
します。 以下の 集合 を 構築す るた めの adjoin-set 手続 は Exercise  2.61 にて 説 
明した ものと 似て います。 しかし 項目 は その 重みに て 比較され、 集合に 追加 さ 
れる 要素 は その 中に 既に 存在 はしない とします。 

^define    (  ad  j  om-set  x  set ; 

(cond   ( (null?   set)    (list  x) ) 

((<    ( weight  x)    (weight    (car  set))) 

( cons  x  set ) ) 
(else    ( cons    (car   set ) 

(adjoin - set  x   ( cdr  set)))))) 

以下の 手続 は （（A  4)  (B  2)  (C 1) (D 1)) の 様な シンボルと 頻度の ペアの リ 
スト を 取り、 葉の 初期 順序 有り 集合 を 構築し、 ハフ マン アルゴリズムに 従い マ 
—ジ できる よう 準備し ます。 

^define    (make-leaf -set  pairs ) 
if    (null?  pairs ) 

, () 

(let    ( (pair    (car  pairs))) 

( ad j  oin-set    (make-leaf    (car  pair )  ；  symbol 

( cadr  pair  )  )      ；  frequency 
(make-leaf -set    (cdr  pairs )))))) 

Exercise  2.67: 符号化 木と サンプルの メッセージ を 定義す る。 
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( def  ine   sample- tree 

(make-code-tree    (make-leaf    1 A  4) 
(make-code-tree 
(make-leaf    'B  2) 
(make-code-tree  (make 
(make 

( def  ine   sample-message    '(0  1100101 
decode 手続 を 用いて メッセージ を 複合し 結果 を 与えよ。 

Exercise  2.68:  encode 手続 は 引数と して メッセージと 木 を 取り、 符 
号 化され メ ッ セージ を 与える ビッ トの リスト を 生成す る。 

def  ine    (  encode  message  tree) 
、if    (null?  message ) 

, () 

( append   ( encode -symbol    (car  message)    tree ) 
( encode    ( cdr  message)  tree)))) 

encode-symbol は あなたが 書かねば ならぬ 手続で ある。 与えられ 
た 木に 従って 与えられた シンボルの 符号化 を 行い ビッ トの リスト 
を 返す。 encode-symbol を も し シンボル がその 木に 存在し ない 場 
合に エラー を 発する ように 設計せ よ。 あな たの 手続 を Exercise  2.67 
で 得られた 結果と サンプルの 木で 符号化す る ことで テストし、 元 
の サン プル メッセージと 同じで ある か 確認せ よ 。 

Exercise  2.69: 以下の 手続 は その 引数と して シンボルと 頻度の ペア 
の リスト を 取り （どの シンボル も 1 つより 多くの ペアに は 存在し な 
い)、 ハフ マン アルゴリズムに 従い ハフ マ ン 符号化 木 を 生成す る 。 

(, def  ine    (gener  at  e-hui  f  man-tree  pairs  ) 

(successive-merge    (make-leaf -set  pairs))) 

make-leaf-set は 上で 与えられた 手続で ペアの リ ス トを 葉の 順序 
有り 集合へ と 変換す る。 successive-merge は あなたが 書かな けれ 
ばなら ぬ 手続で ある。 make-code-tree を 用いて 集合の 重みが 最小 
の 要素 を残リ 要素が 1 つになる まで 繰り返し マージせ よ。 残った 
一要素 こそが 望まれた ハフ マン 木で ある。 （この 手続 は 少し ト リ ッ 
キーで あるが そんなに 複雑で はない。 も しあな たが 自分の 設計が 
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-leaf    'D 1) 
-leaf    'C 1))))) 
0  1110)) 


複雑 だと 思うなら、 ほとんど 確実に 何 か を 間違えて いる。 順序 有 
りの 集合 表現 を 用いて いると いう 事実から 著しい 利点 を 得る こと 
がで きる。 ） 

Exercise  2.70: 以下の 8 つの シンボル による アルファべ ッ ト （文字 
体系） と 関連す る 頻度 は 効率的に 1950 年代の ロックの 歌 を 符号化 
する ために 設計 さ れた。 （"アルファベット" の " シ ン ボル" は 単体 
の 文字で ある 必要 は 無い ことに 注意せ よ。 ） 

A  2  GET  2  SHA  3  WAH 1 
BOOM 1 JOB  2      NA 16      YIP  9 

generate-huff  man-tree  (Exercise  2. 69 参, 照) を 用 レヽて 対応す るノヽ 
フ マン 木 を 生成し、 encode  (Exercise  2.68 参照） を 用いて 以下の メ 
ッ セージ を 符号化せ よ。 

Get  a  ，ob 

Sha  na  na  na  na  na  na  na  na 
Get  a  job 

Sha  na  na  na  na  na  na  na  na 

Wah  yip  yip  yip  yip  yip  yip  yip  yip  yip 

Sha  boom 

符号化に は 何ビッ トが 必要で あるか？ この 歌 を もし 固定長 符号 を 8 
つ シンボル による アルファべ ッ トに 用いた 時、 最小で 何ビッ トが 
必要で あるか？ 

Exercise  2.71: n 個の シンボルの アルファべ ッ ト に対する ハフ マン 
木 を 持って いると する。 各 シンボルに 関連す る 頻度 は 1,2,4,...  ，2n— 
だとしょう。 n  =  5、  = 10 の 場合の 木 を スケッチ せよ。 そのよう 
な （任意の n に対する） 木に おいて、 最も 頻度の 高い シンボル を符 
号 化する に は 何ビッ トが 必要で あるか？ 最も 頻度の 低い シンボル 
に対して はいく らか？ 

Exercise  2.72: あなた 力5' Exercise  2.68 にて 設計した 符号化 手続に つ 
いて 考える。 シン ボル を 符号化す る のに 必要な ス テツ プ 数の 増加 
の オーダー はいく らか？ 各 ノードに 迪 りついた 時に シンボル リス 
トを 検索す るのに 必要な ステップ 数 を 含める こと を 確認す るよう 
に。 この 質問の 一般的な 解答 は 難しい。 n 個の シンボルの 相対 頻度 
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カ^] xercise  2.71 で 説明され た 特別な 場合に ついて 考えよ。 そして 
アルファベット における 最大 頻度 と 最小 頻度の シ ン ボル を 符号化 
する のに 必要な ステップ 数の （n の 関数と しての） 増加の オーダー 
を 与えよ。 


2.4 抽象 データの 多重 表現 

ここまで データ 抽象化に ついて 紹介して きました。 これ は プログラムが 操 
作す る データオブジェクトの 実装に おける 選択に 独立して 多くの プログラムが 

指定され 得る 様な 方法で システム を 構造 化する メソ ドロジ （方法論） でした。 例 

えば Section2.1.1 にて どのように 分数 を 用いる プログラムの 設計 タスク を、 複 
雑な データ を 構築す るた めの コンピュータ 言語の プリ ミ ティ ブな メカニズム を 
用いて 分数 を 実装す る タスクから 分離す るの かにつ いて 学びました。 鍵と なる 
考え は 抽象化 バリア を 建てる こと 一分 数の 使用法 を それらの 根底に ある リス 
ト 構造 を 用いた 表現から 分離す る ことでした。 同様の 抽象化 バリ ァは 分数 演算 
( add-rat,  sub-rat,  mul-rat,  div-rat) を 実行す る 手続の 詳細 を 分数 を 用いる 
"より 高い レベル" の 手続から 分離し ます。 結果の プログラム は Figure  2.1 で 示 
される 構造 を 持ちます。 

これらの データ 抽象化 バ リ ァ は 複雑さ を コントロール する 強力な ツールで 
す。 基礎 をな す データオブジェクトの 表現 を 分離す る ことで、 大きな プロ ダラ 
ムを 設計す る タスク を 小さな タスク に 分割し 別々 に 実行す る こと を 可能に しま 
す。 しかし この種の データ 抽象化 はま だ 十分に 強力ではありません。 データ ォ 
ブジェク ト に対して "基礎 をな す 表現" について 話す ことが 常に 意味が あると 
は 限らない ためです。 

一例と して、 ある データ ォ ブジ ェクト に対して は 便利 な 表現が 1 つよりも 
多く あるか もしれ ません。 そして 私達 は システム を 複数の 表現 を 扱える ように 
設計した いと 願う でしよう。 簡単な 例 を 得る ために、 複素数が 2 つの ほとんど 
同様な 方法で 表現され ると しましょう。 （実数と 虚数から 成る） 直行 形式と （大 
きさと 角度から 成る） 極 形式です。 ある 時 は 直行 形式が ょリ 適切で、 ある 時に 
は 極 形式が より 適切になります。 実際に 複素数が 両者の 方法に て 表現され、 複 
素数 を 操作す る 手続が どちらの 表現で も 働く ことができる システム を 考える こ 
と は 完全に 適切で あろうと 思われます。 

ょリ 重要な ことと して、 プログラミング システム は 時折、 長期 間に 渡り 多 
くの 人々 が 働く ことによ リ 設計され るた め、 長い 間 仕様 変更に さらされます。 
そのような 環境で は、 データ 表現の 選択 を 前もって 同意す る こと が 誰 にと つて 
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も 可能と いう こと は 単純に 有り得ません。 そのため 使用から 表現 を 分離す る デ 
ータ 抽象化 バリアに 加えて、 お 互いから 異なる 設計の 選択 を 分離し、 単一の プ 
ログ ラム 内に て 異なる 選択の 共存 を 許す 抽象化 バ リア を 必要と します。 さらに、 
巨大な プログラム は 時折、 以前から 存在す る 独立して 設計され た モジュール を 

組み合わせる ことで 作成され るた め、 プログラマに モジュール を addiiiwZy (付 
加 的） に 組み合わせて 巨大な システムに する こと を 許可す るた めの 約束事が 必 
要です。 それ はつ まり これらの モジュール を 再設 計、 または 再 実装す る 必要が 
無い ようにす るた めです。 

こ の 節で は プロ グラムの 異な る パーツ に より 異なる 方法で 表現され 得る デ 
ータを どのよう に 処理す るかに ついて 学びます。 これ は generic  procedures ぃジ 
エネ リ ック 手続) 一 二種 類 以上の 方法で 表現され 得る データ を 処理 可能な 手続 
の 構築が 必要 となり ま す。 ジェネリック 手続 を 構築す る 主な テクニック は type 
tags (タイプ タグ) を 持つ データ オブジェ ク トを 利用して 処理す る ことにな リま 
す。 それ はつ まり データオブジェクト 自身が どのように 処理され るべき である 
かにつ いての 情報 を 明示的に 含む ことです。 また dcdd-directed (データ 適 従) プ 
ログ ラミングに ついても 議論し ます。 これ は 強力、 かつ 便利な ジェネリック 命 
令 を 用いて 付加 的に システム を 組み立てる 実装 戦略です。 

簡単な 複素数の 例から 始めます。 どのように タイプ タ グ と デー タに 従う ス 
タイルが 抽象的な "複素数" データ オブジェ ク トの 概念 を 維持しながら 複素数 
の 直交 形式と 極 形式の 表現 を 分けて 設計 を 行う こと を 可能に している かにつ い 
て 学びます。 私達 はこれ を、 複素数に 対する 数値 演算 手続 （add-complex,  sub- 
complex,  mul-complex,  div-complex) を、 複素数 力、 どのよ う に 表現され るの 力、 
から 独立して 複素数の 部分に アクセス する ジェ ネリ ックな セレクタ を 用いて 定 
義 する ことで 達成し ます。 結果と しての 複素数 システム は Figure  2.19 に 示され 
ると おり、 2 つの 異なる 種類の 抽象化 バリア を 含みます。 "水平 方向" の 抽象化 
バリア は Figure  2.1 と 同じ 役割 を 演じます。 それら は" 高 レベル" の 命令 を" 低 
レベル" の 表現から 分離し ます。 それに加えて "垂直 方向" の バリ ァが 存在し、 
代替 的な 表現 を 分離して 設計し インストール する 能力 を 与えます。 

Section  2.5 にて どのよう に タイプ タグと データ 適 従 スタイル を 用いて ジェ 
ネリ ックな 数値 演算 パッケージ を 開発す るかに ついて 示します。 これ は 全ての 
種類の "数値" を 操作す るのに 用いる ことができる 手続 （add,  mul, その他） を提 
供し ます。 Section  2.5.3 では どのよう にして 記号 代数 を 実行す るジェ ネ リ ッ ク 
な 数値 演算 を システム 内に て 用いる かにつ いて 示します。 
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Programs  that  use  complex  numbers 


add - complex    sub-complex    mul - complex    div - complex 


Complex-arithmetic  package 


Rectangular 

Polar 

representation 

representation 

List  structure  and  primitiv 

e  machine  arithmetic 

Figure  2.19: 複素数 シス ラ 

'-1 

、の データ 抽象化 バリ ァ 

2.4.1 複素数の ための 表現 

ジェネリックな 命令 を 用いる 単純な 代わ リ に 非現実的 な プログラムの 例と 
し て 複素数 上で 数値 演算 命令 を 実行す る システム を 開発し ます。 順序 有 リ ぺ 

ァ と しての 複素数に 対する 2 つの もっともら しい 表現に ついて 議論す る こ と 
から 始めます。 直行 形式 （実数 部と 虚数 部） と 極 形式 （大きさと 角度） です。 44 
Section  2.4.2 が どのよう にして 両方の 表現が タイプ タ グとジ エネ リ ック 命令の 
使用 を 通して 単一の システム 内に て 共存で きる ように 作成され 得る のかに つい 
て を 示します。 

分数と 同様に、 複素数 は 自然に 順序 有 リペアと して 表現され ます。 複素数 
の 集合 は 2 つの 直行す る 軸 を 持つ 二次元 空間と して 考える ことができます。 こ 
の 視点から 複素数 z  =  X  +  iy  、ここで i2  = 一  1) は その 平面 中の 実数 座標が: r か 
つ、 虚数 座標が y の 点と して 考える ことが 可能です。 複素数の 和 はこの 表現に 
おいて 座標の 和と 還元で きます。 

Real- part は 1 + な) ― Real-part (zi) +  Real-part (22), 
imaginary- part は 1 + な) = Imaginary- part は :i リ + imaginary- parti  Z2). 


44 実際の 計算 システム において は 直行 形式の ほうが 極 形式よ り も 多くの場合に は 好ま 
れ ます。 直行 形式と 極 形式の 間の 変換に おける 丸め 誤差の ためです。 これが なぜ 複素数 
システムの サンプルが 非現実的で あるかの 理由です。 それ にもかかわらず、 この 例はジ 
ェ ネリ ック 命令 を 用いた システムの 設計の 明確な 説明 を 提供し、 また この 章の 中で 後に 
開発され るより 実質的な システム に対する 良い 導入部で あり ます。 
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Imaginary 


Figure  2.20: 平面 上の 点と しての 複素数 


複素数 を かけ 算 する 場合、 複素数 を 大きさと 角度 （Figure  2.20 内の r と 兰) 
と しての 極 形式の 表現 を 用いて 考える 方が よ リ 自然です。 2 つの 複素数の 積 は 
一方の 複素数 を もう 一方の 長さで 延し 次に もう 一方の 角度の 分、 回転す る こ と 
で 得られる べク トルに なり ます。 


従って 複素数に は 2 つの 異なる 表現が 存在し、 それぞれ は 異なる 操作に 適して 
います。 けれども、 複素数 を 用いる プログラム を 書いて いる 誰かさん の 視点 か 
らは、 データ 抽象化の 主義が 複素数 を 操作す るた めの 全ての 命令 は どの 表現が 
コンピュータ により 用いられ るかに 係らず 存在す るべき だと 提案し ます。 例え 
ば 直行 形式 に て 指定 さ れる 複素数の 大き さ を 求められる こと はしばし ば 便利で 
あり ます。 同様に 極 形式に て 指定され る 複素数の 実数 部 を 決定で きる こと も 時 
折 便利で あり ます。 

そのよう な システム を 設計す るた めに、 Section  2.1.1 にて 分数 パッケージ 
の 設計に おいて 従った のと 同じ データ 抽象化 戦略に 従えます。 複素数 上の 命令 
が 4 つの セレクタ を 使用して 実装され ると 想定し ます。 real-part,  imag-part, 
magnitude,  angle です。 また 複素数 を 構築す る 2 つの 手続 を 持って いると も 


Magnitude(2:i ■ 
Angle(2;i ■  z-2 


Magnitude(2;i) . Magnitude  1 22 
Angle(zi) +  Angle  (z2)- 

= 大きさ （Zl) . 大きさ （； 22), 

= 角度 (a)  + 角度 (a). 


大きさ （れ 

角度 ^1 •  Z2 
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想定し ます。 make-from-real-imag は 指定され た 実数 部と 虚数 部 を 持つ 複素数 
を 返し、 make-from-mag-ang は 指定され た 大きさと 角度 を 持つ 複素数 を 返し ま 
す。 これらの 手続 は 任意の 複素数に 対し 同じ 特性 を 持ちます。 

i,make-from-real-imag   (real-part  z リ v imag-part  z) ； 

と 


(make- 


:)) 


:rom-mag-ang   (magnitude  z)    ( angle 

の 両方が z に 等しい 複素数 を 生成し ます。 

これらの コンス トラクタと セレクタ を 用いて、 Section  2.1.1 で 分数に 対して 
行った のと 全く 同様に、 コンストラクタと セレクタ にて 指定され た "抽象 デー 
タ" を 用いて 複素数 上での 数値 演算 を 実装 可能です。 前述の 式に て 示された よ 
うに、 複素数の 和と 差 は 実数 部と 虚数 部 を 用いる ことで、 また 複素数の 積と 商 
は 大きさと 角度 を 用いる ことで 実装で きます。 

dei ine    (add - complex  zl z2) 
(make -: from - real - imag   (+   (real-part  zl) 

(+   ( imag-part  zl) 


(real-part   z2) ) 
imag-part   z2  ) ) ) ) 


( def ine    ( sub-complex  zl z2) 

(make - from - real - imag   (-    (real-part  zl ) 

(- ( imag-part  zl ) 


(real-part   z2 ) ) 
V imag-part   z2 ) ) ) ) 


( dei ine    (mul - complex  zl z2) 

(make-f r om-mag-ang    (*    (magnitude  zl)    (magnitude   z2 ) ) 
(+   ( angle  zl)    (angle  z2) ) ) ) 


(define    (div - complex  zl z2) 

(make-f r om-mag-ang    (/    (magnitude  zl ) (magnitude   z2 ) ) 
(- (angle  zl)    (angle  z2)))) 

複素数 パッケージ を 完了させる ために は 表現 を 選択し、 コンストラクタと セレ 
クタ を プリ ミ ティ ブな 数値と リ ス ト 構造 を 用いて 実装し なければ なり ません。 
これ を 行うた めに 2 つ 明らかな 方法が あり ます。 "直行 形式" の 複素数 は ペア 
(実数 部， 虚数 部） と して 表現し、 また 極 形式 は ペア （大きさ， 角度） にて 表現し 
ます。 どちら を 選択す るべき でしよう 力、？ 

異なる 選択 を 具体的に する ために、 二人の プログラマ、 Ben  Bitdiddle と 
Alyssa  P.  Hacker がいる と 想像して 下さい。 二人 は 複素数 システムの ための 表 
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現 を 独立して 設計し ます。 Ben は 複素数 を 直行 形式に て 表現す る こと を 選択し 
ました。 この 選択に より 現状と して 複素数 を 与えられた 実数 部と 虚数 部から 構 
築す るた め、 実数 部と 虚数 部 を 複素数から 選択す るの は 直接的です。 大きさと 
角度 を 求める ために は、 または 複素数 を 与えられた 大きさと 角度から 構築す る 
ために 彼 は 三角法の 関係 を 用いました。 


x  ―  rcosA, 
y  ―  rsmA, 


r  =  ^2  +  y2, 
A  =  arctan(y,  z 


こ れは 実数 部 と 虚数 部 （ぶ， を 大きさと 角度 （r，  へと 関係 づけ ま す。 
の 表現 は 従って 以下の セレクタと コンストラクタ により 与えられます。 


Ben 


、 car 
、 cdr 


:)) 
:)) 


dei ine  (real-part 

( dei ine  ( imag-part 

( dei ine  (magnitude 

( sqrt  (+    ( square 
( square 

( dei ine  ( angle  z) 

( at an  ( imag-part  z)    (real-part  z) ) ) 

( dei ine  (make -; from - real - imag  x  y )    ( cons 

( dei  me  (m  ake- from -mag -ang  r  a) 

( cons  ( *  r   (cos   a) )    (*  r   (sin  a)))) 


z) 
z) 
z) 

(real-part  z ) ) 
V imag-part  z 


y)) 


一方、 Alyssa は 複素数 を 極 形式に て 表現す る こと を 選択し ました。 彼女に とつ 
て は 大きさと 角度 を 選択す るの は 直接的です。 しかし 実数 部と 虚数 部 を 得る た 
めに は 三角法の 関係 を 用いねば なり ません。 Alyssa の 表現 は 次のと おりです。 

v.  dei  ine  (real-part  z)    ^  *     magnitude  z)    (cos  (angle 

( dei ine  ( imag-part  z)    ( *    (magnitude  z)    (sin   ( angle 

( dei ine  (magnitude  z)    ( car  z) ) 

( dei  ine  ( angle  z)    (cdr  z) ) 

( dei ine  (make-from-real-imag  x  y ) 

( cons  ( sqrt    (+   ( square  x)    ( square  y ) ) ) 
( at  an  y  x) ) ) 

( dei ine  (make-f rom-mag-ang  r  a)    ( cons  r  a) ) 


45 ここで 参照され た アーク タン ジ ェント 関数 は、 Scheme の atan 手続に て 計算され ま 
すカ弋 2 つの 引数お と ぶ を 取 リタ ンジ ェント がお/; r となる 角度 を 返す ように 定義され ま 
した。 引数の 符号が 角度の 象限 を 決定し ます。 


183 


~T 一 タ抽象 化の 規律 は add— complex,  sub-complex,  mul— complex,  div- complex 

の 同じ 実装が Ben の 表現と Alyssa の 表現の どちらに 対しても うまくい くこと 
を 保証し ます。 

2.4.2 タグ 付き データ 

データ 抽象化 を 考え方の 1 つ は "最小 責務の 原則" の 適用と してです。 

Section  2.4.1 の 複素数 システムの 実装に おいて、 私達 は Ben の 直行 形式 表現と 
Alyssa の 極 形式 表現の どちらも 使用す る ことができました。 セレクタと コンス 
トラクタ により 形成 さ れた 抽象化 バ リ ァ が 最後の 可能な 瞬間 に デー タ ォ ブジ ェ 
ク ト に対する 具体的な 表現の 選択に 従う こと を 可能に しています。 従って シス 
テム 設計に おいて 最高の 柔軟性 を 維持す る ことができる のです。 

最小 責務の 原則 はさら にもつと 高みへ と 到達す る ことができます。 もし 私 
達が 望めば、 セレクタと コンストラクタ を 設計した "後" にさえ 表現の 多義性 
を 維持す る こ と が 可能です。 そして Ben の 表現 "と" Alyssa の 表現の 両方の 使 
用 を 選択で きます。 もし 両方の 表現が 単一の システムに 含まれる 場合、 極 形式 
の データ を 直行 形式の デー タ から 識別す る ための 何 ら かの 方法が 必要に な リ ま 
す。 そうでな けば、 例えば ペア （3,  4) の 大きさ を 求める よう 尋ねられた 場合に 
(数値 を 直行 形式 だと 考えて ) 5 と 答えるべき か （数値が 極 形式で あると 考えて ) 3 
と 答えるべき であるの か 分か リ ません。 この 識別 を 直接的な 方法で 達成す るた 
めに type  tag 、タイ プ タグ) 一 rectangular または polar の シンボル 一 を 各複素 
数の 部分と して 導入し ます。 すると 複素数 を 操作せ ねばな ら ない 時に タグ を 用 
いて どちらの セレクタ を 適用す るべき か 決定す る ことができます。 

タ グ付 き データ を 操作す るた めに デー タ オブジェクトから タ グ と （複素数 
の 場合に は 極 形式、 または 直行 形式の） 実際の コンテンツ を 抽出す る 手続 type- 
tag  と contents を 持つ と 想定 します。 また タグと コンテンツ を 取 り タ グ付 き 
データ オブジェ ク トを 生成す る 手続 attach-tag を 仮定し ます。 これ を 実装す 
る 直接的な 方法 は 普通の リスト 構造 を 用いる ことです。 

^define    (attach-tag  type-tag   contents ) 

cons   type-tag   contents  ； ) 
(define    ( tvue-tag  datum) 

if    (pair?  datum) 
(car  datum) 

(error   "Bad  tagged  datum :    TYPE-TAG"   datum) ) ) 
(define    ( contents  datum) 
v.  if    (pair?  datum) 
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( cdr  datum) 

(error   "Bad  tagged  datum:    CONTENTS"  datum))) 

これら 手続 を 用いて 述語 rectangular? と polar? を 定義し、 直行 形式と 極 形 
式の そ れぞれ を 認識す る こと がで きます。 


(, del ine    (rectangular  r  z リ (, eq?    (,type-tag  z)    '  rectangular  ； ) 
( del ine    (polar?  z)    ( eq?    (type-tag  z)    '  polar ) ) 

タイプ タグ を 用いて Ben と Alyssa はこれ で 彼等の コード を 変更し 2 つの 異な 
る 表現が 同じ システム 内に て 共存させる ことができる ようになりました。 Ben 
が 複素数 を 構築す る 度に 彼 は 直行 形式で あると タグ を 付けます。 Alyssa が複素 
数 を 構築す る 度に、 彼女 は それ を 極 形式で あると タグ を 付けます。 加えて、 Ben 
と Alyssa は 手続の 名前が 衝突し ないように 確認し なければ なり ません。 これ 
を 行う 1 つの 方法と して Ben は 彼の 各 表現 手続に 接尾辞 rectangular を 追加 
し、 Alyssa は 彼女の 手続に 対し polar を 付け加えます。 以下 は Ben の Section 
2.4.1 から 改正した 直行 形式 表現です。 

dei ine  (r eal-p art- re ct angular  z)  (  car  z ; ) 
( dei ine  ( imag-part-rect angular  z)  ( cdr  z) ) 
( dei ine    (magnitude-rectangular  z ) 

( sqrt    (+   ( square    (real-part -rectangular  z ) ) 
( square    (imag-part-rect angular 
( dei ine    ( angle -rectangular  z) 

( at an   ( imag-part-rect angular  z) 

(r eal-p art- re ct angular  z) ) ) 
( dei ine    (make -from-real- imag-re  ct angular 

( attach -" tag    1  rectangular    ( cons  x  y ) ) ) 
( dei ine    (make-from-mag-ang-rect angular  r  a) 
( attach-tag    ' rectangular 

( cons    ( *  r   (cos   a))    (*  r   (sin  a 

そして 以下 は Alyssa の 改訂版 極 形式 表現です。 

dei  ine    (real - part  - po 丄 ar  z) 
、*    、magni"tude 一 do 丄 ar  z ソ v  cos    v  angle-polar  z 
( dei ine    (imag-p art-polar  z) 

(*    (magnitude -polar  z)    (sin   ( angle-polar  z 


y) 
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(define  (magnitude -polar  z)  (car  z) ) 
(define    ( angle-polar  z )    ( cdr  z ) ) 


(define    (make-from-real-imag-polar  x  y ) 
( attach-tag    1  polar 

( cons    ( sqrt    (+   ( square  x)    (square  y ) ) ) 
(at an  y  x リリ) ) 
( dei ine    (make-f rom-mag-ang-polar  r  a) 
( attach-tag    1  polar    ( cons  r  a))) 

各ジェ ネリ ックな セレクタ は 引数の タグ を チェックし、 その タイプの データ を 
扱う のに 適切な 手続 を 呼び出す 様に 実装され ます。 例と して、 複素数の 実数 

咅 P を 得る 場合、 real-part は タク" を 確 力、 め Ben の real -part-rectangular か 
Alyssa の real-part-polar のど ちら を 使う のか を 決定 します。 どちら の 場合 
でも contents を 用いて 生の タグの 無い データ を 抽出し 直交 形式、 または 極 形 
式の 手続 を 必要に応じて 呼び出します。 

dei  ine    (real-part  z  ； 

cond   ((rectangular"?  z) 

( real-part-re ct angular    (  contents  z) ) ) 
( (polar?  z) 

(real-part-polar    ( contents  z ) ) ) 
(else    ( error   " Unknown  type :  REAL-PART" 


(define     imag-part  z ) 

( cond   ( (rectangular?  z) 

( imag-part-rect angular    ( contents  z) ) ) 
( (polar?  z) 

(imag -part-polar    ( contents  z ) ) ) 
(else    (error   " Unknown  type :    IMAG-PART"   z) ) ) ) 


(define    (magnitude  z) 

( cond   ( (rectangular?  z) 

(magnitude-rectangular    ( contents  z) ) ) 
( (polar?  z) 

(magnitude -polar    ( contents  z ) ) ) 
(else    (error   " Unknown  type :    MAGNITUDE"   z) ) ) ) 
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(define    ( angle  z) 

( cond   ( (rectangular?  z) 

( angle-rectangular    ( contents  z) ) ) 
( (polar?  z) 

( angle-polar    ( contents  z) ) ) 
(else    ( error   " Unknown  type :    ANGLE "   z ) ) ) ) 

複素数 演算 命令 を 実装す る た め に は Section  2.4.1 力、 ら 同じ 手続 add- complex, 
sub-complex,  mul- complex,  div  -  complex を 使つ こと 力 ^  (？ さます。 なせな り そ 
れらが 呼び出す セレクタ はジェ ネリ ック であるた めど ちらの 表現に 対しても 働 
くからで す。 例と して 手続 add-complex は 今でも 以下のと おりです。 

^define    ( add-comDlex  zl z2) 

^make-from-real-imag   (+   (real-part  zl ) (real-part   z2 ) ; 

(+   ( imag-part  zl) ( imag-part   z2 ) ) ) ) 

最後に、 複素数 を Ben の 表現と Alyssa の 表現の どちら を 利用して 構築す るの 
か 決定し なければ なり ません。 妥当な 選択と して 実数 部と 虚数 部が ある 場合に 
は 直行 形式 を 用い、 大きさと 角度が ある 場合に は 極 形式 を 用いて 構築し ます。 

^define    (make-from-real-imag  x  y ) 

i^make-f  rom- real- imag-rect angular  x  y ) ) 
(define    (m ake- from -mag -ang  r  a) 

(make - from - mag - ang - polar  r  a) ) 

結果と しての 複素数 システム は Figure  2.21 にて 表される 構造 を 持ちます。 シス 
テム は 3 つの 関連す る 独立した 部分に 分離され ます。 複素数 演算 命令、 Alyssa 
の 極 形式 実装、 そして Ben の 直行 形式 実装です。 極 形式と 直行 形式の 実装 は 
Ben と Alyssa が 別々 に 働きながら 書かれる ことが 可能でした。 そして 両者が 
抽象 コンストラクタ、 セレクタの インターフェイス を 用いながら 複素数 演算 手 
続 を 実装す る 第三者の プログラマ により 基礎 を 成す 表現と して 利用され る こと 
が 可能です。 

各 データ オブジェ ク トは その 型に て タグ 付けられて いるので、 セレクタ は 
データに 対し ジェ ネリ ックな 方法で 操作し ます。 これ は 各 セレクタが それが 適 
用され る 個々 の データの 型に 従う 振舞 を 持つ よう に 定義され ている という こ と 
です。 分けられた 表現 を 結び付ける ための 一般的な メカニズム について 注意し 
て 下さい。 与えられた 表現 実装 （例えば Alyssa の 極 形式 パッケージ） の 中で は 
複素数 は 型の 無い ペア （大きさ， 角度） です。 ジェ ネリ ックな セレクタが 極 形式 
の 型 （タイプ） の 複素数 を 操作す る 時、 タグ を 取り 中身 を Alyssa の コードに 渡 
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Programs  that  use  complex  numbers 


add - complex    sub-complex    mul - complex    div - complex 


real-part 
imag-part 


magnitude 
angle 


Rectangular 
representation 


Polar 
representation 


List  structure  and  primitive  machine  arithmetic 


Figure  2.21: ジ エネ リ ックな 複素数 演算 システムの 構造 


します。 反対に Alyssa が 通常の 使用の ために 数値 を 構築す る 時、 彼女が 型で タ 
グを 付ける ことで よ リ 高い レベルの 手続に より 適切に 認識され る ことができ ま 
す。 データオブジェクトが ある レベルから 別の レベルへ と 渡される に 従い、 こ 
の タグの 取り付けと 除去の 規律が 重要な 組織的 戦略と なり ます。 Section  2.5 に 
てこれ について 学びます。 

2.4.3 デ一 タ 適 従 プ ログ ラミン グ と 付加 性 

データの 型 を チェックし 適切な 手続 を 呼ぶ 一般的な 戦略 は dispatching  on 
iWe (タイプ 別 処理） と 呼ばれる。 これ は システム 設計に おいて モジュール 方 
式 を 得る ための 強力な 戦略です。 一方で Section  2.4.2 のよう な 呼 出の 実装 は 2 
つの 明らかな 弱点が 存在し ます。 1 っはジ エネ リ ッ クイン ターフェ イス 手続 
(real-part,  imag-part,  magnitude,  angle) (ま 全ての 異なる 表現 （こつ レ、 て 矢 口つ 
ていなければ なり ません。 例えば 複素数に 対する 新しい 表現 を 複素数 システム 
に 組み入れたい としましょう。 この 新しい 表現 を 型に て 識別し、 次に 全ての ジ 
ェ ネリ ッ クイン ターフェ イス 手続に 新しい 型 を チェック する 条項 を 追加し、 そ 
の 表現に 対する 適切な セレクタ を 適用す る 必要が 出て くるでしょう。 

もう 1 つの この テク ニッ クの 弱点 は 例え 個々 の 表現が 別々 に 設計で きたと 
しても、 システム 全体の 中で どの 2 つの 手続 も 同じ 名前 を 持たない こと を 保証 
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せねば な リ ません。 これが なぜ Ben と Alyssa 力お ection  2.4.1 の 彼等の 元の 手 
続の 名前 を 変更 し な ければ レ 、けない かの 理由で し た。 

両者の 弱点の 根底 にある 問題 はジ エネ リック インターフェイス を 実装す る 
ための テクニック 力 《a(Wito;e (付加 的） でない ことです。 ジェ ネリ ック セレクタ 
手続 を 実装す る 人 は これらの 手続 を 新しい 表現が インス トール される 度に 変更 
せねば ならず、 また 個々 の 表現 を 接続す る 人々 は 名前 衝突が 起こ らぬ 様に 彼等 
の コード を 変更せ ねばな リ ません。 これらの ケースの それぞれで コー ドに 対し 
て 加えられなければ ならない 変更 は 簡単です が、 それでも 必ず 行わねば ならず、 
不自由 さと 障害の 原因と なり ます。 これ は 複素数 システム に対して は 現時点で 
は あまり 大きな 問題ではありません。 しかした だ 2 つで はなく 数百 もの 異なる 
表現が 複素数に 対 して 存在す ると 仮定して みて 下さい。 その上 どの プログラマ 
も 全ての ィ ン ターフェ イス 手続 や 全ての 表現に ついて 知らないと 想定して みて 
下さい。 問題 は 現実的で あ り 大規模な データベース 管理 システム のよう な プロ 
ダラ ム では 必ず 解決され る 必要が あ リ ま す。 

私達 に 必要な もの はよ リー 層の シス テム 設計の モ ジ ユール 化の た めの 手段 
です。 これ は data-directed  programming (^データ 適' 從プ d グ ラミング) として 知 
られる プロ ダラ ミ ング テクニック により 提供され ます。 データ 適 従 プロ グラミ 
ン グが どのように 働く か を 理解す るた めに は、 異なる 型の 集合 に 対 して 共通な 
ジェネリックな 命令の 集合 を 扱う 度に、 実際に 予想され る 命令 を 1 つの 軸に、 
予想され る 型 をもう 一方の 軸に 持つ 二次元の 表に 取り組み、 その 観察 結果から 
始めます。 表の 項目に は 与えられた 各 引数の 型に 対する 各 命令 を 実装す る 手続 
です。 前の 章に て 開発され た 複素数 システム では 命令の 名前、 データタイプ、 
実際の 手続の 間の 対応 はジヱ ネリ ッ クなィ ン ターフェ イス 手続の 種々 の 条件 節 
の 間に 広がって います。 しかし 同じ 情報が Figure  2.22 の 中に 示される ように 1 
つの テーブルの 中に 組 込まれる こと がで き た はずです。 

データ 適 従 プロ グ ラミング は そのような テー ブル と 直接 連携す る ための プ 
ログ ラム 設計の テクニックです。 以前 は 私達 は 複素数 演算 コード を それぞれが 
明示的に 型に 従 う 呼び出 し を 行う 手続の 集合 としての 2 つの 表現 パッ ケージと 
接続す る メカニズム を 実装し ました。 ここで は インターフェイス を 命令の 名前 
と 引数 タイプの 組み合わせ を テーブルの 中から 調べ 適用すべき 正しい 手続 を 見 
つける 単一の 手続と して 実装し ます。 そして 次に その 手続 を 引数の 中身に 対し 
て 適用し ます。 これ を 行なえば、 システム に対して 新しい 表現 パッケージの 追 
加す るた めに 既存の 手続に 何の 変更 を 行う 必要 も あり ません。 必要な の は 表に 
新しい 項目 を 追加す る ことです。 

この 計画 を 実装す るた めに、 2 つの 手続 put と get を 命令と 型の テーブル 
を 操作す るた めに 持って いると 仮定し ます。 
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Types 


Polar 

Rectan 

real-part 

real-part-polar 

real - part - r 

~ectangular 

imag-part 

imag - part - polar 

imag-part-r 

~ectangular 

magnitude 

magnitude-polar 

magnitude - r 

~ectangular 

angle 

angle-polar 

angle- rectangular 

Figure  2.22: 複素数 システムの 命令 表 


•  (put  (op)  (type)  (item)) は (item) を テーブルに 揷 入し、 〈op〉 と 〈type〉 
で 索引 付けられる 

•  (get  (op)  (type)) は 〈op〉，  (type) の 項目 を テーブルから 探し 見つかった 
項目 を 返す。 も し 見つからない 場合に は get は false を 返す 

今のところ は put と get が 私達の 言語に 含まれて いる と 仮定し ま しょう。 
Chapter  3  (Section  3.3.3) において これらと 他の テーブル 操作の 命令 を どのよ 
う に 実装す るかに ついて 学びます。 

ここから は デー タ適従 プロ グ ラミン グが 複素数 シ ス テムに おいて どのよう 
に 使用で きる かにつ いて 示します。 直行 形式 表現 を 開発した Ben は 彼が 元 々 行 
つたと おりに コード を 実装し ました。 彼 は 手続の 集合、 つま リは pactoffe (パッ 
ケージ） を 定義し、 システムに どのように 直行 形式の 数値 を 取り扱う か を 教え 
る テーブルに 項 目 を 追加す る ことで、 パッケージ を システムの 残 り に 対 して 接 
続し ます。 これ は 以下の 手続 を 呼び出す ことにより 達成され ます。 

(define    、 inst a 上 1 一 re  ctangular 一 package ) 
；; mxernal  procedures 
(define    (rea 丄- part  z)    ( car  z) ) 
(define    ( imag-part  z)    ( cdr  z) ) 
(define    (make -： from - real - imag 
(define    (magnitude  z) 

( sqrt    (+    (square  (real-part 
( square    ^ imag-part 
(define    ( angle  z) 

( at an   ( imag-part  z)    (real-part  z 


y )    ( cons  x  y ) ) 


:)) 
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(define    (make-f rom-mag-ang  r  a) 

( cons    (*  r   ( cos   a) )    (*  r   (sin  a) ) ) ) 

；; interface  to  the  rest  of  the  system 

(define    (tag  x)    ( attach-tag    ' rectangular  x ) ) 
(put    1  real-part    1  (rectangular)    real-part ) 
(put    1 imag-part    1 (rectangular)    imag-part ) 
(put    r  magnitude    1  (rectangular)   magnitude ) 
(put    1  angle    1  (re  ctangular )    angle ) 
(put    'make - from - real - imag    '  rectangular 

( lambda   (x  y)    (tag   (make -： from - real - imag  x  y ) ) ) ) 
(put    1 make-f rom-mag-ang    1  rectangular 

( lambda   (r  a)    (tag   (make-f rom-mag-ang  r  a)))) 
1  done ) 

この 中の 内部 手続 は Ben が Section  2.4.1 にて 分離 を 行った 時に 彼が 書いた もの 
と 同じ 手続で ある ことに 注意して 下さい。 これら を システムの 残りに 接続す る 
ために は 全く 変更が 必要が ありません。 さらに、 これらの 手続の 定義 は インス 
トール を 行う 手続の 内部で あるた め、 Ben は 直行 形式 パッケージの 外部の 他の 
手続に 対して 名前の 衝突が 起こる こと を 全く 心配す る 必要が あり ません。 これ 
らを システムの 残り に 対し 接続す るた めに、 Ben は 彼の real-part 手続 を 命令 
名 real-part と 型 （rectangular) の 元に ィ ンス トールし ました。 そして 他の 
セレクタに 対しても 同様に 行いました。 46 この インタ一 フェイス はまた 外部 シ 
ス テムに より 利用され る コンストラクタ も 定義し ます。 47 これら は Ben の 内部 
定義 コンストラクタと 全く 同じです。 ただし タグ を 付加す る ことが 異なり ます。 
Alyassa の 極 形式 パッケージ も 同様です。 

dei ine    (mstall-polar -pack  age; 

；; internal  procedures 

( dei ine    (magnitude  z)    ( car  z) ) 

( dei  ine    (  angle  z)    (  cdr  z) ) 

( dei ine    (make-f rom-mag-ang  r  a)    ( cons  r  a) ) 

46 私達 は シンボル rectangular ではなく リスト （rectangular) を 用いました。 全てが 
同じ 型で はない 複数の 引数 を 伴な う 命令の 可能性 を 考慮す るた めです。 

47 コンス トラクタ がその 下に インスト一 ル される 型 は リストで ある 必要が あり ません。 
なぜなら コンス トラクタ は 常に ある 特定の 型の オブジェ ク トを 作成す るた めに 使用され 
るた めです。 
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y))) 


:)) 


(define    (real-part  z ) 

(*    (magnitude  z)    (cos    ( angle 
(define    ( imag-part  z ) 

(*    (magnitude  z)    (sin   ( angle 
(define    (make - from - real - imag  x  y ) 
( cons    ( sqrt    (+   ( square  x)    ( square 
( at  an  y  x) ) ) 
；; interface  to  the  rest  of  the  system 
( def  ine    (tag  x)    ( attach - tag    '  polar 
(put    1  real-part    1  (polar)    real-part ) 
(put    1 imag-part    1 (polar)    imag-part ) 
1  magnitude    '  (polar )   magnitude ) 
1  angle    1  (polar )    angle ) 
1 make-from-real-imag    1  polar 
( lambda   (x  y)    (tag   (make -: from 
1 make-f r om-mag-ang    '  polar 
( lambda   (r  a)    (tag   (make-f r om-mag-ang  r  a 
1  done ) 


(put 
(put 
(put 

(put 


-real - imag  x  y ) ) ) ) 


Ben と Alyssa の 両者が 今でも 御 互いに 同じ 名前 （例えば real- part) にて 定義 
された 彼等の 元々 の 手続 を 使用して ようと も、 これらの 定義 は 今では 異なる 手 
続の 内部 定義 （Section  1.1. 8 参照） です。 従って 名前の 衝突 は 起こ り ません。 

複素数 演算の セレクタ は apply- generic と 呼ばれる 普遍的な "operation" 
手続 を 用いて テーブルに アクセス します。 これ はジヱ ネリ ックな 命令 を 引数に 
対して 適用し ます。 apply- generic は 命令の 名前と 引数の 型の 下に 表 を 調べ 結 
果 としての 手続が 存在 すれば 適用し ます。 48 


、deiine    (apulv- generic   op    .    args ) 


48 

apply-generic は Exercise  2.20 で 説明した ドッ ト 付き 末尾 記法 を 用います。 異なる ジ 
ェ ネリ ック 命令 は 異なる 数の 引数 を 取る 場合が 考えられる ためです。 apply-generic で 
は op がその 値と して apply- generic の 第一 引数 を 持ち、 args は その 値と して 残 り の 引 
数の リスト を 持ちます。 

applv-generic はまた プリミティブな 手続 apply を 用います。 これ は 2 つの 引数、 手 
続と リスト を 取ります。 apply は リストの 要素 を 引数と して 手続 を 適用し ます。 例えば、 

(apply  +   (list   12  3  4)) 

は 10 を 返します。 
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(let    ( (type-tags    (map  type-tag  args ) ) ) 
(let    ( (proc    (get   op  type-tags ) ) ) 
( if  proc 

( apply  proc    (map   contents   args ) ) 
(error 

"No  method  for  these   types  :    APPLY  -  GENERIC  ■' 
(list  op  type-tags )))))) 

apply-generic を 用いる ことで、 私達の ジヱ ネリ ックな セレクタ を 以下の よう 
に 定義す る ことができます。 

dei ine  (real-part  z)    (.apply-generic    1  real-part  z) ) 

( dei ine  ( imag-part  z)    (apply-generic    1 imag-part  z) ) 

( dei ine  (magnitude  z)    (apply-generic    1  magnitude  z) ) 

( dei ine  ( angle  z)    ( apply-generic    1  angle  z ) ) 

もし 新しい 表現が システムに 追加され たと しても これらが 全く 変更され ない こ 
とに 注意して 下さい。 

また テーブルから コンス トラクタ を 抽出す る こと もで きます。 コンスト ラ 
クタ はパッ ケージの 外部 プロ グラ ム により 使用で き、 実数 部と 虚数 部か大 き さ 

と 角度から 複素数 を 作ります。 Section  2.4.2 にある とおり、 実数 部と 虚数 部が 
ある 場合に は 直交 形式で 構築 し、 大きさと 角度が ある 場合に は 極 形式 に て 構築 
します。 

dei  ine    (make-from-real-imag  x  y ) 
"get    'make-from-real-imag    1  rectangular)   x  y ) ) 
( dei  me    (m  ake- from -mag -ang  r  a) 

"get    'make-from-mag-ang    1  polar)   r  a) ) 


Exercise  2.73:  Section  2.3.2 は 記号 微分 を 行う プログラム について 
説明した。 

dei  ine    (deriv  exp  var ) 
( cond   ( (number?   exp)  0) 
( (variable?  exp) 

(if    (same-variable?   exp  var) 1 0) ) 
((sum?  exp) 
(make-sum    (deriv    ( addend  exp )  var) 

(deriv    ( augend  exp )   var) ) ) 
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( (product?  exp) 
(make-sum  (make-product 

(multiplier  exp) 

(deriv   (multiplicand  exp )   var ) ) 
(make-product 
(deriv   (multiplier   exp )   var ) 
(multiplicand  e xp ) ) ) ) 
(more  rules  can  be  added  here) 
(else    (error   "unknown  expression  type : 
DERIV"  exp)))) 

この プログラム を 微分す る 式の タイプに より 呼 出 を 行って いる と 
解釈す る こと もで きる。 この シチュエーション では データの" タイ 
プ タグ" が 代数 演算子の 記号 （例えば +) であり 実行され る 命令 は 
deriv である。 この プログラム を 基本の 微分 手続 を 書き直す こ と 
で デ一 タ 適 従 プ ログ ラミ ン ダス タイルに 変換す る こと がで き る 。 

(, def ine    (deriv  exp  var) 
( cond   ( (number?   exp)  0) 
( (variable?  exp) 

(if    (same-variable?   exp  var) 1 0) ) 
(else    ((get    1  deriv   ( operator  exp) ) 
( operands   exp)  var)))) 
(define    ( operator  exp)    (car  exp)) 
(define    ( operands   exp)    ( cdr  exp)) 

a 上で 何が 行われた のか 説明せ よ。 なぜ 手続 number? と variable? 
を デー タ適従 呼 出に 吸収す る こと がで きないの か？ 

b 和と 積の 微分の ための 手続と それら を 上記の プログラムで 使 
用され た テーブルに インス トールす る 補助 コード を 書け。 

c 貴方の 好きな 追加の 微分 ルール、 例えば 指数に 対する 物 
(Exercise  2.56) を 選択し、 この データ 適 従 システムに ィ ンス 
トールせ よ。 

d この 単純な 代数 操作に おいて、 式の 型 は それ を 一緒に 束縛す 
る 代数 演算子で ある。 しかし 手続 を 逆の 向きに 索引 付けし 
deriv の 呼 出 行 を 以下の よう にした 場合、 
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((get    ( operator   exp)    ' der iv )    ( operands   exp)    var ) 

微分 システムへの 対応す る 変更 は 何が 必要 か？ 

Exercise  2.74:  Insatiable  Enterprises,  Inc. (強欲 エンター プフィ ス 
社） は 高い レ ベルで 非 集 中 化された 数多く の 独立 事業所 を 世界中に 
抱える 複合企業で ある。 社の コンピュータ 施設 は 接続 さ れた ばか 
リ である 力 尺 賢い ネッ ト ワーク 接続 計画 を 用いて ネッ ト ワーク 全 
体が どの ユーザに 対しても 1 台の コンピュータ として 現れる。 強 
欲 社の 社長 は 初めて ネットワークの 機能 を 用いて 事業所 ファイル 
から 管理者 情報 を 取得し ようと 試みた が、 全ての 事業所 ファイル 
は Scheme の データ 構造と して 実装され ている のに も 係らず、 使 
用され ている 個々 の データ 構造 は 事業所の 間で 異なって いる こと 
に 狼狽 し た。 事業所 長の 会議が 大急 ぎで 開催 さ れ 既存の 事業所の 
自立 性 を 保ちつつ 本社の 要求 を 満足で きる ファイル 統合の 戦略 を 
探す ことにな つた。 

そのよう な 戦略が デー タ 適 従 戦略 を 用いて どのように 実装で きる 
か 示せ。 例と して 各 事業所の 職員 記録 は 単一の ファイルから 成る 
従業員の 名前 を キーに した レコードの 集合で あると 想定せ よ。 集 
合の 構造 は 事業所 毎に 変わる。 さらに 各 従業員の レコード は それ 
自身が 集合 （事業所 毎で 異なる 構造） であ リ address と salary の 
ような 識別子の 下で 鍵 付けられた 情報 を 含んで いる。 具体的に は 

a 本社の た めに 指定 さ れた 従業員 の レコード を 指定され た 職員 
記録 ファイルから 取得す る get-record 手続 を 実装せ よ。 手 
続 は 任意の 事業所の ファイルに 適用で き な ければ な ら ない。 
個々 の 事業所の フ アイ ルが どの よ う に 構造 化されね ばな ら な 
V  、 か 説明せ よ 。 具体的 に は ど ん な 型の 情報が 提供 さ れ ねばな 
ら ないか 

b 本社の ために 任意の 事業所の 職員 記録 ファイルから 与えられ 
た 職員 記録から 給与 情報 を 返す get-salaiy 手続 を 実装せ よ。 
記録 はこの 操作が 動 くよう どのよう に 構造 化されね ばな ら な 
いか？ 

c 本社の ために find-employee-record 手続 を 実装せ よ。 これ 

は 全ての 事業所の ファイルに 対し 与えられた 従業員の レコー 
ドを 探し、 レコード を 返さねば ならない。 この 手続が 引数と 
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して 従業員の 名前と 全ての 事業所の ファイルの リスト を 与え 
られ ると 仮定せ よ。 

d 強欲 社が 新しい 会社 を 吸収した 時、 どんな 変更が 新しい 職員 
情報 を 中央 システムに 受け入れる ために 必要で ある カリ 

メ ッ セージ パッシング 

データ 適 従 プログラミングの 鍵と なる 考え は プログラム 中の ジェネリック 

な 命令 を Figure  2.22 の 様な 命令と 型の テーブル を 明示的に 処理す る ことで 扱 
う ことです。 Section  2.4.2 で 用いた プロ ダラ ミ ング スタイル 要求され た 型に 基 
く 呼 出 を 各 命令が それ 自身の 呼 出の 世話 を 行 うこと で 組織化 しました。 実際に 
これ は 命令と 型の テーブル を、 テーブルの 行 を 表す 各ジェ ネリ ックな 操作 手続 
を 用いて 行に 分解し ます。 

代替 的 な 実装 戦略 はテー ブル を 列 に 分解し、 データ 型に 基き 呼び出し を 行 
う "知的な 命令" を 用いる 代わりに、 命令 名に 基づき 呼び出し を 行う "知的な 
データ オブジェ ク ト" を 用いて 動かす ものです。 直行 形式の 複素数の 様な デー 
タォ ブジェク トが 入力と して 必要な 命令 名 を 取り 指定され た 命令 を 実行す る 
よ う に 準備 を 行 うこと で 行う こと がで きます。 そのよう な 規律の 下で は make- 
from-real-imag は 以下の よう に 書く ことができます。 

(, del ine    (make - from - real - imag  x  y ) 
(define   (dispatch  op) 

( cond  ( ( eq?  op  1  real-part )  x ) 
( ( eq?  op  ' imag-part )  y ) 
( ( eq?   op    ' magnitude ) 

( sqrt  (+  (square  x)  ( square 
( ( eq?  op  1  angle )  ( at an  y  x ) ) 
(else    ( error   "Unknown  op: 

MAKE - FROM - REAL 

dispatch) 

対応す る apply-generic 手続 はジ エネ リ ックな 命令 を 引数に 適用 します 力 《、 こ 
こで は 単純に 命令の 名前 を データ オブジェ ク トに 与え オブジェ ク トに 仕事 を 行 
わせます。 49 

(, del  ine    (apclv- generic   op  arg)    ( arg  op)) 


49 この 構造の 1 つの 制約 は 一 引数の ジ エネ リ ック 手続の み を 許容す る ことです。 


y)))) 

-IMAG"  op)))) 
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make-from-real-imag によ リ 返される 値 は 手続 一 内部 手続 dispatch ので ある 
こ と に 注意 して 下さい。 こ れが apply-generic が 命令 に 実行 を 要求し た 時に 起 

動され る 手続です。 

この プログラミング スタイル は message  passing(  メッセ一 ジ パッシン グ) と 
呼ばれます。 その 名前 は データ オブジェ ク トが 要求され た 命令の 名前 を "メッ 
セージ" として 受け取った 要素で あると いう イメージから 来て います。 私達 
は 既に メッセージ パッシングの 例 を Section  2.1.3 にて 見て います。 その 時 は 
cons,  car,  cdr が データ オブジェ ク ト 無し、 手続の みで どのように 定義され 得 
るか を 学びました。 ここで はメ ッ セージ パッシング は 数学 上の ト リ ック ではな 
く ジェ ネリ ック 命令 を 用いて システム を 構造 化する のに 便利な テクニック であ 
る こと を 学びます。 こ の 章の 残 り では メッセ 一 ジパ ッ シ ン グ ではな く データ 適 
従 プログラミングの 使用 を 続け、 全般的な 数値 演算 操作に ついて 議論し ます。 
そして それが シミュレーション プログラムの 構造 化に 対して 強力な ツールに 成 
リ 得る こと を 学びます。 

Exercise  2.75: コンス トラクタ make-from-mag-ang  ^メ ッ セーシ 

パッシング スタイル にて 実装せ よ。 この 手続 は 上で 与えられた 
make-from-real-imag と 同様で なければ ならない。 

Exercise  2.76: ジ エネ リ ックな 命令 を 用いた 巨大 システムが 発展す 
るに つれ、 新しい 型の データ オブジェ ク トゃ 命令が 必要と なる か 
も しれない。 3 つの 戦略 ージ エネ リ ック 命令の 明示的 呼 出、 デー 
タ適従 スタイル、 メ ッ セージ パッシン グーの それぞれ に対して 新 
しい 型 や 命令 を 追加す るた めに 必要な システム に対する 変更に つ 
いて 説明せ よ。 どの 構造 化が 新しい 型が 良く 追加され る システム 
に対して 最も 適切で あるか？ どれが 新 しい 命令が 良く 追加され ね 
ばなら ぬ システム に対して 最も 適切で あるか？ 


2.5 ジェネリック 命令 を 持つ システム 

前の節で は データ オブジェ ク トが 2 つ 以上の 方法で 表現され る システム を 
どのように 設計す るかに ついて 学んだ。 鍵と なる 考え は データ 操作 を 指定す る 
コード を いくつかの 表現に 対し ジェ ネリ ックな インターフェイス 手続 を 用いて 
リ ンク する ことでした。 ここで は これと同じ 考え を 異なる 表現 上の ジ エネ リ ッ 
クな 命令の 定義 のみでな く、 異なる 種類の 引数 上の ジェ ネリ ックな 命令 を 定義 
する ために どのように 用いる かにつ いて 学びます。 私達 は 既に いくつかの 数値 
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Programs  that  use  numbers 


add    sub    mul div 

Generic  arithmetic  package 


add-rat  sub-rat 
mul - rat  div- rat 

add - comple 
mul - comple 

< 

sub-complex 
div - complex 

Rational 

Comple 

k  arithmetic 

Ordinary 

arithmetic 

Rectangular 

Polar 

arithmetic 

List  structure  and  primitive  machine  arithmetic 
Figure  2.23: ジ エネ リ ックな 数値 演算 システム 


演算 命令の 異なる パッケージ を 見て きました。 言語 内に 構築され た プリ ミ ティ 
ブ 数値 演算 （+,  -,  *,  /)、  Section  2.1.1 の 分数 演算 (add-rat,  sub-rat,  mul- rat, 
div-rat),  Section  2.4.3 で 実装した 複素数 演算です。 ここで は データ 適 従の テ 
ク ニック を 用いて 私達が これまでに 構築した 全ての 数値 演算 パッケージ を 内蔵 

する 数値 演算の パッケージ を 構築し ます。 

Figure  2.23 は 私達が 構築す る システムの 構造 を 示して います。 抽象化 バリ 
ァに 注目して 下さい。 "数値" を 扱う 第三者の 視点から は そこに あるの は どの 種 
類の 数値が 提供 されても 単一の 手続 add です。 add はジ エネ リ ッ クイン ター フ 
ェ イスの 部分で 別々 の 実数 演算、 分数 演算、 複素数 演算の パッケージに、 数値 
を 使用す る プロ グラ ム から 統一的な アクセス を 可能 にします。 （複素数の 様な） 
任意の 個別 数値 演算 パッケージ は それ 自身が （直行 形式と 極 形式の 様な） 異な 
る 表現の ために 設計され た パッケージ を 結合す る （add-complex の 様な） ジェ 
ネ リックな 手続 を 通して アクセス できます。 さらに、 システムの 構造 は 付加 的 
な ため 個々 の 数値 演算 パ ッ ケージ は 別 々に 設計す る ことが 可能で、 それら を 結 
合して ジ エネ リ ッ ク な 数値 演算 システム を 生成で きます。 
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2.5.1 ジ ェ ネ リ ッ ク な 数値 演算 命令 

ジ エネ リ ッ ク な 数値 演算 命令の 設計 タス ク はジ エネ リ ッ ク な 複素数 命令 を 
設計す るのと 同様です。 例えば、 実数 上での 通常の 加算の プリミティブ +、 分 

数 上の add-rat や 複素数 上の add-complex のよう に 振る舞う ジ ヱ ネ リックな 
加算 手続 add を 持ちたい とします。 add と 他の ジヱネ リックな 数値 演算 命令 
を Section  2.4.3 にて 複素数に 対する ジ エネ リ ックな セレクタ を 実装す るのに 用 
いたのと 同じ 戦略に 従う ことで 実装す る ことが 可能です。 全ての 種類の 数値に 
タイプ タ グを アタッチ する ことで ジ エネ リ ック 手続に その 引数の データタイプ 
に 従って 適切な パッケージ を 呼び出す 理由と します。 

ジ ェ ネ リ ッ ク な 数値 演算 は 以下の よ う に 定義され ます。 


ordinan/ (通常の） 数値 を 扱うた めの パッケージ を インス トールす る ことで 始め 
ます。 これ は 私達の 言語の プリミティブな 数値の ことです。 これらに シンボル 
scheme-mimber で タグ を 付けます。 この パッケージ 内の 数値 演算 命令 は プリ ミ 
ティ ブな 数値 演算 手続です。 （そのため タグの 無い 数値 を 扱うた めに 拡張 手続 
を 定義す る 必要 はあり ません)。 これらの 命令 は それぞれが 2 つの 引数 を 取る 

ため リスト tschenie-imniber  scheme-number) を Hi にし 一し" 3  ブ ノレに 1 ノ スト 

ール されます。 


(define    、 ins t a 丄 1 - scheme - number - package ) 

(define    (tag  x;    、 attach -" tag    ' scheme-number  x ; ) 


(put 

' add    ' ( 

s cheme 

-number 

s cheme -number ) 

( lambda 

(x  y) 

(tag  (+ 

x  y)))) 

(put 

' sub    ' ( 

s cheme 

-number 

s cheme -number ) 

( lambda 

(x  y) 

(tag  (- 

x  y)))) 

(put 

1 mul 1  ( 

s cheme 

-number 

s cheme -number ) 

( lambda 

(x  y) 

(tag  (* 

x  y)))) 

(put 

' div    ' ( 

s cheme 

-number 

s cheme -number ) 

( lambda 

(x  y) 

(tag  (/ 

x  y)))) 

(put 

1  make  1 

scheme 

-number 

(lambda   (x)  (tag 

1  done 

) 

( def  ine 
( def  ine 
( def  ine 
( def  ine 


(add 
( sub 
(mul 
(div 


y) 
y) 
y) 
y) 


( apply - generic 
( apply - generic 
( apply-gener ic 
( apply-gener ic 


add  x  y ) ) 
sub  x  y ) ) 
mul x  y ) ) 
div  x  y ) ) 
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scheme-number パッケージの ユーザ は （タグ 付きの） 普通の 数値 を 手続 を 用い 
て 作成し ます。 


dei ine    (make  -  sen  erne -number  n) 
"get    1  make    1  scheme-number)   n) ) 

さて この ジェネリック 数値 演算 システムの フレームワークが 準備で きたので 
新 し ん 、種類の 数値 も 容易 に 含める ことができます。 ここ に 分数 演算 を 実行す る 

パッケージが あります。 付加 的 ある ことの 利点と して Section  2 . 1 . 1 の 分数 コー 
ドを パッケージ 内の 内部 手続と して 変更 無しに 利用で きる ことに 注目 して 下 
さい。 

dei  ine    ( install -： rat  ion  al  - pack  age  ノ 

；; internal  procedures 


( def  ine 

(numer  x) 

(car 

X 

)) 

( def  ine 

(denom  x) 

( cdr 

X 

)) 

( def  ine 

(make-rat 

n  d) 

(let 

( (g   (gcd  n 

d))) 

(cons    (/  n  g) 

(/  d 

g)))) 

( def  ine 

( add-rat  : 

【 y) 

(make 

-rat    (+  (* 

(numer 

x)    (denom  y ) ) 

(numer 

y)    (denom  x ) ) 

(*    ( denom  j 

::' 

(denom  y ) ) ) ) 

( def  ine 

( sub-rat  : 

【 y) 

(make 

-rat    (-  (* 

(numer 

B 

(numer 

y)    (denom  x ) ) 

(*    ( denom  j 

::' 

(denom  y ) ) ) ) 

( def  ine 

(mul-rat コ 

【 y) 

(make 

-rat    (*    (numer i 

0 

(numer  y ) ) 

(*    ( denom i 

0 

(denom  y ) ) ) ) 

( def  ine 

(div-rat コ 

【 y) 

(make 

-rat    (*    (numer 】 

0 

(denom  y) ) 

(*    ( denom i 

0 

(numer  y ) ) ) ) 

；; interface  to  rest  of  the  system 

(define  (tag  x)  ( attach- tag  1  rat ional x) ) 
(put    ' add    1 (rational  rational ) 

( lambda   (x  y )    (tag   ( add-rat  x  y ) ) ) ) 
(put    1  sub    1  (rational  rational ) 
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( lambda   (x  y )    (tag   ( sub-rat 】 
'mul 1 (rational   rational ) 
( lambda   (x  y)    (tag   (mul-rat 】 
1 div    1 (rational   rational ) 
( lambda   (x  y)    (tag   ( div-rat i 
1  make    1  rational 
( lambda   (n  d)    (tag  (make-rat 
1  done ) 

(define    (make - rational n  d) 
"get    1  make    '  rational ) n  cU  ) 


(put 
(put 
(put 


y)))) 
y)))) 
y)))) 

i d)))) 


複素数 を 扱うた めに 同様の パッケージ を タグ complex を 用いて ィ ンス トール 
できます。 パッケージ を 作る 際に、 直行 形式と 極 形式の パッケージ にて 定義 さ 
tlfz.  make-f  rom-real-imag と make — from — mag  —  ang の 叩 令 を 丁 一 ノ ノレ 力、 りす 由 出 
します。 付加 性が 内部 命令と して 同じ Section  2.4.1 の 手続 add-complex,  sub- 
complex,  mul — complex,  div — comolex を 使用 する しご を RJ 能に し ます。 


dei ine  ( install  -  complex 
；; imported  procedures  from  re' 
( dei  me  (make  -  from  -  real 
((get  'make -： from - real 
( dei  me  (make -: from  -  mag - 
((get  ' make-from-mag- 
；; internal  procedures 
( dei  me  (add-complex  zl 
-from 


package ) 

ctangular  and  polar  packages 
-imag  x  y ) 

-imag  1  rectangular)  x  y ) ) 
ang  r  a) 

ang    ' polar )   r  a) ) 


(make- 


-real- 


lmag 


(define    ( sub-complex  zl 
(make -： from - real - imag 

(define    (mul - complex  zl 
(make-f rom-mag- ang   ( * 

(+ 

(define    (div - complex  zl 
(make-f rom-mag- ang  (/ 
(- 

；; interface  to  rest  of  the  systei 


zl)  (real-part 
zl) imag-part 

zl)  (real-part 
zl) imag-part 


z2) 

(+  (real-part 
(+   ( imag-part 
z2) 

(- (real-part 
(- ( imag-part 
z2) 

(magnitude  zl)    (magnitude   z2) ) 

( angle   zl) ( angle  z2) ) ) ) 

z2) 

(magnitude  zl)  (magnitude  z2) ) 
( angle   zl) ( angle  z2) ) ) ) 


z2)) 
z2)))) 

z2)) 
z2)))) 
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(define    (tag  z)    ( attach - tag    r  complex  z) ) 
(put    1  add    1  ( complex   complex ) 

( lambda   (zl z2 )    (tag    (add - complex  zl z2) ) ) ) 
(put    1  sub    '  ( complex   complex ) 

( lambda   (zl z2 )    (tag   ( sub-complex  zl z2) ) ) ) 
(put    1 mul 1 ( complex   complex ) 

( lambda   (zl z2 )    (tag   (mul - complex  zl z2) ) ) ) 
(put    1 div    1 ( complex   complex ) 

( lambda   (zl z2 )    (tag   (div - complex  zl z2) ) ) ) 
(put    ' make - from - real - imag    1  complex 

( lambda   (x  y)    (tag   (make -： from - real - imag  x  y ) ) ) ) 
(put    1 make-f rom-mag-ang    1  complex 

( lambda   (r  a)    (tag   (make-f rom-mag-ang  r  a)))) 
1  done ) 

複素数 パッケージの 外側の プログラム は 複素数 を 実数 部と 虚数 部からで も 大き 
さと 角度から でも 構築す る ことができます。 元は 直行 形式と 極 形式の パッケ 一 
ジ内 にて 定義 さ れた 内在す る 手続が どのよう に 複素数 パッ ケージに ェクス ポー 
ト されて いる 力 \ そして そこから どのよう にして 外部の 世界へ と エクスポート 
されて いるかに ついて 注意して 下さい。 

(, del ine  (make  —  comp 上 ex — f rom — real — imag  x  y j 

"get  '  make  -  from  -  real  - imag    '  complex  )   x  y  ) ) 

( del ine  ( make -complex-f rom-mag-ang  r  a) 

"get  ' make-f rom-mag-ang    1  complex )   r  a) ) 

ここで 私達が 行った の は 2 つの レベルの タ グ システムです。 典型的 な 複素数、 
直交 形式で 3  +  4i のよう な 物 は Figure  2.24 で 示される よう に 表現され ます。 外 
型の タグ （complex) は 数値 を 複素数 パッケージ へと 導きます。 複素数 パッケ 一 
ジに 入れば、 次の タグ （rectangular) が 数値 を 直行 形式 パッケージ へと 導き ま 
す。 巨大で 複雑な システム では 多くの レベルが 存在す るか もしれ ず、 それぞれ 
は ジェネリックな 命令 を 用いて 次へ と 接続され ます。 データ オブジェ ク トが 
"下方" へ 渡される につれ、 適切な パッケージへ 導く 外側の タグ は （contents を 
適用す る こ と で） 取 リ 去られ、 次の レベルの タ グ （も し 存在 すれば） がさ ら なる 
呼 出の ために 使用され るた め 見える ようになり ます。 

上記の パッケージ では、 add-rat,  add-complex, それに 他の 数値 演算 手続 を 
全く 元々 書かれた 状態で 利用し ました。 しかし、 これらの 定義が 異なる インス 
トール 手続の 内部と なれば 直ぐに、 お 互いから 識別 可能で ある 名前に する 必要 
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complex  rectangular 

4 

Figure  2.24: 直行 形式に よる 3  +  4z の 表現 


は 無くな リ ます。 単純に 両者の パッケージ にて add,  sub,  mul, div と 名付ける 
ことが 可能に なり ます。 

Exercise  2.77:  Louis  Reasoner は z カミ Figure  2. 24 で 示される ォブジ 
ェク ト である 場合に 式 （magnitude  z) を 評価しょう とした。 驚い 
たこと に、 答の 5 の 代わ リ に 彼が 受け取つ たの は apply-generic 
からの エラー メ ッ セージで、 型 （complex) 上に magnitude 命令の 
手段が 存在 しないと 言う。 彼 はこ の 応答 を Alyssa  P.  Hacker に 見 
せた 所、 彼女 は "問題 は 複素数 セ レ クタが complex の 数値に 対 し 
て 定義され ていない、 polar と rectangular の 数値に 対しての み 
行われて いる。 これ を 動かす ためにし なければ ならない こと は以 
下 を complex パッケージに 追加す る こと だ。 " と 述べた。 

(put  1  real-part  'に complex)  rea 丄ー part) 
(put  1 imag-part  1  complex  ) lmag-part ) 
(put  1  magnitude  1  ( complex )  magnitude ) 
(put    1  angle    1  ( complex )    angle ) 

これで なぜ 動く のか 詳細 を 説明せ よ。 例と して 式 （magnitude  z) 
を z 力^ igure  2.24 にて 示される データ オブジェ ク トの 場合に 評 
価す る 時、 呼び出される 全ての 手続 を トレース せよ 具体的に は、 
apply-generic は 何回 起動され るか？ どの 手続が 各 ケースに 対し 
て 呼び出され るか？ 

Exercise  2.78:  scheme-number パッケージの 内部 手続 は 本質的に プ 
リ ミ ティブな 手続 +, -, その他の 呼出し 以上の 物で はない。 言語の 
プリ ミ ティ ブを 直接 使用す る こと はでき ない。 私達の タイプ タグ 
システムが 各 データ オブジェ ク トに 対し 型 付けられ ている こと を 
要件と する ためで ある。 しかし 実際に は 全ての Lisp 実装 は 型 シス 
テム を 持って おり、 内部に て 使用して いる。 symbol? や number? の 
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ような プリ ミ ティ ブな 述語 はデー タ ォ ブジ ェクト が 特定の 型 を 持 

つ 力、 決疋 する。 Section  2.4.2 の type-tag,  contents,  and  attach- 
tag の 定義 を 変更し 私達の ジェネリック システム が Scheme の 内部 
型 システムの 利点 を 得る ようにせ よ。 これ は 言い替えれば、 シス 
テム は 以前と 同じよう に 動作す る 必要が あ る 力 《、 ただし 普通の 数 
値 は その car が シンボル scheme-number である ペアで な く  、 単純 
に Scheme の 数値と して 表現され る ようにせ よ。 

Exercise  2.79:  2 つの 数値の 等値 関係 を テス ト する ジ エネ リ ックな 
等値の 述語 equ? を 定義し、 ジェ ネリ ック 数値 演算 パッケージに ィ 
ン ストール せよ。 この 命令 は 通常の 数値、 分数、 複素数に 対しても 
働く こと。 

Exercise  2.80: 引数が 0 であるか テス ト する ジェ ネリ ックな 述語 
=zero? を 定義し ジェ ネリ ック 数値 演算 パッケージに インス トール 
せよ。 この 命令 は 通常の 数値、 分数、 複素数に 対しても 働く こと。 

2.5.2 異なる 型の データ を 組み合わす 

通常の 数値、 複素数、 分数、 そして 開発す るだろう 任意の 他の 型の 数値 を 
包括す る 統一 数値 演算 システム を どのよう に 定義す るかに ついて 学びました。 
しかし 私達 は 重要な 問題 を 無視して きました。 今 ま で 私達が 定義 し た 命令 は異 
なる データの 型 を 完全に 独立して いると して 扱って きました。 従って 追加す ベ 

き 分かれた パッケージが、 例えば 2 つの 普通の 数値 や 2 つの 複素数が 存在し ま 
す。 私達が まだ 考慮して いない こと は 型の 境界 を 渡る 命令 を 定義す る ことに は 
意義が あると いう 事実です。 例えば 複素数と 実数の 加算です。 私達 はこれ まで 
プログラムの 間に バリア を 築く ために 大きな 努力 をして きました。 それが 分離 
して 開発、 理解され る こと を 可能に する ためでした。 私達 は 型 を 渡る 命令 を あ 
る 程度 注意 深く コントロール された 手段に て 導入した いと 思います。 そうする 
ことで 私達の モ ジ ュ 一 ル 境界 を 重大な 侵害が 起こらな いように それら をサ ポー 
ト する ことができる ように です。 

クロス タイプ （型 を 渡る） 命令 を 扱う 1 つの 方法 は 命令が 有効な 型の 可能 
な 組み合わせ それぞれ に対して 異なる 手続 を 設計す る ことです。 例えば 複素 
数 パッケージ を 拡張し、 それが 複素数と 実数の 加算 を 提供し、 タグ （complex 
scheme-number) を 用いて テーブルに インストールす るよう にします。 50 


50 私達 はまた ほとんど 同一の 手続 を 型 （scheme-number  complex) を 扱うた めに 提供し 
なければ なり ません。 
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；; to  be  included  in  the  complex  package 
(define    (add - complex - to - schemenum  z  x ) 

(make - from - real - imag  (+  (real-part  z)  x)  ( imag-part  z) ) ) 
(put    1  add    1 ( complex   scheme-number ) 

(lambda   (z  x)    (tag   ( add-complex- to-schemenum  z  x) ) ) ) 

この テクニック はう まく 行きます が、 面倒です。 このような システム では 新し 
い 型 を 導入す る コスト は その 型の ための 手続の パッケージ を 構築す る だけで な 
く、 クロス タイプの 命令 を 実装す る 手続の 構築と インストールに 及びます。 こ 
れは 簡単に その 型 自身の 命令 を 定義す るた めに 必要な ものよ り よ り 多くの コー 
ド となる でしよう。 この 手法 はまた 分かれた パッケージ を 付加 的 に 接続す る 能 
力 を 弱めたり、 最低で も 個々 の パッケージの 実装 者が 他の パッケージの 考慮 を 
しなければ ならない 範囲 を 制約す る 能力 をダメ にして しまいます。 例えば、 上 
の 例で は 複素数 と 実数 上の 混合 命令の 扱いが 複素数 パッケージの 責任 となる の 
は 妥当 に 見えます。 しかし 分数 と 複素数の 接続に おいて は 複素数 パッ ケージで 

行われる かもしれ ないし、 分数 パッケージ かもしれ ないし、 これらの 2 つの パ 
ッ ケージから 抽出した 命令 を 用いる 何ら かの 第三者 パッケージ かも しれ ませ 
ん。 パッケージ 間の 区分 上に おける 整合性の ポリシーの 形式 化が、 多くの パッ 
ケージと 多くの クロス タイ プ 命令 を 伴な う システム 設計に おいて 計 リ 知れな く 
なって しまいます。 

型の 強制 

完全に 依存し ない 型 達 上に て 振る舞う 完全に 依存し ない 命令 群が 一般的な 
状況に おいて は 明示的に クロス タイプ 命令 を 実装す る こと は、 面倒 かもしれ ま 
せんが、 人が 望む 最高の 物 かもしれ ません。 幸運な ことに 私達 は 通常、 私達の 
型 システム 内の 潜在的に 存在す るだろう 付加 的な 構造の 利点 を 用いる ことによ 
リょリ 良く 行う ことが 可能です。 時折、 異なる データの 型 は 完全に は 独立して 
おらず、 ある 型の ォ ブジェク トが 他の 型で あるよう に 見られる 場合が 複数 存在 
する でしよう。 この 過程 は coercion (強制） と 呼ばれます。 例えば もし 私達が 算 
術 上、 実数と 複素数 を 合成す るよう 求められた 場合に、 私達 は 実数 を 虚数 部が 
0 の 複素数 だと 見做す ことができます。 これ はこの 問題 を 2 つの 複素数の 合成 
へと 変換し、 複素数 パッケージ により 通常の 方法に て 取り扱う こと が 可能 に な 
リ ます。 

一般的に、 ある 型の オブジェ ク トを 等価な 他の 型の オブジェ ク トに 変換す 
る 強制 手続 を 設計す る ことで この 考え を 実装す る こ と がで きます。 以下 は 典型 
的な 強制 手続です。 これ は 与えられた 普通の 数値 （実数） を 実数 部と ゼロで ある 
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虚数 部 を 持つ 複素数に 変換し ます。 

、deiine    ( s cheme 一 number 一 >comp 丄 ex  n; 

i^make-  comD  lex -from- real- imag    (  content  s  n)    0) ) 

これらの 強制 手続 を 2 つの 型の 名前に より 索引 付けした 特別な 強制 テーブルに 
ィ ンス トールし ます。 

(, put-coercion    '  scheme -number 
' complex 

s cheme - number - > complex) 

(この テーブル を 操作す るた めに 手続 put-coercion と get-coercion が 存在す 
ると 仮定し ます)。 一般に この テーブルの 枠の いくつか は 空になります。 全て 
の 型の 任意の デー タ ォ ブジ ェクト を 全ての 他の 型へ と 強制す る こと は 一般に は 
不可能です。 例えば 任意の 複素数 を 実数に 強制す る こと はでき ません。 そのた 
め 普遍的な complex->scheme-nuniber 手続 は テーブルに 含まれる こ と は あ リ ま 
せん。 

強制 テーブルが 準備 されれば、 Section  2.4.3 の apply-generic 手続 を 変更 
する こと で 統一的な 作法で 強制 を 取り扱う ことができます。 命令 を 適用す るよ 
う 求められた 時、 最初に その 命令が 引数の 型に 対して 定義され ている かどう か 
を 以前と 同様に チェック します。 も しそうで あれば 命令と 型の テーブルで 見つ 
かった 手続 を 呼び出します。 そうでなければ 強制 を 試みます。 単純化の ために、 
2 つの 引数 を 伴う 場合の みに ついて 考える ことにします。 51 強制 テーブル をチ 
エックし、 最初の 型の オブジェ ク トが 2 つ 目の 型に 強制で きる か 確認し ます。 
もしそう であれば、 最初の 引数 を 強制し、 命令の 試行 を 再び 行います。 もし 最 
初の 型の オブジェ ク トが 一般に 2 つ 目の 型に 強制で きない 場合、 逆に 2 つ 目の 
引数 を 1 つ 目の 引数の 型に 強制で きる か 試します。 最後に どちらの 型 も 他方の 
型に 強制で きない 場合、 諦めます。 以下が この 手続です。 

t, def ine   ( applv-generic  op   .    args ) 

( let   ( (type-tags   (map  type-tag  args ) ) ) 
( let   ( (proc   (get  op  type-tags ) ) ) 
(if  proc 

( apply  proc    (map   contents   args ) ) 
(if    (= (length  args)  2) 

( let    ( ( typel    (car  type-tags ) ) 
(type 2    ( cadr  type-tags ) ) 

51 一般化に ついて は Exercise  2.82 を 参照 して 下さい。 
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( al ( car  args ) ) 
( a2   ( cadr  args ) ) ) 
( let    ( (tl->t2   (get-coercion  type 1 type2 ) ) 
(t2->t 1 (get-coercion  type2  typel ) ) ) 
(cond  (tl->t2 

(apply - generic  op   (tl->t2  al ) a2 ) ) 
(t2->tl 

(apply - generic  op  al ( t2->t 1 a2 ) ) ) 
(else   ( error  " No  method  for  these  types " 
(list  op  type-tags)));j; 
( error  " No  method  for  these  types " 
(list  op  type-tags ))))))) 

こ の 強制 スキーム は 上で 概説され た 様に 明示的な クロス タイ プ 命令の 定義 手法 
上に 多くの 利点 を 持ちます。 私達 は 依然、 型に 関係す る 強制 手続 を 書かねば な 
りません が （n 個の 型の システムに 対し 場合により n2 の 手続)、 全ての 型の 集 
合と 各ジヱ ネリ ック 命令に 対し 異なる 手続 を 書く のでな く、 型の ペア 1 組に つ 
き 1 つの 手続 を 書く だけで 済みます。 52 ここで 私達が 信頼して いるもの は タイ 
プ 間の 適切な 変換 は 型 それ 自身の みに 依存し、 適用され る 命令に は 依存し ない 
という 事実です。 

一方で、 私達の 強制 スキームが 十分に 汎用で はない アプリ ケーシ ヨンが 存 
在す るか も しれません。 たとえ 合成され るォ ブジェク トの 両方と もが 他方に 変 
換 できない としても 両者 を 第三の 型に 変換す る ことで 命令 を 実行す る ことが 
可能になる かもしれ ません。 そのような 複雑さに 対処す るた め、 そして それで 
も プログラムの モジュール 方式 を 維持す るた めに、 通常 はよ リー 層 タイプ 間の 
関係の 構造の 利点 を 得る システム を 構築す る ことが、 次で 議論す るよう に 必要 
です。 

型の 階層 

上で 展開され た 強制 スキーム は 型の ペアの 間の 自然な 関係の 存在に 当てに 
していました。 より "一般的な" 構造が、 異なる 型のお 互いへの 関係の 仕方に は 
良く 存在し ます。 例えば、 私達が 整数、 分数、 実数、 複素数 を 扱う 一般的な 数 


52 もし 私達が 賢いならば 普通 は n2 よりも 少ない 強制 手続で 済みます。 例えば もし 型 1 
から 型 2 への 変換 方法と 型 2 から 型 3 への 変換 方法 を 知っている 場合、 この 知識 を 用い 
て 型 1 から 型 3 へ 変換す る ことができます。 これ は システムに 新しい 型 を 追加す る 時に 
明示的に 提供せ ねばならない 強制 手続の 数 を 劇的に 減らします。 もし システムに 必要な 
だけの 洗練 を 組み入れた いのなら、 システムに タイプ 間の "グラフ" を 検索 させて 自動的 
に 明示的に 提供され た 物から 推論 可能な 強制 手続 を 生成させる ことが 可能です。 
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real 
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integer 


Figure  2.25: 型の 塔 


値 演算 システム を 構築して いると 仮定し ます。 そのような システム において は 
整数 を 特別な 種類の 分数 と して 見做す こと はとても 自然です。 分数 は 同様に 特 
別な 種類の 実数で あり、 実数 は 同様に 特別な 種類の 複素数で あります。 私達が 
実際に 手に している 物 はん ierarc/iy  o/fypes (型の 階層） 呼ばれる もので、 その 中 
では 例えば 整数 は 分数の SMMj/pe (サブ タイプ） です （すなわち 分数に 適用で きる 
任意の 命令 は 自動的に 整数に 適用で きます)。 逆に 分数 は 整数の mipert 雷 《ス一 
パ 一タイプ、 親の 型） と 呼びます。 今 手に した 階層 はとても 単純な 種類で、 各 
型 はたか だか 1 つの スーパー タイプ を 持ち、 たかだか 1 つの サブ タイプ を 持ち 
ます。 そのような 構造 は tower (タワー、 塔） と 呼ばれ Figure  2.25 で 示されます。 

もし タワー 構造 を 持つ 場合、 階層に 新しい 型 を 追加す る 問題 を 著しく 単純 
化で きます。 新しい 型が どのように その上の スーパー タイプの 隣に 組 込まれる 
か、 そして どのように その 型が その 下の 型に 対して スーパー タイプで あるか を 
指定す る だけです。 例えば もし 複素数に 対して 整数 を 追加したい 場合、 明示的 
に 特別な 強制 手続 integer-complex を 定義す る 必要 はあり ません。 その 代わ 
リ に 整数が どのよう に 分数に 変換で きる 力 \ 分数が どのよう に 実数に 変換で き 
る 力 \ 実数が どのように 複素数に 変換で きる か を 定義し ます。 そうしたら シス 
テムに 整数 を 複素数に 変換す る こと を これらの ス テツ プを 通して 変換す る こ と 
を 許可し、 次に 2 つの 複素数 を 加算し ます。 

apply-generic 手続 を 以下の よう に 再設 計す る こと もで きます。 各 型に 対 
して raise 手続 を 与える 必要が あり ます。 これ は ある 型の オブジェ ク ト をタヮ 
一にお いて 1 レベル 上げます。 そうすれば システムが 異なる 型の オブジェ ク ト 
上に て 操作す る 必要が ある 時、 全ての オブジェ ク トが タワー 内に て 同じ レベル 
になる ま で 連続 して 上げる こと がで きます （Exercise  2.83 と Exercise  2.84 がそ 
のよう な 戦略の 実装の 詳細に ついて 考察して います)。 
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タワーの 別の 利点に は 全ての 型が スーパー タイプ 上に 定義され た 全ての 命 
令 を "継承" する 概念 を 簡単に 実装で きる ことが 上げられます。 例えば もし 整 
数の 実数 部 を 求める ための 特別な 手続 を 提供し ない 場合、 それ にもかかわらず 

整数 は 複素数の サ ブ タイプで あると いう 事実のお か げで、 整数の ための real- 
part  が 定義され る  ことが 期待で  きます。  タワーで は apply-generic を 変更す 
ると いう 統一的な 方法で こ の 様な ことが 起こる よう 準備す る こ と が 可能です。 
もし 必要な 命令が 与 えられた オブジェクトの 型の ために 直接 定義 されて いない 
場合、 オブジェクト を その スーパー タイプに 上げる ことで 再 試行で きます。 従 
つて タワー を 這い 上がりながら 望ま れた 命令が 実行可能 になる まで 引数 を 変換 
す る か、 頂上まで 迪リ ついて そこ で 諦め る こと がで きます。 

別のより 一般的な 階層に 比べた 場合、 もう 1 つ タワーの 利点 は データ ォブ 
ジェク ト をより 簡単な 表現へ" 下げる" 簡単な 方法 を 提供す る ことです。 例え 
ば 2  +  3i を 4  —  3i に 足し た 場合、 その 答 は 複素数 6  +  Oi よりも 整数 6 で 得る ほ 
うがよ リ 良い と言えるでしょう。 Exercise  2.85 は そのような レベル を 下げる 命 
令の 実装に ついて 議論し ます。 （この 仕掛けに は 6  + Oi のよう な 階層の レベル 
を 下げられる オブジェ ク トを 6 +  2i のよう な 下げられない オブジェ ク ト から 見 
分 け る 一般的な 方法が 必要です)。 

階層の 不十分 さ 

もし システムの データの 型が 自然に タワーに 配置で きる 場合、 ここまで 見 
てきた 通りに、 異なる 型 上の ジェ ネリ ック 命令の 取扱の 問題 を 著しく 単純化で 
きます。 残念な ことに、 これ は 普通の 場合ではありません。 Figure  2.26 は 雑多 
な 型のより 複雑な 配置 を 図示して います。 この 図 は 幾何学 的 図形の 異な る 型の 
間の 関係 を 見せて います。 一般的に 1 つの 型が 複数の サブ タ イブ を 持つ こと が 
わかります。 例えば 三角形と 四角形 は 共に 多角形の サブ タイプです。 加えて あ 
る 型 は 複数の スーパー タイプ を 持つ ことがあり 得ます。 例えば 二等 辺 直角 三角 
形 は 二等辺三角形、 または 直角三角形と 見做す ことができます。 この 複数 スー 
パー タイプ 問題 は 特に 困難で、 階層 内に おいて 型 を "上げる" 単一の 方法が 存 
在し ません。 オブジェ ク トに 命令 を 適用す るた め "正しい" スーパー タイプ を 
求める こと は apply-generic の 様な 手続に 不可欠な 型ネッ ト ワーク 全体 を 通 
しての 多大な 検索 を 巻き 起す 可能性が あり ます。 一般的に ある 型に 対して 複数 
の サブ タイプが 存在す るので 値に 対し 型 階層 を "下げる" 強制に も 同様の 問題 
が 存在 します。 巨大 シス テ ムの 設計に おける モ ジ ユール 化 方式 を それで も 維持 
しながら 多く の 数の 相互 に 関係す る 型の 取 リ扱 うこと はとても 難しく、 現在の 
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polygon 


triangle  right  triangle  SC^ 

Figure  2.26: 幾何学 的 図形の 型の 間の 関係 


多くの 研究領域です。 53 

Exercise  2.8丄： Louis  Reasoner は accly-generic 力 >51 数に 対し そ 

れらが 既に 同じ 型であって もお 互いの 型に 強制 を 試行す る ことに 
気付いた。 そのため 彼 は 強制 テーブルに 各 型の 引数 を それら 自身 

53 第一 版で も 存在した この 文 は 12 年 前と 同じく 今 も 変わり ません。 実用的で 汎用 的な 
異なる 型の 要素 間の 関係の 表現す る フレームワーク （哲学者が" オン トロ ジー" (存在論) 
と 呼ぶ もの） を 開発す る こと は 不可能に 見える ほど 難しい ことです。 10 年 前に 存在した 
混乱と 現在に 存在す る 混乱との 間の 違い は、 種々 の 不適切な 存在論 上の 理論が、 相応し 
て 不適切な プログラミング 言語に 過剰に 組 込まれて いる ことです。 例えば オブジェ ク 卜 
指向 言語の 複雑 性の 多く は 一 そして 現在の オブジェ ク 卜 指向 言語 間の 微妙で 混乱させる 
違い は 一 相互に 関係す る 型 上の ジェ ネリ ック 命令の 扱い を 中心とします。 Chapter  3 で 
の 私達 自身に よる 計算 オブジェ ク トの 議論 は これらの 問題 を 完全に 避けます。 オブジェ 
ク ト 指向 言語に 親しみの ある 読者 は Chapter  3 において ローカルの 状態に ついて 多くの 
触れるべき ことが 存在す ると 気付く でしよう。 しかし 私達 は" クラス" や" 継承" につい 
て さえ 述べる こと はしません。 実際に 私達 は これらの 問題が 知識表現 上の 成果の 利用と 
自動的な 推論 無しに コンピュータ 言語 設計の みで 適切に 解決され る こと は 無い と 疑って 
います。 
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の 型に coerce (強制） する ための 手続 を 追加す る 必要が あるので は 
ないかと "reason" (推論） した。 

dei ine    (  s  cheme -numb er->scneme -number  n)  n) 
( dei ine    ( complex-> complex  z)  z) 
(put-coercion    1 s  cheme -number 
1 s  cheme -number 

s cheme -numb er-> scheme -number ) 
(put-coercion    1  complex    1  complex   complex- > complex ) 

a  Louis の 強制 手続が ィ ンス トール される と apply- generic が 
命令に 対する 2 つの 引数の 型が scheme-number、 または 2 つ 
の 引数の 型が complex であ り それらの 型に 対する 命令が テ一 
ブル に 存在 し な レ 、場合 何が 起 こる だろう 力 ^例え ば ジ ェ ネ リ 
ッ ク な 指数関数 命令 を 定義 したと しょう。 

(define    (,  exp  x  y リ 、 apply  -  generic    '  exp  x  y ; ) 

そして Scheme- number パッケージの 指数関数 に対する 手続 
を 追加した とする。 ただし 他の 型に 関して は 全て 行わない。 

；; following  added  to  Scheme- number  package 

(put    1 exp    1 (scheme-number   scheme -number ) 

(lambda   (x  y )    (tag   ( expt  x  y ) ) ) ) 

； using  primitive  expt 

2 つの 複素数 引数に より exp を 呼び出した 場合、 何が 起こる 

だろう か？ 

b 同じ 型の 引数に 伴な う 強制に 関して 何 かが 行われる べき かに 

ついて Louis は 正しいだろう 力、？ それとも apply-generic は 

そのままで 正しく 動作す るだろう 力、？ 

c  apply-generic を 変更し 2 つの 引数が 同じ 型で ある 場合に 強 
制 を 試行し ないよう にせよ。 

Exercise  2.82:  apply-generic を 複数 引数の 全体 的な 場合に 強制 を 

扱わせる ような 一般化 を 行わせる に は どのよう に 行う か を 示せ。 1 
つの 戦略と して 全ての 引数 を 最初の 引数の 型に 強制す るよう 試行 
し、 次に 2 つ 目、 以降 繰り返しが 上げられる。 この 戦略 （と 上で 与 

211 


えられた 2 引数 版が 同様に） 全体に は 不十分で ある 例 を 示せ。 （ヒ 
ント ： テーブルに いくつか 適切な 型が 混ざった 命令が 存在し、 そ 
れが 試行され ない 場合に ついて 考えよ。 ） 

Exercise  2.83:  Figure  2.25 で 示される 型の タワー を 取り扱う ジェ 
ネ リックな 数値 演算 システムの 設計 を 行って いると する。 整数、 分 
数、 実数、 複素数に 対応す る。 各 型 （複素数 を 除く） に対して その 
型の オブジェ ク トを タワー 内に て 1 レベル 上げる 手続 を 設計せ よ。 
(複素数 を 除く） 各 型に 対し 動作す る ジェネリックな raise 命令 を 
どのように インストール する か 示せ。 

Exercise  2.84:  Exercise  2.83©  raise 命令 ど 用 レヽて apply—generic 

手続 を 変更し、 複数の 引数が 一連の "上げる" 動作 を 行う ことによ 
リ この 節で 語られた 様に 同じ 型 を 持つ よう にせよ。 2 つの 型の ど 
ちらが タワー 内に てより 高い レベルで あるか テス ト する 手段 を 開 
発する 必要が ある。 これ を 残りの システムと" 互換性" を 保ち、 タ 
ヮ 一に 新しい レベル を 追加す る 場合に も 問題が 無い ような 手段で 
行え。 

Exercise  2.85: この 節で は 可能な 限リ タワー 内の 型 レベル を 下げる 

ことにより データ オブジェ ク トの" 単純化" を 行う 手段に ついて 説 
明した。 Exercise  2.83 に 記述され た タワーに 対し これ を 達成す る 
手続 drop を 設計せ よ。 いくつかの 一般的な 方法の 中から 決定す る 
鍵 は、 オブジェ ク トを 下げる ことができる かどう かで ある。 例えば 
複素数 1.5  +  は！ •eal (実数） である 限り 下げられ、 複素数 1  +  Oi 
は integer (整数） である 限り 下 げる こ と がで き、 複素数 2  +  3i は 
下げる ことが 絶対にで きない。 以下に、 ある オブジェクトが 下げ 
る ことができ るか 決定す る 計画 を 示す。 オブジェ ク トを タワー 内 
にて "押し下げる" ジェ ネリ ックな 命令 project (射影） を 定義す る 
ことから 始める。 例え ば 複素数の 射影 は 虚数 部 を 捨てる ことにな 
る。 すると 数値 は project した 結果 を 元の 型に！ ■aise (上げ） た 時 
に 開始 した 時点と 同じ 値 に なれば drop (落 とす） こと がで きる こと 
になる。 可能な 場合に オブジェ ク トを 落とす 手続 drop を 書く こと 
で、 この 考え を どのように 実装す るか 詳細に 示せ。 色々 な 射影 命令 
を 設計し、 ジ エネ リ ックな 命令と して project を システム 内に ィ 
ン ストール する 必要が ある。 54 また Exercise  2.79 で 説明した 等値 

54 実数 は 引数に 最も 近い 整数 を 返す プリ ミ ティ ブ round を 用いて 整数に 射影す る こと 
がで きる。 
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関係の ジェ ネリ ックな 述語 を 利用す る 必要 も ある。 最後に drop を 
用いて Exercise  2. 84 の apply-generic を 書き直し 解答 を "単純化" 
する。 

Exercise  2.86: 実数 部、 虚数 部、 大きさ、 角度が 通常の 数値、 分数、 

または システムに 追加した くなる かも しれない 数の どれ か を 用い 
る ことができる 複素数 を 扱える ようにした いとする。 これ を 達成 
する ために 必要な システム に対する 変更 を 説明し、 実装せ よ。 普 
通の 数 と 分数に 対 して ジヱ ネ リ ッ ク な sine や cosine のよう な 命 
令 を 定義す る 必要が 出て くるであろう。 


2.5.3 例： 記号 代数 

記号 代数 表現の 操作 は 巨大な スケールの システムの 設計に おいて 起こり 得 
る 最も 困難な 問題の 多く を 説明す る 複雑な 処理です。 代数 表現 は 一般的に 階層 
構造で あると 見る ことができ、 演算子の 木が オペランドに 適用され ます。 代数 
表現 を 定数と 変数の ような プリ ミ ティブな オブジェ ク トの 集合から 始めて、 こ 
れらを 加算 や 乗算の よう な 代数 演算子 を 用いて 接続す る ことで 構築す る ことが 
できます。 他の 言語と 同様に、 複合 オブジェクトに 簡単な 用語で 参照す る こと 
を 可能に する ための 抽象化 を 形式 化します。 典型的な 記号 代数に おける 抽象化 
は 線形 結合、 多項式、 有理関数、 三角関数の ような 考えです。 これら を 式の 処 
理を 方向 付けす るのに よく 便利 である 複合 "型" と 見做す こ と がで きます。 例 
えば 私達 は 以下の 式 を 

x  sini  v  + 丄 I  +  a;  cos  2w  +  cosi  i/1" — 2w  I 

係数 を 伴な う a; の 多項式と 係数が 整数で ある 2/ の 三角関数 として 記述す る こと 
がで きます。 

私達 は 完全な 代数 操作 システム を ここで 開発し ようと はしません。 そのよ 

うな システム は 非常 に 複雑な プロ グラ ム であり、 m 、代数学の 知識 と 洗練され 
た ァ ル ゴ リズム を 具体化す る 必要が あ リ ま す。 私達が 行 う の は 代数 操作の 単純 
だが 重要な 部分に ついて 考える こと、 つま リ 多項式の 演算です。 そのような シ 
ス テムの 設計者が 直面す る 決定すべき こと や、 この 試みの まとめ を 手助けす る 
ために 抽象 データ ゃジ エネ リ ッ ク な 命令 を どのよう にして 適用す るかの よう な 
事柄に ついて 説明し ます。 
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多項式の 計算 

多項式 上の 数値 演算 を 実行す る システムの 設計に おける 最初の タスク は 
多項式と は 何 か を 決定す る ことです。 多項式 は 通常い く つかの 変数 （多項式 

の mdrferroinaies (不定 元)） に 関連して 定義され ます。 簡単に する ために 多項式 
はた だ 1 つの 不定 元 [univariate  polynomials (—変 数 多項式)) に 制約し ます。 55 
多項式と は 項の 和で あり、 各項 は 係数、 不定 元の 累乗 数、 または 係数と 不定 元 
の 累乗 数の 積で あると 定義し ます。 係数 は 多項式の 不定 元に 依存し ない 代数 表 
現で あると 定義し ます。 例えば、 

5x2  +  3x  +  7 

は 簡単な 2； の 多項式で あり、 

(y2  +  l)x3  +  (2y)x  +  I 

は 係数が j/ の 多項式で ある x の 多項式です。 

既に いくつかの 困難な 問題 を 回避して います。 これらの 多項式の 最初の 物 
は 多項式 5j/2+3j/  +  7 と 同じ かそれ とも 異なる でしよう 力、？ 妥当な 答 は "多 項 
式 を 純粋に 数学の 関数で あると 考えれば 答 は YES です。 しかし もし 多項式 を 
文法 上の 形式で あると 考えれば 答 は NO です" となる でしよう。 2 つ 目の 多 項 
式 は 代数学 的に 係数が ェ の 多項式で ある y の 多項式に 等価です。 私達の シス テ 
ム はこれ を 認識す るべき でしよう 力、？ さらに 他に も 多項式 を 表現す る 方法 は存 
在し ます 一例えば 因数の 積と してや （1 変数 多項式に 対して は） 累乗根の 集合 
として、 また 指定した 点の 集合に おける 多項式の 値の 列挙と して。 56 これらの 
問題 を 私達の 数値 演算 操作 システム において、 根底に ある 数学 上の 意味で な く  、 
"多項式" が 特定の 文法 形式で ある こ と を 決定す る ことで うまく 行う こと がで 
きます。 

さ て、 多項式 上で 数値 演算 を 行なう ことにつ いて どのように 進める か 考え 
ねばな り ません。 この 簡単な システム では 加算と 乗算に ついての みし か 考え ま 

55 —  方で 係数 は 別の 変数に て それ 自身が 多項式で ある こと を 許可し ます。 これにより 
本質的に 完全に 多 変量 システムと 同じ 表現力 を 得 ますが、 強制 において この 先で 記述 さ 
れる 問題が 発生し ます。 

561 変数 多項式に 対して は 与えられた 点の 集合に おける 多項式の 値 を 与える こと は 特に 
良い 表現に 成り 得ます。 これ は 多項式 数値 演算 を とても 簡単に する ことができます。 例 
と して この 方法で 表現され た 2 つの 多項式の 和 を 求める に は 相対す る 点の 多項式の 当た 
い を 足す だけで 済みます。 よ リ 親しみ 易い 表現に 戻す に は n+ 1 個の 点に おける 多項式 
の 値 を 与えられた 場合に n 次の 多項式の 係数 を 取り戻す ラグランジュ 補完 公式 を 用いる 
ことができます。 
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せん。 さらに 接続され る 2 つの 多項式 は 同じ 不定 元 を 持たなければ ならない と 
します。 

私達の システムの 設計 は データ 抽象化に て 馴染の ある 規律に 従う ことで 取 
リ 組みます。 多項式 を po ^/と 呼ぶ 新しい データ 構造 を 用いて 表現し ます。 poly 
は 変数 と 項の 係数に よ リ 構成 されます。 poly 力、 ら それら の 部分 を 抽出す るセレ 
クタ variable と term-list と 与えられた 変数と 項の リス ト から poly を 組み 
上げる コンストラクタ make-poly が 既に あると 仮定し ます。 変数 はた だの シン 
ボルで あ リ Section  2.3.2 の same-variable? 手続 を 用いて 変数の 比較が 可能で 
す。 以下の 手続 は poly の 加算と 乗算 を 定義し ます。 

、 def ine    ( add - poly  pi p2; 

v.  if    (same-variable?    (variable  pi) ( variable  p2 ) ) 
(make-poly    (variable  pi) 

( add- terms    (term - list  pi) 

(term-list  p2) ) ) 
(error   "Polys  not   in   same  var :    ADD-POLY " 
(list  pi  p2)))) 

( def  ine    (mul-poly  pi p2) 

、if    (same-variable?    (variable  pi) ( variable  p2 ) ) 
(make-poly    (variable  pi) 

(mul-terms    (term - list  pi ) 

(term-list  p2) ) ) 
(error   "Polys  not   in   same  var :    MUL-POLY " 
(list  pi  p2)))) 

多項式 を 私達の 数値 演算 システムに 組 込む ために は それら を タイプ タグと 共に 
提供す る 必要が あります。 タグ polynomial を 用いる ことにし、 タグ 付き 多 項 
式 上の 適切な 命令 を 命令 テ一 ブルに ィ ンス トールし ます。 Section  2.5.1 と 同様 
に、 多項式 パッケージ に対する インスト一 ル 手続に 私達の 全ての コ一 ドを 組み 
込んで しまう ことにします。 

dei ine    (install  - polynomial  - pack  age  ノ 

；; 内部 手続 
；; poly の 表現 

、deiine    、make - po 丄 y  var laole   term-list ) 

( cons   variable   term-list ) ) 
( dei ine    (variable  p)    (car  p) ) 
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(define    (term-list  p)    ( cdr  p) ) 

(procedures  same-variable?  and  variable?  from  section  2.3.2) 


；; 項と 項の リ ス トの 表現 

(j)roc&dv/T6s  adjoin-term  .  .  .  coefj  from  text  be  low) 

(define    (add - poly  pi p2) ...) 
{add-poly で 使用され る 手続〉 
(define    (mul-poly  pi p2) ...) 
く/ -p o れ で 使用され る 手続〉 

；; システムの 残りへの インタ一 フェイス 

、deiine    、tag  p)    ( attach- tag    'polynomial p) ) 

(put    ' add    1 (polynomial  polynomial ) 

(lambda   (pi p2)    (tag   (add-poly  pi p2) ) ) ) 
(put    ' mul 1 (polynomial  polynomial ) 

(lambda   (pi p2)    (tag    (mul-poly  pi p2) ) ) ) 
(put    1  make    1  polynomial 

( lambda   ( var  terms ) 

(tag   (make-poly  var  terms)))) 

1  done ) 

多項式の 加算 は 項 別に 実行され ます。 同じ 次数の 項 （つまり 同じ 指数の 不定 元) 
が 合成され ねばな リ ません。 これ は 係数 は 加数の 係数の 合計で ある 同 じ 次数の 
新しい 項 を 形成す る ことにより 行われ ます。 ある 加数の 項の 同 じ 次数の 項が も 
う 一方に 無い 場合に は 単純に 構築され る 和の 多項式に 積み上げられます。 

項の リス トを 操作す るた めに、 空の 項 リス トを 返す コンス トラクタ the- 
empty-termlist と 新しい 項 を項リ ス ト に 挿入す る コ ンス トラクタ adjoin- 
term  を 既に 持って いると 仮定し ます。 また 与えられた 項リ ス トが 空で あるか 
判断す る 述語 empty-termlist? と 項 リス ト から 最大 次数の 項 を 抽出す るセレ 
クタ first-term、 最大 次数の 項 を 除く 全て を 返す セレクタ rest-terms もまた 
持って いると 仮定し ます。 項 を 操作す るた めに、 与えられた 次数と 係数から 項 
を 構築す る コンストラクタ make-term と 項の 次数と 係数 を それぞれ 返す セレ 
クタ order と coef  f を 既に 持って いると 仮定し ます。 これらの 命令 は 項と 項の 
リストの 両方 を 実際の 表現に ついては 分離して 考えられる データ 抽象と して 捉 
える こと を 許します。 
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以下 は 2 つの 多項式の 和の ために 項リ ス ト を 構築す る 手続です。 57 


、 def ine    ( add - terms   LI L2 ) 

( cond  ( ( empty-termli st?  LI ) L2) 
( (empty-termlist?  L2)  LI) 
(else 

(let    ((tl    (first-term  LI)) 
(t2    (first-term  L2) ) ) 
(cond   ((>   (order  tl)    (order  t2) ) 
( ad j oin-term 
t 1 (add - terms    (rest-terms   LI ) L2) ) ) 
( (<    (order  tl)    (order  t2) ) 
( ad j oin-term 
t2    (add - terms   LI    (rest-terms   L2 ) ) ) ) 
(else 
( ad j oin-term 
(make-term    ( order  t 1 ) 

(add    (coeff   tl)    (coef f  t2))) 
( add -" terms    (rest-terms  LI ) 

(rest-terms  L2) ))))))) ) 

ここで 注意すべき 最も 重要な 点 はジェ ネリ ックな 加算 手続 add を 用いて 合成 さ 
れる 2 つの 項の 係数 を 一緒に 足した ことです。 これ は 以下で 見る ように 強力な 
帰結です。 

2 つの 項 リスト を 乗算す るた めに 最初の リス トの 各項 をもう 一方の リスト 
の 全ての 項で 乗算す るのに 繰り返し mul-term-by-all-terms を 使用ます。 mul - 
term-by-all-terms は 与えられた 項 を 全ての 与えられた 項 リス トの 項で 乗算し 
ます。 結果の 項 リスト （最初の リストの 各項に 対して 1 つ） は 合計に 積み上げら 
れ ます。 2 つの 項の 乗算 は 次数が 乗数の 次数の 和で 係数が 乗数の 係数の 積と な 
る 項 を 形成し ます。 

に def  ine    (mul - terms   LI L2 ) 
V if    ( empty-termlist?  LI ) 
(the-empty-termlist) 

(add -" terms    (mul -" term - by - all -" terms    (first -" term  LI ) L2) 

57 この 命令 は Exercise  2.62 にて 開発した 皿 ion-set 命令に とても 似て います。 実際に 
も し 多項式の 項 を 不定 元の 指数に 従い 並べた 集合 だと 考えるなら、 和の ために 項 リスト 
を 生成す る プロ グラム は 皿 ion- set と ほとんど 同じ です。 
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(mul-terms    (rest-terms   LI ) L2) ) ) ) 
(define    (mul- term-by- all -terms   tl L) 
(if    ( empty-termlist?  L) 
(the-empty-termlist) 
(let    ( (t2   (first-term  L) ) ) 
( ad j oin-term 
(make-term   (+   ( order  1 1 ) ( order  t2  ) ) 


これが 本当に 多項式の 和と 積の ために ある もの 全てです。 ジェ ネリ ック 手続 
add と mul を 用いて 項 を 操作す るた め、 多項式 パッケージ はジェ ネリ ック 数値 
演算 パッ ケージに より 知られて いる 任意の 型の 係数 を 自 動的に 取 リ扱 うこと が 
可能で ある こ と に 注意して 下さい。 も し Section  2.5.2 で 議論され たよう な 強制 
メカニズム を 含めて いた 場合、 型の 異なる 係数の 多項式 上で も 命令 を 取り扱う 
ことが 自動的に できます。 


多項式の 加算と 乗算の 手続、 add-poly と nml-poly をジェ ネリ ックな 数値 演算 
システムに 型 polynomial のた めの 命令 add と mul と して ィ ンス トールし たた 
め、 私達の システム はまた 自動的に 以下のような 多項式 操作 を 取り扱う こと が 
可能です。 


その 理由 は システムが 係数 を 合成し ようと 試す 時、 add と mul を 通して 呼 出 を 
行うた めです。 係数 は それ 自身 （?/ の） 多項式で すから、 これら は add-poly と 
mul-poly を 用いて 合成され ます。 結果 は" データ 適 従 再帰" のよう な 物で、 例 
えば nml-poly の 呼 出 は 係数の 乗算の ために mul-poly の 再帰 呼 出に 帰着し ま 
す。 も し 係数の 係数が それ 自身 多項式 （多項式 を 3 変数で 表現した 場合） の 場 
合、 データ 適 従 は システム がまた 別の レベルの 再帰 呼 出に 従う こと を 保証し ま 
す。 そして データ の 構造が 指示 する だけのより 多くの レベルに ついても また 同 
様です。 58 


これ を 完全に 順調に 行う に は 私達の ジ エネ リ ック 数値 演算 システムに "数値" を 次数が 


(mul    (coef f   tl) ( coef f   t2) ) ) 
(mul -term-by-all-terms  t 1 (rest-terms  L) ) ) ) ) ) 


[3a;2  +  (2  +  3i)x  +  7]  -  a;4+  -x2  +  (5  +  3i) . 


(y  +  l)x2  +  (y2  + l)x  +  (y  - 1)\  .   (y  -  2)x  +  (y3  +  7) 
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項 リスト の 表現 

ようやく 項 リストに 対する 良い 表現 を 実装す る 仕事に 直面せ ねばな リ ませ 

ん。 項 リスト は 実際に は 項の 次数 を キーに した 係数の 集合です。 従って Section 
2.3.3 にて 議論 したよう な 任意の 集合 表現の 手法が この タスク に 適用 可能です。 
一方で 手続 add-terms と mill-terms は 常に 高い 次数から 低い 次数へ と 連続し 
て 項 リスト を 常に アクセス します。 従って 何ら かの 順序 付き リスト 表現 を 用い 
る ことにしましょう。 

項 リ ス トを 表現す る リスト を どのよう に 構造 化する べきで しょう 力、。 1 つ 
の 考慮 点 は 私達が 操作しょう とする 多項式の "濃度" です。 多項式 は 多くの 次 
数に 関して 0 でない 係数 を 持つ 場合 dense (密） と 呼ばれます。 もし 多くの 0 の 
項 を 持つ 場合に は sparse (疎） と 呼ばれます。 例えば、 

A  ：     Xs  +  2x4  +  3x2  -  2a;  -  5 

は密 多項式です。 

B  ：     x100  +  2x2  +  l 

は 疎です。 

密 多項式の 項リ スト は 係数の リスト と して 最も 効率 良く 表現され ます。 例 
えば 上の は （1  2  0  3  -2  -5) としてう まく 表わされます。 この 表現の 項の 
次数 は その 項の 係数で 始まる サブ リストの 長さから 1 を 引いた 数です。 59 これ 
は B のよう な 疎 多項式に は 酷い 表現に 成 リ 得ます。 少な く 孤立 し た 非 ゼロ な 項 
により 中断され る 巨大な ゼロの リ ストになる でしよう。 疎 多項式の よ リ 適切な 
項リ ス トの 表現 は 各項が 項の 次数と その 次数に 対する 係数 を 含む リ ス ト である 
非 ゼロ 項の リストです。 そのような 仕組みで は 多項式 B は 効率的に （（100 1) 
(2  2)  (0 1)) として 表現され ます。 多くの 多項式 操作が 疎 多項式 上に て 実行 
される ため、 私達 はこ ちらの 手法 を 用います。 項 リスト は 項の リストと して 表 
現され 高次から 低 次の 項へ と 並べられます。 これ を 決定 すれば 項と 項 リストに 
対する セレクタと コンストラクタの 実装 は 簡単です。 60 

0 で 係数が その 数で ある 多項式で あると 見做す ことで 多項式に 強制す る 能力 も 追加す る 
必要が あり ます。 これ は 以下のような 式に 対して 実行 を 行いたい 場合に 必要です。 

[x2  +  (y  + l)x  +  5]  +  [x2  +  2x  + リ， 

これ は 係数 +  1 を 係数 2 に 対し 足す 必要が ぁリ ます。 

59 これらの 多項式の 例で は Exercise  2. 78 で 提案され た型メ 力 二 ズムを 用いて ジ エネ リ 
ック 数値 演算 システム を 実装した と 前提して います。 従って 普通の 数値の 係数 は 数値 そ 
れ 自身で 表現され、 car が シンボル scheme- number の ペアで は あ リ ません。 

6(5 項 リストが 順序 有り だと 想定して います 力5'、  adjoin- term を 单 純に 新しい 項 を 既存 
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(define    ( ad j  oin- term  term  term-list ) 
( if    (=zero?    ( coef f   term) ) 
term-list 

( cons  term  term-list ) ) ) 


(define  (the-empty-termlist)  '()) 

(define  (first-term  term-list )    (car  term-list ) ) 

(define  (rest-terms   term-list )    ( cdr  term-list ) ) 

(define  (empty-termlist?   term-list )  (null?  term-list ) ) 


(define    (make-term  order   coef f ) (list   order   coef f ) ) 
(define    ( order  term)    (car  term) ) 
(define    ( coef f   term)    ( cadr  term)) 

=zero? は Exercise  2. 80 で 定義され ています。 （下の Exercise  2. 87 も 参照して 下 
さい)。 

多項式 パッケージの ユーザ は （タグ 付き） 多項式 を 以下の 手続で 作成し ます。 

dei ine    (make - polynomial var  terms  ) 
"get    1  make    1  polynomial ) var  terms)) 


Exercise  2.87: 対抗 式に 対する =zero? をジェ ネリ ック 数値 演算 パ 

ッ ケージに インス トールせ よ。 これ は adjoin-term に 係数 それ 自 

身が 多項式で ある 多項式に 対して 動作 を 可能に する。 

Exercise  2.88: 多項式 システム を 拡張し 多項式の 減算 を 含めよ。 （ヒ 
ン ト ： ジ エネ リ ッ ク な 単項 算術 否定 演算子 を 定義す る こ と が 手 助 
けと なる だろう。 ） 

Exercise  2.89: 密 多項式に 対して 適切 だと 上で 説明され た項リ ス ト 
表現 を 実装す る 手続 を 定義せ よ。 

Exercise  2.90: 疎と 密、 両方の 多項式に 対して 効率の 良い 多項式 シ 

ス テム を 得たい とする。 これ を 行う 1 つの 方法 は 両方の 種類の 項 


の項リ スト 上に cons する よう に 実装し ました。 adjoin-term を 用いる （add-terms のよ 
う な） 手続が 常に リ スト 内の 物よ り 高次な 項と 共に それ を 呼ぶ こ と を 保証 するならば こ 
のま まにして おく ことができます。 もし そのよう な 保証 を 行う ことが 望まし く なかった 
な ら ぱ adjoin-term を 集合の 順序 付き リ ス ト 表現の ための adjoin-set(Exercise  2.61) 
と 同様に 実装して おくべき だった でしよう。 
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リス ト 表現 を システム 内に て 許可す る ことで ある。 状況 は Section 
2.4 の 複素数の 例 と 同様で、 そこで は 直行 形式 と 極 形式の 両 表現 を 
許可した。 これ を 行うた め、 異なる 型の 項 リスト を 識別し、 項 リス 
ト 上の 命令 をジェ ネリ ック にせねば ならない。 多項式 システム を 
この 汎化を 行うた めに 再設 計せ よ。 これ は 局所 的な 変更で はなく 
大域 的な 変更になる。 

Exercise  2.91: 1 変数 多項式 は 別の 1 変数 多項式に より 割る こと が 
でき、 多項式の 商と 多項式の 剰余 を 算出す る。 例えば、 

5  _  -, 

―  = x'  +  x,  remainder  x  ~ 1. 

除算 は 長 除法 を 通して 行う ことができる。 こ れは 被除数の 最高 次 
の 項 を 除数の 最高 次の 項で 割る。 結果 は 商の 最初の 項で ある。 次 
に 結果に 除数 を 掛け、 被除数から その 結果 を 引く。 そして 残りの 
答 を 再帰 的に 差 を 除数で 割る ことにより 求める。 除数の 次数が 被 
除数の 次数 を 越えた 時に 停止し、 その 時の 被除数 を 剰余で あると 
宣言す る。 またも し 被除数が ゼロに なった 場合に は 商と 剰余の 両 
者 を ゼロと して 返す。 

add— poly と mul-poly のモデ ノレの 上に div_poly 手続 を 設計す る 

ことが 可能 だ。 この 手続 は 2 つの 多項式が 同じ 変数 を 持つ か チェ 
ック する。 そうで あれば div-poly は 変数 を 取 リ去リ その 問題 を 
div-terms に 渡す。 div-terms は 除算 命令 を項リ ス ト上 にて 実行 
する。 div-poly は 最終的に 変数 を 再度 div-terms の 結果に 取り付 
ける。 除算の 商と 剰余の 両者 を 求める div-terms を 設計す る こと 
は 便利 だ。 div-terms は 2 つの 項 リスト を 引数と して 取リ 商の 項 
リスト と 剰余の 項 リストの リスト を 返す。 

以下の div-terms の 定義 を 欠けた 式 を 埋める ことによ リ完 成させ 
よ。 これ を 用いて div-poly を 実装せ よ。 div-poly は 2 つの 多 項 
式 を 引数と して 取り 商と 剰余の 多項式の リスト を 返す。 

(.define   (div-terms  LI L2 ) 
(if    i^empty-termlist?  LI ; 

(list    ( the-empty-termlist )    ( the-empty-termlist ) ) 
(let    ( (tl (first-term  LI) ) 
(t2    (first-term  L2) ) ) 
(if    (>   (order  t2)    (order  tl) ) 

(list    ( the-empty-termlist )    LI ) 
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(let   ((new - c   (div   (coef f  tl) (coeff  t2) ) ) 
(new-o   (-   (order  tl)    (order  t2) ) ) ) 
( let   ( (rest - of - result 

(compute  rest  of  result  recursively) 
)) 

(form  complete  result) 
)))))) 


記号 代数の 型の 階層 

私達の 多項式 システム は ある 型 （polynomials) のォ ブジェク トが どのよう 
にして 事実上 多くの 異なる 型の オブジェ ク トを その 部分と して 持つ 複雑な ォブ 
ジェク ト になり 得る のかに ついて 説明し ました。 これ はジェ ネリ ックな 命令 を 
定義す る 場合の 実際の 困難 さは 何も 引き起して いません。 複合 型の 部分の 必要 
な 操作 を 実行す るた めに 適切な ジェネリック 命令 を インストール する ことのみ 
が 必要です。 実際に 多項式が ある 種の" 再帰 的 データ 抽象化" を 形成し、 多項式 
の その 部分に おいて それ 自身が 多項式で ある 場合が ある こと を 学びました。 私 
達の ジェネリック 命令と データ 適 従 プログラミング スタイル はこの 複雑さ を大 
し た 問題 無 しに 扱う こと がで きます。 

一方で 多項式 代数 は データ 型が 自然に タワーに 配置で きない システムです。 
例えば 係数が y の 多項式で ある x の 多項式 を 持つ ことができます。 また 係数が 
:r の 多項式で ある y の 多項式 を 持つ こと も 可能です。 これらの 型の どちらも も 
う 一方の "上" に は 自然に は 成り 得ません。 その上 各 集合から 両者の 要素 を 足 
す 必要 は 良くあります。 これ を 行う 方法 はいくつ か 存在し ます。 1 つの 可能性 
と して は ある 多項式 をもう 一方の 多項式の 型に 項の 展開と 再配置 を 行う ことで 
両者の 多項式が 同じ 主な 変数 を 持つ ように 変換す る 方法が 考えられます。 この 
上に 変数で 順序 付ける タ ヮ 一の 様な 構造 を 強制す る ことで、 常に 任意の 多項式 
を最 優先の 変数が 主で 低 優先 度の 変数が 係数に 埋め込まれた "基底 形式" に 変 
換 する ことができます。 この 戦略 はとても 良く 行きます。 ただし 変換が 多項式 
を 不必要に 展開す るか もしれ ないた め、 読み 難く そして 恐らく 非 効率に してし 
まいます。 タワーの 戦略 は 全く この 領域で は 全く 自然ではありません。 または 
ユーザが 新しい 型 を 古い 型 を 用いて 種々 の 接続 形式に て 動的に 創作す る 領域、 
例えば 三角関数、 羃 級数、 積分 等の 任意の 領域に は 自然ではないでしょう。 

強制 をコ ン トロール する ことが 巨大 スケールの 代数 操作 システムの 設計に 
おいて 深刻な 問題で ある こと は 驚くべき ことで はあり ません。 そのような シス 
テムの 多くの 複雑 性 は 様々 な 型の 間の 関係 性に 携わって います。 私達 はま だ完 
全 に は 強制 を 理解して いないと 言う こと は 本当に 公正でしょう。 実際に 私達 は 
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まだ データ 型の 概念 を 完全に は 理解して いません。 それでも なお、 私達が 知つ 
ている こと は 強力な 構造 化と モジュラー 方式の 原則 を 伴ない 巨大 システムの 設 
計の 支援 を 与えて くれます。 

Exercise  2.92: 変数の 順序 付け を 強要す る ことで 多項式 パッケージ 
を 拡張 し 多項式の 加算 と 乗算が 異な る 変数の 多項式に 対 しても 働 
くように せよ。 （これ は 簡単で はない!） 

延長 課題： 分数 関数 

私達の ジ ヱ ネ リ ッ ク 数値 演算 シス テ ムを 拡張し rational か ncfions (分数 関 
数） を 含む ようにす る ことができます。 分子と 分母が 多項式で ある 以下の 様な 
"分数" が 存在し ます。 


システム は 分数 関数の 加算、 減算、 乗算、 除算 をで きなければ なりません。 そ 
して 以下の 様な 計算 を 行うた めに、 

x  +1  x      _  a;3  +  2a;2  +  3x  + 1 

x^l  +  x4  +  x3-x-l ' 

(ここで は 加算 は 共通 因数 を 取り除く ことで 簡約され ています。 通常の" たす き 
掛け" なら 5 次 多項式 分の 4 次 多項式の 分数 を 生成して いるでしょう。 ) 

私達の 分数 演算 パ ッ ケージ を 変更す る ことで ジェネリック 命令 を 用いる よ 
うにす ると 分数 を 最小の 項に 簡約す る 問題 を 除いて 望む ことができます。 

Exercise  2.93: 分数 演算 パッケージ を 変更し ジェ ネリ ック 命令 を 使 

用す るよう にせよ。 ただし make-rat を 変更し 分数 を 最小の 項に 簡 
約す る こと は 試行し ないよう にせよ。 あなたの システム を make- 
rational  を 2 つの 多項式 上に て 呼び出し 分数 関数 を 生成す る こと 
で テス ト せよ。 

(, def  ine  pi  (make-polynomial 1  x  '  ( (2 1) (,0 1)))) 
(define  p2  (make-polynomial 1 x  ' ( (3 1) (0 1)))) 
(define  rf    (make-rational p2  pi)) 

ここで rf を 自身に add を 用いて 足せ。 この 加算 手続が 分数 を 最小 
項に 簡約し ない こと を 確認す るだろう。 
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多項式の 分数 を 整数で 用いた のと 同じ 考え を 用いて 最小の 項に 簡約す る こと 

がで きます。 make-rat を 変更し 分子と 分母の 両方 を 最大公約数で 割り ます。 
"Greatest  Common  Denominator"  (GCD: 最大公約数） の 概念 は 多項式に 対し 
て も 意味 を 成します。 実際に 2 つの 多項式の GCD を 整数に 対して 働く、 基本的 
に 同じ ユークリッドの アルゴリズム を 用いて 求める ことができます。61 整数 版 
は 以下のと おりです。 

(. def ine    (gcd  a  b; 
(if    (=  b  0) 
a 

(gcd  b   (remainder  a  b) ) ) ) 

これ を 用いて、 項 リスト 上で 働く  GCD 命令 を 定義す るた めの 明かな 変更 を 行う 
ことができます。 

(, def  ine    (gcd -" terms   a  b ) 
(. if    (empty-termlist?  b) 
a 

(gcd -" terms  b   ( remainder- terms   a  b) ) ) ) 

ここで remainder-terms は Exercise  2.91 で 実装され た 項 リ ス トの 除算 命令 
div-terms により 返される リス トの 剰余 部 を 取り出します。 

txercise  2.94:  div-terms を 用いて 手 ilk  remainder-terms を も 装 
し、 それ を 用いて gcd-terms を 上記の ように 定義せ よ。 次に 2 つ 
の 多項式の 多項式 GCD を 求める 手続 gcd-poly を 書け。 （この 手続 
は 2 つの 多項式が 同 じ 変数で な ければ ェ ラー を 発しな ければ な ら 
ない)。 多項式に 対して は gcd-poly を 簡約し、 通常の 数値に 対し 
て は 通常の gcd に 簡約す るジェ ネリ ック 命令 greatest-common- 
divisor を システムに ィ ンス トールせ よ。 テス ト と して 以下 を 
試せ。 

ei ユー ク リ ッ ドの アルゴリズムが 多項式に 対して 働く という 事実 は 代数学に おいて 多 
項 式が Euclidean  ring(^L— ゥ リ ッ ド環） と 呼ばれる ある 種の 代数の 定義域 を 形成す る と 
述べる ことにより 形式 化されます。 ユークリッド 環と は 加算、 減算、 そして 可換な 乗算 
を 許す 定義域で あり、 環の 各 元: r に対する 正の 整数の "大きさ "mOr) の 割り当て 方法と 
それに 対する 性質と して 任意の 非 ゼロな ェ と y に 対し rn(xy)  >  m(x) である と共に、 与 
えられた 任意の o: とリに 対し j/  =  +  r となる 9 が 存在し、 r  =  0 または <  m(x) 
である ことが 言えます。 抽象化の 視点から これが ユー ク リツ ドの アルゴリズムが うまく 
行く のに 必要な 条件です。 整数の 定義域に 対して、 整数の 大きさ m は その 整数の 絶対値 
です。 多項式の 定義域に おいて は 多項式の 大きさ は その 次数です。 
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(define  pi    (make -polynomial 

'x    '  ((4 1) (3  -1) (2  -2) (1 2)))) 
(define  p2    (make -polynomial 1 x    1 ( (3 1) (1 -1) ) ) ) 
( gre ate st- common-divisor  pi p2 ) 

次に その 結果 を 手で チェック せよ。 

Exercise  2.95: 以下の 多項式 A,  P2,  P3 を 定義せ よ。 

Pi ： x2  ~2x  + 1, 
P2  ： llx2  +  7, 
P3  ： 13a;  +  5. 

次に れ と P2 の 積 Pi と P3 の 積 <32 を 定義し、 greatest- 
common-divisor (Exercise  2.94) を 用いて Qi と Q2 の GCD を 永め 
よ。 答が ^ と 同じに ならない ことに 注意せ よ。 これが 非 整数 命令 
の 演算が GCD に 伴な う 困難 さ を 生じさせる ことの 例 を 示して いる。 
62 何が 起 こったの か 正しく 理解す る ため、 GCD を 求める 間 gcd- 
terms を トレース する かこの 除算 を 手で 試行して みよ。 

Exercise  2.95 で 示された 問題 を 以下に 示す （整数 係数の 多項式の 場合の み 実際 
に は 動作す る） GCD アルゴリズムの 変更 を 用いる こと で 解決す る こと がで き ま 
す。 GCD の 演算 中の 一切の 多項式の 除算の 前に、 被除数 を 一切の 分数が 除算 処 
理の 間 に 現れな いよう 保証す るた め に 選ばれた 整数 定数 因数 を 掛けます。 答 は 
従って 実際の GCD よ リ 整数 定数 因数の 分 異なり ます。 しかし これ は 分数 関数 を 
最小の 項に 簡約す る 場合に は 問題に なリ ません。 GCD は 分子と 分母の 両方 を 割 
るた めに 利用され るた め、 整数 定数 因数 は 相殺され ます。 

より 正確に 述べれば、 もし P と Q が 多項式で ある 場合、 Oi を/5 の 次数と し 
(つまり P の 最大 項の 次数と し）、 C>2 を Q の 次数と します。 c を Q の 第一の 係 
数と します。 すると P を integer お inff /actor (整数 化 因数) c1+01  一02 で 掛ける と、 
結果の 多項式 は div-terms アルゴリズム を 用いて 一切の 分数 を 生じずに Q で 
割る こと がで きます。 被除数 を こ の 定数で 乗算 し た 後 に 割 る 命令 は 時々 P の (3 
による psettdof^ision (擬 除算） と 呼ばれます。 除算の 剰余 は psetidoremamder (擬 
剰余） と 呼ばれます。 

Exercise  2.96: 

62 MIT  Scheme の 様な 実装で はこの 問題 は と Q2 の 実際の 約数 を 分数 係数 を 伴な つ 
て 生成し ます。 多くの Scheme システム では 整数の 除算が 精度に 限界の ある 小数 を 生成 
する ため、 正しい 約数 を 得る のに 失敗し ます。 
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a  -f-ifi^i pseudoremainder-terms を夹 装せ よ。 これ は！ ■emainder- 
terms と 同様で あるが div-terms を 呼ぶ 前に 被除数 を 上で 説 
明した 整数 化 因数で 掛ける。 gcd-terms を 変更し pseudoremainder- 
terms  を 用いる よつ にレ、 greatest-common-divisor 力5' 整数 

係数の 答 を Exercise  2.95 の 例に て 生ずる こ と を 確認せ よ。 

b  GCD は こ れで 整数 係数 を 得る。 しかし それら は A の 物より 
も 大きい。 gcd-terms を 変更し 解の 係数から 全ての 係数 を そ 
れらの （整数） の 最大公約数 により 割る ことで 共通 因数 を 取 
リ除 くように せよ。 

従って、 以下に 分数 関数 を どのよう にして 規約 分数に 簡約す るか を 説明し ます。 

•  Exercise  2.96 の gcd-terms の 版 を 用いて、 分子と 分母の GCD を 求める 

•  GCD を 得たら 分子と 分母の 両方に 同じ 整数 化 因数 を GCD で 割る 前に 掛 
ける ことで GCD による 除算が 非 整数な 係数 を 生じない ようにす る。 因数 
と して GCD の 最初の 係数 を 1 +  6^  —  (92 乗した 物 を 用いる ことができ、 
この 時 C>2 は GCD の 次数で あ リ 、 は 分子と 分母の 最大 次数で ある。 こ 
うする ことで 分子と 分母 を GCD で 割っても 分数 を 生じない。 

• この 操作の 結果 は 分子と 分母が 整数 係数になる。 係数 は 通常 とても 巨大 
になる。 理由の 全て は 整数 化 因数の せいだ。 そのため 最終 ステップ は 分 
子と 分母の 全ての 係数の （整数の） 最大公約数 を 求めて この 約数で 割る こ 
とで 冗長な 因数 を 取り除く ことで ある。 

Exercise  z.9i: 

a この アルゴリズム を、 2 つの 項 リスト n と d を 引数と して 取 
リ 上で 説明され た アルゴリズム にて n と d を 最小の 項に 簡約 
した リスト nn と dd を 返す 手続 reduce-terms と して 実装せ 
よ。 また add-poly と 同様に 2 つの 多項式が 同じ 変数 を 持つ 
か チェック する 手続 reduce-poly も 書け。 も しそうで ある 場 
合 reduce-poly は 変数 を 取り去り 問題 を reduce-terms に 渡 
す。 そして reduce-terms によ リ 与えられた 2 つの 項 リスト 
に 再び 変数 を取リ 付ける。 

b 元の make-rat が 整数に 対して 行った こと を 行う reduce- 
terms と 同様の 手続 を 定義せ よ。 

(define    (reduce - integers  n  d) 

(let    ((g   (gcd  n  d)))    (list    (/  n  g)    (/  d  g)))) 
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次に reduce をジ エネ リ ック 命令と して 定義す る。 これ は 
apply—generic を 呼び、 (polynomial 型 引数に 対 して ほ Ireduce- 
poly を 呼び出し、 （scheme-number 型 引数に 対して は) reduce- 
integers を 呼び出す。 これで make-rat に 与えられた 分子と 
分母 を 接続 して 分数 を 形成す る 前 に reduce を 呼 ばせ る こと 
で、 簡単に 分数 数値 演算 パッケージに 分数 を 最小の 項に 約分 
させる ことができる。 


(def ine 

Pi 

(make 

-polynomial 

'X     ' ((1 

1) 

(0 

1)))) 

(def  ine 

P2 

(make 

-polynomial 

'x    '  ((3 

1) 

(0 

-1)))) 

(def  ine 

P3 

(make 

-polynomial 

'x    ' ((1 

1)))) 

(def  ine 

p4 

(make 

-polynomial 

•x  '((2 

1) 

(0 

- 1)))) 

(def  ine 

rf 1 

(make 

-rational  pi 

P2)) 

(def  ine 

rf  2 

(make 

-rational p3 

P4)) 

(add  rf 1 rf 2) 

正しい 答 を 得る かどう 力 \ 正しく 最小の 項に 簡約され るか ど 
うか 確認せ よ。 

GCD の 計算 は 分数 関数の 操作 を 行う どんな システムに おいても 心臓部に 存在し 
ます。 上で 用いられた アル ゴ リ ズムは 数学的 に は 簡単です が 非常 に 遅いです。 。 
遅 さの 原因の 一部 は 除算 命令の 大きな 値で あり、 他に は擬 除算に ょリ 生じる 非 
常に 大きな 中間 時の 係数の ためとな り ます。 代数 操作 システムの 活発な 開発 領 
域の 1 つ は 多項式の GCD を 求める より 良い アルゴリズムの 設計です。 63 


63 多項式の GCD を 求める ための 1 つの 著しく 効率が 良く 洗練され た 手法 は Richard 
Zippel  (1979) によ リ 発見され ました。 この 手法 は Chapter 1 にて 議論した 素数 性の 高速 
な テス 卜 と 同様の 乱 選 アル ゴリ ズム です。 Zippel の 本 （Zippel  1993) はこの 手法 を 多 項 
式の GCD を 求める 他の 方法と 共に 解説して います。 
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3 


モジュール 方式、 オブジェクト、 状態 


]V[£TaPc (入 \ov  avcmaus: て ca 

(例え 変化して いる 間 も、 それ は 静止して いた） 
― Heraclitus 

Plus  ca  change,  plus  c'est  la  meme  chose. 

(よ リ 多くが 変化す る 程、 よ リ 同じで あり 続ける） 

― Alphonse  Karr 

ここ ま での 章 は プロ ダラ ム が 作成され る 基礎的な 要素 を 紹介し ました。 どの よ 
うにして プリ ミ ティ ブな 手続と プリ ミ ティ ブな デー タ が 接続 さ れ 複合 要素 を 構 
築す るかに ついて 学び、 また 抽象化が 巨大 システムの 複雑さに 立ち向か うこ と 
を 手助けす る 核心で ある こと を 学習し ました。 しかし これらの ツール はプ ログ 
ラム を 設計す るのに 十分で はあり ません。 効果的な プログラム 統合 は プロ グラ 
ム 設計 全体の 形式 化 を ガイ ド する ことが 可能な 組織的 原則 を 必要と します。 具 
体 的に は 巨大 システムの 構造 化 を 手助けす る 戦略が 必要で、 それにより それら 
が mod ま r (モジュラ） 化される よう、 つま リ "自然に" 分離して 開発と 保守が 
可能な 論理的 部品に 分割され る ようにし ます。 

物理 システム を モデル 化した プログラムの 構築に 特に 適切な 1 つの 強力な 
設計 戦略 は プロ グラムの 構造 を モデル 化される システムの 構造 を 元にす る こと 
です。 システムの 各ォ ブジェク ト に対して 対応す る 演算 オブジェクト を 構築し 
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ます。 各 システムの アクション に対して は 演算 モデル 内の 記号 操作 を 定義し ま 
す。 この 戦略 を 用いる 見込 は 新しい オブジェ ク トゃ アクション を 供給す るた め 
に モ デル を 拡張す る こと は プログラム に対する 戦略上の 変更 を 必要と しない こ 
とです。 それらの オブジェクト、 または アクションの 新しい 記号 上の 類似 物の 
追加の み 変更が 必要です。 システムの 組織化に て 成功して いるの なら、 新しい 
機能の 追加 や 古い 物の デバッグ において は システムの 特定の 部分 上の みで 働く 
必要が あり ます。 

すると 大体の 場合、 巨大 プログラム を 体系化す る 方法 は モデル 化される シ 

ス テムの 私達の 認知に より 指示され ます。 この 章で は 2 つの 大きく 異なる シス 
テム 構造の "世界観" から 浮かび上がる 2 つの 顕著な 体系化 戦略に ついて 調査 
します。 最初の 体系化 戦略 は ofejecte (オブジェクト） に 集中し、 巨大 システム を 
その 振舞が 時間と 共に 変化す る 区別 可能な オブジェ ク トの 集合 だと 見ます。 代 
替 となる 体系化 戦略 は システム 内 を 流れる 情報の sirmms (ス 卜 リーム） に 集中 
します。 これ は 電子 技術者の 信号 処理 システムの 視点と 同じです。 

オブジェ ク ト ベースと スト リ ーム 処理の 両方の アプローチ は 共に プロ ダラ 
ミン グ における 重大な 言語 上の 問題 を 浮かび上がらせます。 オブジェ ク ト では 
演算 オブジェ ク トが どのように 変化 可能で、 それでも その 同一 性 を 維持で きる 
かにつ いて 関心 を 持たなければ なりません。 この ことが より 機械的な、 しかし 
論理的に 扱い難い 演算の ent;ironmer^  modeZ (環境 モデル） のために、 私達の 古 
い 演算の 置換 モデル （Section  1.1.5) を 諦めさせる ことにな リ ます。 オブジェ ク 
ト、 変化、 同一 性の 取扱の 難しさ は 私達の 計算 モデル 内で 時間に 取り組む ため 
の 必要性の 基本的な 結論です。 これらの 問題 は プロ ダラ ムの 並行 実行 を 許可す 
る 場合に さらに 大きく な リ ます。 ス トリ ーム の取リ 組み は 私達の モデル 内で シ 
ミュレ ート された 時間 を 計算機の 中 で 評価の 間 に 発生した イベント の 順 か ら 分 
断した 時に 最も 全体に 利用 可能です。 detayed  ewZuaiion (遅延 評価） として 知ら 
れる テクニック を 用いて これ を 達成し ます。 


3.1 代入と 局所 状態 

私達 は 通常 世界 を 独立した オブジェ ク トが 占める 物と して 見なします。 各 
オブジェ ク トは 時間に 伴ない 変化す る 状態 を 持ちます。 オブジェ ク トは その 過 
去に その 振舞が 影響され る 時、 "状態 を 持つ" と 呼びます。 例えば 銀行 講座 は預 

金と 引き出しの 取引の 記録に 依存す る "私 は $100 引き出せ るか？" という 質問 
の 答に 状態 を 持ちます。 オブジェ ク トの 状態 を 1 つ 以上の state  v—bles (状態 
変数） と 見做す ことができ、 それらの 間に オブジェクトの 現在の 振舞 を 決定す 
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るた めの 歴史に ついての 十分な 情報 を 保存し ます。 簡単な 銀行 システム では 口 
座の 状態 を 口座の 取引 履歴 全体 を 記憶す るので はなく、 現在の 差 引 残高と 見做 
す ことができる でしよう。 

多くの オブジェ ク ト から 成る システム では オブジェ ク トが 完全に 独立して 
いる こと は 稀です。 ある オブジェ ク トの 状態 変数 を 他の ォブ ジヱク トの それに 
連結す る 相互作用 を 通して 各 オブジェクト が 他の 状態 に 影響 を 与える ことがあ 
るでしょう。 実際に、 システムが 分離した オブジェクトから 成る という 見方 は、 
シス テ ムの 状態 変数が 密 結合 された サブシステム が、 他の サブシステムと は 疎 
結合で あると いう グループに 分けられる 時 最も 便利です。 

この システムの 見方 は システムの 演算 モデルの 体系化に 対する 強力な フレ 
ーム ワークに 成り ます。 そのような モデル を モジュール 化する ために は シス テ 
ム 内の 実際の オブジェ ク トを モデル 化する 計算 オブジェクトに 分離せ ねばな リ 
ません。 各 計算 オブジェ ク トは 実際の オブジェ ク トの 状態 を 説明す る それ 自身 

の local  state  variables (口一 カル 状態 変数) を 持たねば な り ません。 モデル 化さ 
れる システム 内の オブジェ ク トの 状態 は 経 時 変化す るた め、 計算 オブジェ ク ト 
に 相対す る 状態 変数 も 変化し なければ な り ません。 も し 私達が システム 内の 時 
の 流れ を 計算機 内で 経過す る 時で モデル 化す る こと を 選択す るの なら ば、 振舞 
が プログラムが 実行す るに つれ 変化す る 計算 オブジェクト を 構築す る 手段 を 
持たねば な り ません。 具体的に は、 も し 状態 変数 を プロ グラ ミ ング 言語 内の 通 
常の 記号 名に て モデル 化 を 行いたい のなら ば、 その 言語 は 名前に 関連す る 値 を 
変化す る ことができる assignment  operator (代入 演算子） を 提供せ ねばな り ま 
せん。 


3.1.1 局所 状態 変数 

時間 的に 変化す る 状態 を 伴な う 計算 オブジェ ク トを 持つ ことにより 何 を 
意味す るの か を 説明す るた めに、 銀行口座から お金 を 引き出す 状況 を モデル 

化して みましょう。 これ を 引数と して 引き出される amount (金額） を 取る 手続 
withdraw を 用いて 行います。 もし 口座の 中に 引き出し を 受け入れ るのに 十分 
なお 金が あるの ならば、 withdraw は 引き出しの 後に 残る 差 引 残高 を 返さねば 
な り ません。 そ う でなければ、 withdraw は Insufficient か nds (資金 不足） という 
メッセージ を 返します。 例えば 口座 を $100 で 始めた 場合、 withdraw を 用いて 
以下の 一連の 応答 を 受け取る はずです。 

(withdraw  25) 

75 

(withdraw  25) 
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50 

(withdraw  60) 
"Insufficient  funds " 
(withdraw 15) 

35 

式 （withdraw  25) が 2 度 評価され 異なる 値 を 返して いる ことに 注目して 下さ 
い。 これ は 手続に とって 新しい 種類の 振舞です。 今まで は 全ての 手続 は 数学 上 
の 関数 を 計算す る 仕様 だと 見做す ことができました。 手続の 呼 出 は 与えられた 
引数に 適用され た 関数の 値 を 計算し ました。 そして 同じ 手続に 同じ 引数 を 与え 
ば 場合の 2 度の 呼 出 は 常に 同じ 結果 を 生じました。 1 

withdraw を 実装す るた めに、 口座の 差 引 残高 を 示す 変数 balance を 用 
い、 balance レゾ ク n ムー 9 る 手 withdraw を ぶ義 します。 withdraw 手, fe は 
balance が 少なく とも 要求され た amount と 同じ 大きさで あるか を チェック 
します。 もしそう であれば withdraw は balance を amount 分 減らし、 新しい 
balance の 値 を 返します。 そうでなければ withdraw は 残高 不足の メ ッ セージ 
を 返します。 以下に balance と withdraw の 定義 を 示します。 

、 def  ine  balance  100) 
def ine    (withdraw  amount ) 
、if    (>=  balance   amount ) 

(begin   (set!    balance    (-  balance   amount ) ) 

balance ) 
■'Insufficient   funds  " ) ) 

balance を 減らす の は 次の 式に より 行われます。 

(set!    balance    (-  balance   amount ) ) 

これ は set! という 特殊 形式 を 用いて います。 その 文法 は 次のと おりです。 
i,  set  ！    (name)  (new-value) ) 

ここで はく iiame〉 は シンボル であり、 〈new-vaJue〉 は 任意の 式です。 set! は 
〈name〉 を 変更し、 その 値 力 《 〈i2ew-VaJue〉 を 評価して 得られた 結果に します。 こ 

1 実際に はこれ は 全く 正しい 訳で はあり ません。 例の 1 つ は Section  1.2.6 の 乱数 生成で 
す。 別の 例 は Section  2.4.3 で 紹介した 命令-型 テーブル にに 従って 生じます。 同じ 引数 を 
伴な う get の 二度の 呼 出の 値 は 間に 入る put に 依存し ます。 一方で、 代入 を 紹介す る ま 
では そのような 手続 を 自分達で 作る 方法 は 無かった 訳です。 
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の 場合で は balance を 変更す る ことで その 新しい 値が balance の 以前の 値 か 
ら amo 皿 t を 引いた 結果になります。 2 

withdraw はまた begin という 特殊 形式 も 使用して おり、 これ は 2 つの 式 を 
if の テス トが 真の 場合に 評価され るよう にします。 最初に balance を 減らし、 
次に balance の 値 を 返します。 一般的に 以下の 式 を 評価す る と 

(begin  (expi)  {exp2)  一.  (expk)) 

(exPl) から 〈espfc〉 までの 式 は 続けて 評価され 最後の 式く  e:rW〉 が begin の 形 
式 全体の 値と して 返ります。 3 

withdraw は 望んだ 通りに 働きます;^、 変数 balance が 問題 を 表します。 上 
で 指定され たように、 balance は グローバル 環境に て 定義され た 名前で あり 自 
由 に 検査 や 変更の た め に 任意の 手続 か ら アクセス する ことができます。 どうに 
力、 して balance を withdraw の 内在に する ことで withdraw のみ 力5  balance に 
直接 アクセス でき、 他の 手続の どれ もが balance に は 間接的に （withdraw の 呼 
出 を 通して） アクセスす るよう にで きれば ともて 良くなる でしよう。 こうす る 
こ と が 口座の 状態 を 追跡す るた め balance が withdraw に よ リ 利用 される 局所 
状態 変数で あると いう 概念 をよ リ 正確に モ デル 化 します。 

定義 を 以下の よう に 書き直す ことで balance を withdraw に 内在させる こ 
とがで きます。 

dei ine  new- withdraw 
(let    ((balance   100) ) 
( lambda   ( amount ) 

(if    (>=  balance   amount ) 

(begin   (set!    balance    (-  balance   amount ) ) 

balance ) 
" Insufficient   funds  ■')))) 

2 

set! 式の 値 は 実装 依存です。 set! は その 効果の ための みに 用いられ、 その 値の ために 
用いられて はなり ません。 

その 名前 set! は Scheme で 用いられる 名前 付けの 慣習が 反映され ています。 変数の 値 
を 変更す る 命令 （または Section  3.3 で 学ぶ データ 構造 を 変える 物） は 感嘆符 （ビック リ マ 
—ク） で 終わる 名前 を 与えられます。 これ は 述語 を クエスチョン マークで 終わる 名前で 指 
定す るのと 同様です。 

3 私達 は 既に begin を 暗黙 的に プログラムの 中で 使用して います。 Scheme では 手続の 
ボディ は 連続す る 式と なる からです。 また ccrnd 式の 各 節の （consequen り の 部分 は 単一 
の 式で なく 一連の 式に する ことができます。 
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ここで 起こな つたの は let を 用いて 初期値 100 に 束縛され た ローカル 変数 
balance を 持つ 環境 を 設置し ました。 この 局所 環境の 中で は lambda を 用いて 
amount を 引数に 取り 以前の withdraw 手続と 同様に 振る舞う 手続 を 作成して い 
ます。 この 手続 一 let 式の 評価の 結果と して 返される 物 一は new-withdraw で 
あり 正確に withdraw と 同じ 振舞 をし ます 力 尺 その 変数 balance は 他の どの 手 
続から も アクセスで きません。 4 

set! を ロー  力 ル 変数 と 組み合わせる こと は ローカルな 状態 を 持つ 計算 ォブ 
ジェク トを 構築す るのに 用いる 一般的な プログラミング テクニックです。 残念 
な ことに、 この テクニック を 用いる こと は 深刻な 問題 を もたらします。 私達が 
最初に 手続 を 紹介した 時、 評価の 置換 モデル （Section  1.1.5) も 手続の 適用が 何 
を 意味す る の かの 解釈 を 説明す るた めに 提供し ました。 手続の 適用 は 手続の ボ 
ディ を、 形式 パラメータ を それらの 値で 置換して 評価す る こと だと 解釈され る 
べき だと 述べました。 問題 は 言語に 代入 を 紹介す る と 直 ぐ に 置換 は 最早 手続 
の 適用 モデルと して 適切で はなくな り ます （なぜそう なのかに ついては Section 
3.1. 3 で 学びます)。 結果と して 技術的に 今の 時点で は なぜ new-withdraw 手続が 
上で 主張され た 通リに 振る舞う のか 理解す る 手立てが あり ません。 本当に new- 
withdraw の 様な 手続 を 理解す るた めに は、 手続 適用の 新 しい モ デルの 開発 を 
必要と します。 Section  3.2 において そのような モデル を set! と ローカル 変数 
の 説明と 共に 紹介し ます。 しかし 最初に new-withdraw により 設定され る 主題 
上の いくつかの 変化に ついて 調査す る ことにします。 

以下の 手続 make-withdraw は "引き出し 処理" を 作成し ます。 make-withdraw 
の 形式 パラメータ balance は 口座の 初期 残高 を 指定し ます。 5 

^define    (make -withdraw り aiance ノ 
、丄 ambda   ^  amount ) 

(if    (>=  balance   amount ) 

(begin   (set!    balance    (-  balance   amount ) ) 
balance ) 

4 プロ グラ ミ ング 言語の 専門語に おいて 変数 balance は 手続 new-withdraw に カプセ 
ル 化された と 言います。 カプセル 化 は /u'ding  pn'nc か Ze (隠蔽 原則） と して 知られる 一般的 
な システム 設計の 原則 を 反映して います。 隠蔽 原則と は システムの 部分 をお 互いから 守 
る ことで よ り モジュール 化の 推進と 頑強な システム を 作成す る ことができる という こと 
です。 それ はつ ま リ 情報への アクセス を "知る こと を 必要と する" システムの 部分に にも 
与える ことによ ります。 

5 上の new- withdraw と は 逆に、 balance を 口一 カル 変数に する ために let を 使用す る 
必要が ありません。 形式 パラメータ は 既に 口一 カル 変数で あるた めです。 Section  3. 2 の 
環境の 評価 モデルの 議論の 後に この こと はよ り 明白に な り ます。 （Exercise  3.10 も 参照し 
て 下さい） 
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"Insufficient  funds"))) 

make-withdraw は 以下の よう に 2 つの オブジェ ク ト W1 と W2 を 作る のに 使用で 

きます。 

、 def ine  Wl (make -withdraw  100； ) 
(define  W2    (make-withdraw   100) ) 

(Wl 50) 

50 

(W2  70) 
30 

(W2  40) 

"Insufficient  funds " 

(Wl 40) 

10 

Wl と W2 が 完全 独立した オブジェ ク ト であり、 各々 がそれ 自身の 口一 カル 状態 
変数 balance を 持って いる こと を 観察して 下さい。 ある 口座からの 引き出し は 
別の 口座に は 影響し ません。 

引き出し 同様に 預け入れ を 扱う オブジェ ク トを 作る こと もで きます。 従つ 
て 簡単な 銀行口座 を 表現 可能です。 以下が 指定した 初期 残高 を 持つ "銀行口座 
オブジェ ク ト" を 返す 手続です。 

def  ine    (make-account  balance  ) 
dei ine     withdraw  amount ) 
(if    (>=  balance   amount ) 

(begin   (set!    balance    (-  balance 

balance ) 
■'Insufficient   funds  " ) ) 
( dei ine    (deposit   amount ) 

(set!    balance    (+  balance   amount ) ) 
balance ) 
( def  ine    (dispatch  m) 

( cond   ( ( eq?  m    1  withdraw )    withdraw ) 
( ( eq?  m    'deposit)    deposit ) 
(else    (error   "Unknown  request 
m)))) 

di  spat ch ) 


amount ) ) 


: MAKE-ACCOUNT" 
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各 make- account の 呼 出 は 口一 カル 状態 変数 balance を 持つ 環境 を 構築し ま 
す。 この 環境の 中で make-account は balance に アクセス する 手続 deposit と 
withdraw を 定義し ます。 また 追加の 手続 dispatch は" メッセ一 ジ" を 入力と 
して 取り 2 つの 口一 カル 手続の 内 1 つ を 返します。 dispatch 手続 それ 自身が 
銀行口座 ォブ ジヱク トを 表現す る 値と して 返されます。 これ はま さに Section 
2ん3 で 学ん ftmessage-passing ひ ッセ一 ジパッ シン グ） プロ ダラ ミ ングス タイ 
ル です。 ただし ここで は それ を 口一 カル 変数 を 変更す る 能力と 合わせて 用いて 
います。 

make-account は 以下の よう に 使用で きます。 

^define   acc     make -account    100) ) 
( ( acc    1  withdraw)  50) 

50 

((acc    1  withdraw)  60) 
"Insufficient  funds " 
( ( acc    1  deposit )  40) 

90 

((acc    1  withdraw)  60) 

30 

各 acc の 呼 出 は 局所 的に 定義され た deposit か withdraw 手続 を 返し、 指定 さ 
れた amount に 適用され ます。 make-withdraw を 用いる 場合で したので、 別の 
呼出し、 

v. def ine   acc2    (make-account    100) ) 

は 完全に 分離され た 口座 オブジェ ク トを 生成し、 それ 自身の ローカルな balance 
を 持ちます。 

Exercise  3.1:  accumulator は 1 つの 数値 引数 を 持ち 繰り返し 呼ば 
れる 手続で、 引数 を 合計に 蓄積す る。 呼び出される 度に 現在の 累積 
和 を 返す。 アキュムレータ （累算 器） を 返す 手続 make- accumulator 
を 書け。 アキュムレータ は それぞれが 独立した 合計 を 持つ。 make- 
accumulator  への 入力 は 累計の 初期値 を 指定す る。 例えば、 

(define  A   (make 一 accumulator   5; ) 

(A 10) 

15 

(A 10) 

25 
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Exercise  3.2: ソフトウェア テスト アプリ ケーシ ヨンで は 演算 処理 

の 間に 与えら えれ た 手続が 何度 呼ばれ たかを 数えられ ると 便利で 
ある。 1 引数 手続 f を 入力と して 取る 手続 make-monitored を 書け。 
make-monitored の 返す 結果 は 第三の 手続 （mf としょう） は 内部 力 
ゥンタ を 保持す る ことで 何回 呼 出され たかを 追跡す る。 もし mf へ 
の 入力が 特別な シンボル how-many-calls? であるなら、 mf は カウ 
ンタの 値 を 返す。 入力が 特別な シンボル！ ■eset-count であるなら 
mf は カウンタ を ゼロに リセ ッ ト する。 任意の 他の 入力に 対して は 
mf は その 入力 上の f 呼 出の 結果 を 返し カウンタ を 1 増やす。 例え 
ば 監視 版の sqrt 手続 を 作る こと がで きる だろう。 

V def ine   s に maKe - monitored   sqrt ； ) 

(s 100) 

10 

( s  'how-many-calls?) 


Exercise  3.3:  make-account 手続 を 変更し パス ヮ一 ドで 守られた 口 
座 を 作成す るよう にせよ。 即ち make-account は シンボル を 追加 引 
数と して 以下の よう に 取得す る。 

、deiine   acc     make -account 100    1  secret-password)) 

結果の 口座 オブジェ ク トは リクエスト をァ カウン ト 作成 時の パス 
ワード が 付随す る 場合の み 処理 を 行い その他の 場合に は 間違い だ 
と 返す。 

v.  (  acc    '  secret-password    1  withdraw )  40) 

60 

、(acc    1  some-other-password    1  deposit )  50) 

"Incorrect  password" 

Exercise  3.4:  Exercise  3.3 の make- account 手続に 別の 口一 カル 状 

態 変数 を 追加す る ことで 変更し、 口座が 7 回 連続 間違った パス ヮ 
—ドで アクセス された 場合に 手続 call-the-cops  (警察 を 呼ぶ） を 
実行す るよう にせよ。 
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3.1.2 代入 導入の 利点 

私達が 学ぶ に 従い、 代入 を 私達の プロ ダラ ミ ング 言語に 導入した こと は 難 
しい 概念 上の 問題の 藪の 中へ と 導きます。 それでも なお システム を ローカルな 
状態 を 持つ オブジェクトの 集合と して 見る こと は モジュラ な 設計 を 維持す る 為 
の 強力な テクニックです。 簡単な 例と して、 呼ばれる 度に 無作為な （ランダム 

な） 整数 を 返す 手続 mud の 設計に ついて 考えて みて 下さい。 

" ラ ン ダム に 選択" が 何 を 意味す るの か は 全 く わか リ ません。 恐らく 私達が 
欲しい 物 は rand への 連続した 呼 出が 統計 上の 性質と して 均一な 分散 を 持つ 一 
連の 数値 を 生じて 欲しい のでしょう。 ここで は 適切な 数列 を 生成す る 手法に つ 
いて は 議論し ません。 そうでな く、 数値れ を 与えて 開始した 場合に 以下の 数列 
を 生成す る 性質 を 持つ 手続 rand-update を 既に 持って いると 想定し ましょう。 

X2  =  (rand-uuaate  X\ ) 
X3  =   (rand-uuaate  Xi ) 

する と 数列 れ， X2,  X3,... は 望まれた 統計的 性質 特性 を 持つ でしよ う。 6 

rand を ある 固定 値 random-init で 初期化 される ローカル 状態 変数 x を 持 
つ 手続と して 実装で きます。 rand への 各 呼 出 は 現在の x の 値の rand-update 
を 演算し、 これ を 乱数と して 返し、 また 同時に この 値 を x の 新しい 値と して 格 
納 します。 

dei ine   rand   (let    (  (x  random-mit  ； ) 
(lambda   ( ) 

(set!    x    (rand-update  x) ) 

x))) 

もちろん、 代入 を 用いずに 単純に： rand-update を 直接 呼ぶ ことで 同じ 乱数 列 を 
生成す る こと も 可能でした でしよう。 しかし、 これ は 私達の プログラムの 乱数 

6rand-update を 実装す る 1 つの 一般的な 方法 は :c は a:r  +  b  modulo  m に 更新され る 
とする、 この 時 b,  rri は 適切に 選択され た 整数で あると いう ルール を 用いる ことです。 
Knuth  1981 の 3 章 は 広範囲に 及ぶ 乱数 列 を 生成す るた めの テクニックの 議論 を 含んで お 
り、 また それらの 統計的 性質 を 規定して います。 rand- update 手続が 数学 上の 関数 を 計 
算 している ことに 注意して 下さい。 同じ 入力 を 2 回 与えられれば 同じ 出力 を 生成し ます。 
従って rand-update により 生成され る 数列 は "ランダム" が 数列の どの 数値 も 以前の 数 
値に 関係が 無い と 主張す るので あれば、 明らかに" ランダム" ではありません。 "真の 無 
作為 性 （ランダム ネス）" と 上手く 決定され た 計算で 生成され るが それでも 適切な 統計 上 
特性 を 持つ pseudo-raruiom (擬似 乱数） 列の 間の 関係 は 数学 と 哲学の 難 しい 問題 を 巻き込 
む 複雑な 質問です。 Kolmogorov,  Solomonoff, それに Chaitin は これらの 問題の 解明に 
おいて 大きな 進展 を 上げました。 これに 関する 議論 は Chaitin  1975 に 見つかり ます。 
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を 用いる 任意の 部分が 明示的に x の 現在の 値 を rand-update の 引数と して 渡 
すため に 記憶せ ね ばなら ない こと を 意味す る ことになります。 これが どれ だ け 
不快で あるか を 気付く ために、 乱数 を Monie  Carlo  simulation  (モンテカルロ 
シミュレーション） と 呼ばれる テクニック を 実装す るた めに 乱数 を 用いる 場合 
について 考えて みま しょう。 

モンテカルロ法 は 巨大 集合から 無作為に サンプル 試行 を 選択す る こと と、 
その 次に それら の 試行 上の 結果の 集計 か ら 推測 さ れた 確率 を 基準に して 演繹 を 
行う ことから 成り立ちます。 例えば 7T を 6/vr2 は 2 つの 無作為に 選択され た 整 
数に 公約数が 無い 場合の 確率で あると いう 事実 を 用いて 近似値 を 求められ ま 
す。 言い換え ると、 2 つの 整数の 最大公約数が 1 になる 場合と いう ことです。 7 
7T の 近似値 を 求める ために は 数多くの 試行 を 行います。 各 試行 において 2 つの 
整数 を 無作為に 選択し、 それらの GCD が 1 であるか を テストし ます。 テスト を 

パスした 回数の 割合 は 6/7T2 の 近似値 を 与えて くれます。 この 値から 7T の 近似 
値 を 得ます。 

プログラムの 心臓部 は 手続 monte-carlo です。 これ は 試行 回数と 引数が 無 
く 実行され る 度に 真偽 値 を 返す 手続と して 表される 試行 を 引数と して 取り ま 
す。 monte-carlo は 試行 を 指定され た 回数 実行し、 試行が 真と 判定され た 割合 
を 表す 数値 を 返します。 

V def ine    (estimate - pi   trials ) 

V  sqrt    (/  6   (monte  —  car 丄 o  trials  cesaro-test);)) 
( def  ine    ( cesaro-test ) 

(= (gcd   (rand)    (rand)) 1)) 

( def  ine    (monte-carlo  trials   experiment ) 

( dei ine    v iter  tr ial s- remaining  trials-passed) 
( cond   ( (=  tr ial s- remaining  0) 

(/  trials-passed  trials ) ) 
( ( experiment ) 
( iter    (-  trials-remaining 1) 
(+  trials-passed  1))) 

(else 

( iter    (-   trials-remaining 1) 
trials-passed)))) 

7 この 定理 は E.  Cesaro による ものです。 その 議論と 証明に ついては Knuth  1981 の 節 
4.5.2 を 参照して 下さい。 
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( iter  trials   0) ) 


さて 同じ 計算 を rand の 代わ リ に rand-update を 用いて やって みま しょう。 局 
所 状態 を モ デル 化す るた めに 代入 を 用いない 場合に 続行 を 強制 さ れる 手法です。 

V def ine    (estimate - pi   trials ) 

、 sqrt    (/   6   (r andom-gcd-te st   trials   random- m it ) ) ; ) 
( def  ine    (random- gcd-test   trials   initial - x) 

( dei ine     iter  trials- remaining  trials-passed  x) 
(let    ( (xl (rand-update  x) ) ) 
(let    ( (x2    (rand-update  xl))) 
( cond に、 = trials -remaining  0) 

( /  trials-passed  trials ) ) 
((= (gcd  xl x2) 1) 


( iter    (一  trials- remaining 
(+  trials-passed 1) 

x2)) 


( else 
( iter 


iter  trials  0 


(- trials-remaining 
trials-passed 
x2)))))) 
initial - x ) ) 


i) 


i) 


プログラム は 今 も 単純で はあり ますが、 いくつか モジュール 方式に 対する 苦痛 

を 伴な う 侵害 行為が あり ます。 rand を 用いる 最初の 版で は モンテカルロ法 を 
直接、 引数と して 任意の experiment 手続 を 取る 全体 的な monte-carlo 手続に 
て 表す ことができました。 乱数 生成に 対する 状態 変数の 無い 2 つ 目の 版で は 
r  andom-gcd-te  st が 明示的に 乱数 xl と x2 を 管理し、 x2 を 繰り返しの ループ を 
通して rand-update に対する 新しい 入力と して リサイクルし なければ な リ ま 
せん。 この 明示的な 乱数の 取扱 は テス ト 結果の 蓄積 構造と 私達の 試行が 2 つの 
乱数 を 利用 するとい う 事実 を 一緒に 密に 結合し ます。 例え 他の モンテカルロの 
試行が 1 つや 3 つの 乱数 を 使う にしても です。 ト ップ レベルの 手続 estimate- 
pi  で すら 乱数の 初期値 を 提供す る  ことに 関心 を 持たねば なり  ません。 乱数 生成 
器の 内部が プログラムの 他の 部分に 漏れ 出す こと は モンテカルロの 考え を 分離 
し 他の タスクに 適用す る こと を 難しく します。 プログラムの 最初の 版で は 代入 
が 乱数 生成 器の 状態 を rand 手続の 中に カプセ ル化 している ため 乱数 生成 器の 
詳細 は プログラムの 他の 部分からの 独立 を 維持して います。 

モ ンテ カルロの 例に て 説明され た 一般的な 事象 は 以下の と お リ です。 複雑 
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な プロセスの 一部の 視点から は 他の 部分 は 時間に 従い 変化す るよう に 見え ま 
す。 それら は 時間と 共に 変化す る ローカルな 状態 を 隠して います。 もし この 分 
解 を 反映す る 構造 を 持つ 計算機 プロ グラム を 書きたい のなら ば、 振舞が 時間 と 
共に 変換す る （銀行口座と 乱数 生成 器の 様な） 計算 オブジェクト を 作成し ます。 
私達 は 状態 を ローカル 状態 変数 を 用いて モデル 化し、 状態の 変化 を それらの 変 
数への 代入に て モデル 化します。 

この 議論 を 次の よう 述べる ことで 結論 付ける こと は 魅力的です。 曰く、 代 
入 と 状態 を 局所 変数に 隠す 技術 を 紹介す る ことで、 追加の パラメータ を 渡す こ 
とで 全ての 状態が 明示的に 操作され なければ ならない 場合よ り も、 よ リ モジュ 
一 ル化を 行う 方法で システムの 構造 化 を 行えます、 と。 残念ながら これから 学 
ぶように、 このお 話 はそんな に 簡単で はあり ません。 

Exercise  3.5:  Monte  Carlo  integraiioni モン 丁 カル D 積分) は モン 

テ カルロ  • シミュレーション を 用いて 定 積分 を 推測す る 手法 だ。 
述語 P(x,  y) で 記述 される 空間の 領域の 面積 を 計算す る 場合 に つ 
いて 考えて みる。 述語 POr") は 点 （:r, リ） 力 《 領域の 中で あれば 真で 
あり、 そうでなければ 偽で ある。 例えば 中心 （5，  7)、 半径 3 の 円に 
含まれる 領域 は (x  ―  5)2  +  (リ — 7)2  <  32 であるか テス ト する 述語 
にて 記述され る。 そのよう 述語で 記述 さ れた 領域の 面積 を 推測す 
るた めに その 領域 を 含む 長方形 を 選択す る ことから 始める。 例と 
して 対角線 上の 角 を （2,  4) と （8, 10) に 持つ 長方形 は 先程の 円 を 含 
む。 期待され る 積分 は その 領域が 位置す る 長方形の 一部の 面積 だ。 
長方形の 中の 点 （:r,j/) を 不作為に 選択し、 各 点に 対し POr,?/) をテ 
ス ト しその 点が 元の 領域の 中で あるか どうか を 決定す る ことで 積 
分 を 推定す る ことができる。 もし こ の 試行 を 数多く の 点で 行 え ば 
領域の 中に 落ちる 点の 割合 は 長方形の 内の その 領域の 割合の 推定 
値 を 与える はず だ。 従って この 割合に 長方形 全体の 面積 を 掛ける 
ことで 積分の 推定 値 を 生成 可能で ある。 

モンテカルロ 積分 を 手続 estimate-integral として 実装せ よ。 こ 
れは 引数と して 述語 P、 長方形の 上 下界と して xl, x2,  yl, y2、 そ 
して 推定 値 を 生成す るた め 実行す る 試行 回数 を 取る。 手続 は 上で 
■K を 推測す るた めに 使用 し た monte-carlo 手続 を 同 じ く 使用せ ね 
ばなら ない。 estimate-integral を 用いて tt の 推測 値 を 単位 円の 
面積 を 測る ことで 求めよ。 

与えられた 値 域から 不作為に 選択され た 数値 を 返す 手続 を 持つ 
ことが 便利で ある と 発見す るか も しれない。 以下の random-in- 
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range 手続 はこれ を Section  1.2. 6 で 使用した random 手続 を 用いて 
実装す る。 これ は 入力より 小さな 非 負数 を 返す。 8 


(define     random- in- range   low  hign) 
(let    ( (range    (-  high  low) ) ) 
(+ low    (random  range ) ) ) ) 

Exercise  3.6: 乱数 生成 器 を 与えられた 値から 始まる 列 を 生成す る 

ため リセット する こと がで きれば 便利で ある。 シ ン ボル generate 
または シンボル reset のどち らかを 引数と して 呼び出す 新し 
い rand 手続 を 設計せ よ。 これ は 次のように 振る舞う。 （rand 
'generate) は 新しい 舌し 数 を 生成す る。 ((rand  'reset)  (new- 
value))  は 内部の 状態 変数 を 指定され た 〈new- vaJue  〉 で リセ ッ 
ト する。 従って 状態 を リセ ッ ト する ことで 繰り返し 可能な 列の 生 
成が 行える。 これ は 乱数 を 用いる プログラムの テス トゃ デバッグ 
において とても 役に立つ。 

3.1.3 代入 導入の コス 卜 

ここまで 見て きたと おり、 set! 命令 は ローカルな 状態 を 持つ オブジェ ク ト 
の モデル 化 を 可能に します。 しかし この 利点 は 犠牲 を 伴ない ます。 私達の プロ 
ダラ ミ ング 言語 は Section  1.1.5 で 紹介した 手続 適用の 置換 モデル を 用いて 説明 
する ことができません。 加えて、 プログラミング 言語の 間に オブジェクトと 代 
入 を 取り扱う ための 適切な フレームワーク となる "良い" 数学 上の 特性 を 伴な 
う 簡単な モデル 力 《 存在 しません。 

代入 を 使わない 限り、 同じ 引数 を 伴な う 同じ 手続の 二度の 評価 は 同じ 結果 
を 生じ、 手続 は 数学 上の 関数の 計算と 見る ことができます。 私達が この 本の 最 
初の 二 章 を 通じて 行って きたよう な 代入 を 使用し ない プログラミング は、 それ 
故に functional  progmmmingi^i 数型プ D ヴラミ ング） と して 知られて います。 

代入が 問題 を どのよう に 困難に する か を 理解す るた めに、 Section  3.1.1 の 
make-withdraw 手続 を 残額が 十分で あ るかの チヱ ックを 行わな レ 、様に 単純化 し 
た 版に ついて 考えます。 

(, def ine    (make - simp 丄 ii led - withdraw  balance  ) 


8  MIT  Scheme は そのよう な 手続 を 提供し ます。 も し random が （Section 1ュ6 での 様 
に） 整数 を 渡されれば、 整数 を 返します。 しかし （この 課題の ように） 小数 を 渡された 場 
合に は 小数 を 返します。 
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( lambda   ( amount ) 

(set!    balance    (-  balance   amount ) ) 
balance ) ) 

( def ine  W   (make- simplif ied- withdraw  25) ) 

(W  20) 
5 

(W 10) 
-5 

この 手続と 以下の set! を 使用し ない make-decrementer 手続と を 比べて みて 

下さい。 

def  ine    (make-decrementer  balance) 
、丄 ambda   ^  amount ) 

(- balance   amount ) ) ) 

make-decrementer は 指定 さ れた 残高 balance から その 入力 を 引きます。 しか 
し 連続した 呼び出し において make-simplified-withdraw のよう な 累積 効果 は 

あり ません。 

def  ine  D   ^maKe-decrementer   25; ) 
(D  20) 
5 

(D 10) 
15 

make-decrementer が どのよう に 働く かの 説明に は 置換 モデル を 使用で きます。 
例えば 以下の 式の 評価 を 解析して みま しょう。 

^(make-decrementer   25)  20; 

最初に 結合の オペレータ を make-decrementer の ボディの balance を 25 と 置 
き 換える ことにより 簡約し ます。 式 は 以下の ようになり ます。 

、 ( lambda   、  amount ) い 25  amount ) )  20) 

lambda 式の ボディに ある amount を 20 と 置き換える ことで オペレータ を 適用 
します。 

(- 25  20) 
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最終的な 答 は 5 です。 

しかし も し make-simplified-withdraw に対して も 同様の 置換 分析 を 試み 

れば 何が 起 こ る か 観察 してみ て 下さい。 

、(！ nake - simplified - withdraw  25)  20) 

最初に make-simplif  ied-withdraw のホ ティ にある balance を 25 に 置 さ 換え 

る ことで オペレータ を 簡約し ます。 これにより 式 は 以下の ようになります。 9 

(. ( lambda   (,  amount  ；    I,  set  ！    balance    (-  25  amount  ；  )    25)  20) 

ここで lambda 式の ボディの 中の amount を 20 に 置き換えて オペレータ を 適用 
します。 

(set ！   balance   (-  25  20) )  25 

も し 置換 モデルに 執着す るので あれば、 手続の 適用の 意味 は 最初に balance 
を 5 に 設定し、 次に 式の 値と して 25 を 返す と 言わざる を 得ません。 これ は 
間違った 答 を 得ます。 正しい 答 を 得る ために は、 どうにかして 最初の 位置の 
balance(set! の 効果 以前） を 2 つ 目の balance(set  ！ の 効果の 後） から 区別せ 
ねばな リ ません。 そして 置換 モデル はこれ を 行う ことができません。 

ここでの 問題 は 置換 は 詰まる ところ、 私達の 言語の シンボルが 本質的に 値 
の 名前で あると いう 概念に 基いて います。 しかし set! と 変数の 値が 変更で き 
ると いう 考え を 紹介して から 直ぐに、 変数 は 最早 単純な 名前で は あ リ 得ません。 
今では 変数 はどうに かして 値 が 格納 できる 場所 を 参照し、 その 場所に 格納され 
た 値 は 変更す る ことが 可能です。 Section  3.2 にて、 環境が どのよう にして この 
"場所" の 役割 を 演じる のかに ついて 学びます。 


同一 性と 変更 

ここで 表出した 問題 は 特定の 演算 モデルが 単に 崩壊した よ り もずつ と 深淵 
です。 私達の 計算 モデルに 変更 を 紹介して 直ぐに、 以前 は 簡単であった 多くの 
概念が 難問と 化します。 2 つの 物が" 同じ" であると いう 観念に ついて 考えて み 
ましょう。 

make-decrementer を 同じ 引数 を 与えて 二度 呼び 二つの 手続 を 作成した と 
します。 


9 set! 式に 存在す る balance は 置き換えません。 なぜなら set! 内の 〈name〉 は 評価 
されない からです。 もし これ を 匱き 換えれば （set!  25  (-  25  amount)) を 得る ことにな 
り ます 力 又 これ は 意味が あ リ ません。 
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(define  Dl (make-decrement er  25) ) 
(define  D2   (make-decrement er   25) ) 

Dl と D2 は 同じでしょう カリ 無難な 答 は YES です。 D1 と D2 は 同じ 計算 上の 振 
舞 を 持ち、 それぞれが 入力から 25 を 引く手 続です。 実際に D1 は 任意の 計算に 
おいて 結果 を 変える ことなく  D2 の 代替に できます。 

これと make-simplified-withdraw の 二度の 呼 出と を 対比し ます。 

(, def ine  Wl (make  -  simplified  -  withdraw  25) ； 
(define  W2   (make - simplified - withdraw  25) ) 

Wl と W2 は 同じで しょ う 力 v? もちろん 違います。 W1 と W2 の 呼 出 は 区別 可能な 
効果 を 持ちます。 以下の 応答 列 に よ リ それが 示 されます。 

(W1 20) 
5 

(W1 20) 
-15 

(W2  20) 
5 

例え W1 と W2 力5' 同じ 式 (make-simplified-withdraw  25) を 評価す る こ とで 作 

成された という 点で" 同じ" であっても、 W1 が 式の 評価の 結果 を 変え ずに 任意 
の 式で W2 の 代替になる かとい うの は 正しく あり ません。 

式に おいて 式の 値 を 変化せ ずに "等しい 物 は 等しい 物で 置き換えられる" 
という 観念 を 支持す る 言語 は re/ererrfidny  iransparerrf (参照 透明） と 呼ばれます。 
参照 透明 は 私達の 計算機 言語に set! を 含めた 時 侵害され ました。 これが いつ 
式 を 等価な 式で 置き換える ことで 簡約で きる か を 決定す る こと を 扱いに く  く し 
ます。 結果 的に、 代入 を 用いる プログラムに ついての 推測 は 大幅に ょリ 難しく 
なり ます。 

参照 透明 を 無しで済ませば、 計算 オブジェ ク トが" 同じ" である こと を 意味 
する 概念が 形式的に 捉える ことが 難しく な リ ます。 本当に 実際の 世界での "等 
価" の 意味 は 私達の プログラム モデル は それ 自身に おいて 全く 明確 に なり ませ 
ん。 一般的に 2 つの 恐ら く 同じ オブジェ ク トが 本当に "同じ 物" であるか は 一 
方の オブジェ ク トを 変更した 場合に もう 一方の オブジェ ク トが 同様に 変化した 
か を 観察す るし か 手立てが ぁリ ません。 しかし オブジェ ク トカひ 変更され た" 
こと を "同じ" オブジェ ク トを 2 回 観察し， オブジェ ク トの ある 属性が 1 回目の 
観察から 次に 対して 異なる かどう か を 見る 以外に どうやって 判断で きる のでし 
よう 力、。 従って "同一 性" の 何ら かの a  priori (先験的な） 概念 無しに "変化" を 
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判断す る ことができません。 そして 変化の 結果 を 観察せ ず に 同一 性 を 判断す る 
こと はで きないの です。 

この 問題が プロ グラ ミ ング において どのよう に 発生す るかの 例と して、 

Peter と Paul が $100 入って いる 口座 を 持って いる 状態に ついて 考え まし よ う。 
これ をモ デル 化する に当たって 以下の 定義と 

def ine  peter - acc    (make-account    100) ) 
(define  paul-acc    (make -account    100) ) 

以下の 定義で は 大きな 違いが ぁリ ます。 

def  ine  peter-acc    (make-account    100) ) 
( def  ine  paul-ac  c  peter-acc ) 

最初の 状況で は、 2 つの 銀行口座 は 区別で きます。 Peter により 行われた 取引 
は Paul の 口座に は 影響 を 与えません。 逆 も 同じです。 2 つ 目の 状況で はしか 
し、 paul-acc が peter-acc と 同じ 物になる よう 定義し ました。 実際に Peter 
と Paul は 今では 連結 銀行口座 を 持って おり Peter が peter-acc から 引き出し 
を 行え ば Paul は paul-acc の 残額が 減った こと を 観察す るでしょう。 これら 
の 2 つの 似て いるが 区別で きる 状況 は 計算 モデルの 構築に おいて 混乱の 元と な 
リ 得ます。 具体的に は、 共有 口座の ために 1 つの オブジェ ク ト （銀行口座） が 2 
つの 異なる 名前 （peter-acc と paul-acc) を 持つ こと は 特に 混乱し ます。 プロ 
グラムの 中で paul-acc を 変更す る ことができる 箇所 を 全て 探す 場合、 peter- 
acc  を 変更す る 箇所 もまた 探さねば ならない こと を 覚えて おかなければ なり ま 
せん。 1Q 

上記の "同一 性" と "変更" 上の 見解への 参照と 共に、 も し Peter と Paul は 
差 引 残高 を 調べられる だけで 差 引 残高 を 変更す る 命令 を 実行す る ことができ 
ない 場合、 2 つの 口座が 区別で きる かどう かとい う 問題が 無意味になる のかに 
ついて 注意して 下さい。 一般的に、 データオブジェクト を 変更し ない 限り、 複 


10 単一の 計算 オブジェ ク トが 複数の 名前に より アクセス される 事象 は aKasin^ エイ リ 
ァ シン グ） として 知られて います。 連結 銀行口座の 状況 は エイリアス のとても 簡単な 例 
を 説明し ます。 Section  3.3 では "識別 可能" な 複合 データ 構造が 一部 を 共有す るよう な 
さらに 複雑な 例に ついて 学びます。 バグ は プログラムの 中で オブジェ ク 卜に 対する 変更 
が" 副作用" と して "異なる" オブジェ ク ト に対して も 変更 を 行い 得る 場合 を 忘れて いる 
時に 発生し ます。 2 つの "異なる" ォ ブジェク 卜が 実際に は 異なる エイ リ ァスの 下に 現れ 
る 単一の オブジェ ク ト であるた めです。 これら は side- effect  irnjy^ 副作用 バグ） と 呼ば 
れる 物で 位置の 特定 や 分析が とても 難しいた め 一部の 人々 は プロ グラ ミ ング 言語 は 副 作 
用 や エイ リ ァスを 許可し ないよう 設計され るべき だと 提案して います。 （Lampson  et  al. 
1981;  Morris  et  al.  1980) 


245 


合 データ オブジェ ク ト を まさに それの 部分の 全体で あると 見做す ことができ 
ます。 例えば、 分数 は その 分子と 分母に より 決定され ます。 しかし この 見方 は 
変更が 存在す る 時には、 複合 データ ォブ ジヱク 卜が それが 組み立てられ ている 
部品と は 異質の" アイデンティティ （自己 同一 性)" を 持つ 場合に は 有効で は あ 
りません。 銀行口座 は 例え 引き出し を 行う ことで 残高 を 変更しても 依然として 

"同じ" 銀行口座です。 反対に、 同じ 状態 情報 を 持つ 2 つの 異なる 銀行口座 を 持 
つ こと もで きる でしよう。 こ の 複雑さ は 私達の プロ ダラ ミ ング 言語に よる 物で 
はなく、 私達の オブジェクト としての 銀行口座の 認知に よる ものです。 例えば 
私達 は 通常 分数 を 同一 性 を 保ちな が ら 変更 可能な ォ ブジ ェクト だと は 見做 し ま 
せん。 分子 を 変更したら" 同じ" 分数 を だと は 思いません。 

命令 型 プロ グラ ミ ン グの 落と し 穴 

関数 型 プロ ダラ ミ ングと は 反対に、 代入 を 広範囲に 用いる プロ グラ ミ ング 
は imperative  programming ゆ 令 型 プログラミング) として 知られて います。 計 
算 モデルに 関する 複雑さ を 上げる のに 加えて、 命令 型 スタイルで 書かれた プロ 
グラム は 関数 型 プログラム では 起こり 得ない バグ を 起こし やすくなります。 例 
え ば Section  1.2. 1 の 反復 指数 プログラム を 思い出して 下さい。 

v. dei ine   (factorial n) 

dei ine    v.  iter  Droduct   counter ) 
( if    (>   counter  n) 
product 

( iter    (*   counter  product )    (+   counter  1)))) 
(iter 1 1)) 

内部の 反復 ループ 内で 引数 を 渡す 代わりに 変数 product と counter の 値の 明 
示 的な 代入 を 用いる ことで より 命令 型の スタイル を 受け入れる ことができます 

、 define    (factorial n) 
(let    "product 1) 
(counter 1) ) 
( def  ine    ( iter ) 

(if    (>   counter  n) 
product 

(begin   (set!    product    (*   counter  product ) ) 
(set!    counter    (+   counter 1) ) 
(iter)))) 
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(iter))) 


これ は プログラム により 生成され る 結果に 違いが あり ません。 しかし 微妙な 罠 
を 招いて います。 私達 は 代入の 順序 を どのように 決めた のでしょう 力、。 たまた 
ま 上の プログラム は 正しく 書かれて います。 しかし 代入 を 逆順に 書く こと は 

V  set ！    counter    (+   counter 1 リ) 

v.  set  ！    uroduct    (*   counter  product ) ； 

異なる 間違った 結果 を 生じる ことでしょう。 一般的に 代入 を 伴な う プロ グラミ 
ン グは各 命令が 変更 された 変数の 正しい 版 を 用いる こと を 確認す るた めに、 私 
達に 注意 深く 代入の 相対 順序 を 考える こ と を 強制し ます。 この 問題 は 単純に 関 
数 型 プロ ダラ ミ ング では 起こ リ ません。 11 
命令 型 プログラムの 複雑さ は 複数の プロセスが 並行に 実行され る アプリ ケ 

ーシ ヨン を 考える 場合により 悪くな り ます。 この 点に ついては Section  3.4 にて 
戻り ます。 しかし 最初に 代入 を 含む 表現の ための 計算 モデル を 提供す る 場合の 
問題 を 提示し ます。 そして シミュレーションの 設計に おいて ローカルな 状態 を 
持つ オブジェクトの 使用 を 検討 します。 

Exercise  3.7:  Exercise  3.3 で 記述した パス ヮー ド 変更 を 用いる 
make-account によ リ 作成され た 銀行口座 ォ ブジェク ト について 考 
え る 。 私達の 銀行 システム が 連結 口座の 開設 能力 を 必要と すると 
仮定しょう。 これ を 達成す る 手続 make- joint を 定義せ よ。 make- 
joint  は 3 つの 引数 を 取らねば ならない。 第一 は パス ヮー ドで守 
られた 口座で ある。 第二 引数 は パス ヮー ドで make- joint 命令が 成 
功す る ために は 口座が 開設 された 時点の パス ヮー ド に 合致 し な け 
れ ばなら ない。 第三 引数 は 新しい パスワード である。 make-joint 
は 元の 口座に 対して 新しい パス ヮー ドを 用いる 追加の アクセス を 
作成す る。 例えば peter-acc が パスワード open-sesame を 用いる 
銀行口座 であれば、 


11 この 視点で は プロ グラ ミ ング 入門が 高度に 命令 型 スタイル を 用いながら 最も 頻繁に 
教えられ ている こと は 皮肉な 事です。 これ は 1960 年代から 1970 年代までの 間中、 手続 
を 呼ぶ プログラム は 本質的に 代入 を 実行す る プログラムよりも 非 効率で あるに 違いない 
という 共通の 信念の 名残で しょう。 （Steele  1977 が こ の 論争が 誤 りで ある こと を 示し まし 
た)。 あるい は 行 毎の 代入 を 思!/  、浮かべる こ と が 初心者 にと つて 手続 呼 出よ り も 簡単で あ 
ると いう 見方 も あるでしょう。 どのような 理由し ろ、 この こと は 初級 プログラマに 対し 
"私 はこの 変数 を あれよ リ前か 後に 設定す るべき か？" といった プロ グラ ミ ングを 複雑に 
し、 重要な 考慮 点 を 不明瞭に する 心配事 を しばしば 負わせる ことになります。 
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(define  paul-acc 

(make- j  oint  peter-acc    ' open-sesame    '  rosebud ) ) 

上 言 己 は peter-acc に 対し 名前 paul-acc とノ く スヮー ド rosebud を 

用いて 取引す る こと を 可能に する。 この 新しい 機能に 対応す るた 
め あな たの Exercise  3.3 への 解答 を 変更した いと 思う だろう。 

Exercise  3.8:  Section  1.1.3 にて 評価 モデル を 定義した 時、 式の 評 
価の 最初の ス テツ プは その 部分 式 を 評価す る こと だと 述べました。 
しかし 部分 式 を 評価す る 順に ついては 指定し ませんで した。 （例え 
ば 左から 右 や 右から 左です)。 代入 を 導入す る 時、 手続に 対する 引 
数が 評価され る 順 は 結果に 違い を 起こせます。 以下の 式 を 評価し 
た 時に、 

(+   (f   0)    (f 1)) 

+ の 引数が 左から 右へ 評価され た 場合に 0 を 返し、 右から 左へ 評価 

された 場合に 1 を 返す ようにす る 簡単な 手続 f を 定義せ よ。 


3.2 評価の 環境 モデル 

複合 手続 を Chapter 1 で 紹介した 時、 手続 を 引数に 適用す る こと 力 《 何 を 意味 
する か 定義す るた め 評価の 置換 モデル を 使用し ました （Section  1.1.5)。 

• 複合 手続 を 引数に 適用す るた め、 手続の ボディ を 各 形式 パラメータ を 相 
対する 引数で 置き換えて 評価す る。 

一旦 代入 を 私達の プロ ダラ ミ ング 言語で 認めれば、 そのよう な 定義 は 最早 適切 
であ リ ません。 具体的に は Section  3.1. 3 で 議論し ました 力、 代入の 出現に より、 
変数 は 最早 単に 値に 対する 名前で ある と 考える ことができません。 そうでな く、 
変数 はどうに かして 値が 格納で きる "場所" を 指定す る ことにな リ ます。 私達 
の 新 しい 評価 モデルで は これら の 場所 は enw'ronmente (環境） と 呼ばれる 構造に 
保存され ます。 

環境 は/ rames (フ レーム） の 列です。 各フ レーム は 6mdings (束縛） の （空の 可 
能 性の ある） テーブルで、 変数 名と それらが 相対す る 値と を 結び付けます。 （単 
一の フレーム は 任意の 変数に 対して たかだか 1 つの 束縛 を 保持し ます)。 各フ 
レーム はまた 議論の 目的の ため フレーム 力お (グロ一 バル、 大域 的） だと 認 
識 されない 限リ、 enclosing  enm'ronmerrf (外部 環境） への ポィ ンタを 持ちます。 
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I 

x:3 

y:5 


C 

D 

II 

z:6 
x :  7 

-  ― 

III 

y:2 

A  B 
Figure  3.1: 単純な 環境 構造 


環境に 対して 皿 fee  of  a  wiridWe (変数の 値） は その 変数に 対する 束縛 を 持つ 環 
境内の 最初の フレーム 内の 変数の 束縛に より 与えられる 値です。 も し 列 内の 全 
ての フレーム がその 変数に 対する 束縛 を 指定し ない 場合、 その 変数 は その 環境 
に tmtotmd (束縛され ない） と 呼びます。 

Figure  3.1 は I,  II,  III と ラベリ ング した 3 つの フレームから 成る 簡単な 環 
境 構造 を 示して います。 図の 中で A,  B,  C,  D は 環境への ポインタです。 C と D 
は 同じ 環境 を 差して います。 変数 z と x は フレーム II に 束縛され、 一方 y と x 
は フレーム I に 束縛され ます。 環境 D の x の 値 は 3 です。 環境 B に対する x の 
値 もまた 3 です。 これ は 次のように 決定され ます。 列の 最初の フレーム （フレ 
ーム III) を 調べます が x に対する 束縛 を 見つけられません。 そのため 外部 環境 
D で 続けて フレーム I の 中に 束縛 を 見つけます。 一方で 環境 A での x の 値 は 7 
です。 列の 最初の フレーム （フ レーム II) が x から 7 への 束縛 を 含んで いるか 
ら です。 環境 A に対して、 フレーム II 内の x から 7 への 束縛 は フレーム I の x 
から 3 への 束縛 を s/iadow (隠蔽す る） と言われます。 

環境 は 評価 プロセスに 対し 不可欠な 存在です。 式 が 評価 されるべき コンテ 
キ スト （文脈） を 決定す るた めです。 実際に プログラミング 言語の 式、 それ 自身 
は 意味 を 持たない と言えるでしょう。 そうでな く、 式 は それが 評価され る ある 
環境に 対しての み 意味 を 獲得し ます。 （+ 1 1) のよう な 簡単な 式の 逐次 実行で 
さえ、 + が 加算の ための シンボル であると いう コ ン テキス ト のなかで 操作して 
いると いう 合意に 依存して います。 従って 私達の 評価 モデルに おいて 私達 は 常 
にある 環境に 対して 式 を 評価す ると 述べます。 インタプリタとの 相互作用 を 説 
明す るた めに、 単一の フレームから 成り立ち （外部 環境 を 持たず)、 プリ ミ ティ 
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ブな 手続に 関連す る システムの 値 を 持つ グロ 一  バル 環境が 存在す ると 仮定し ま 
す。 例えば + が 加算に 対する シンボル であると いう 考え は、 シンボル + が グロ 
一 バル 環境に おいて プリ ミ ティ ブな 加算 手続に 対し 束縛され ている と言う こ と 
で 捉えられます。 

3.2.1 評価の ル一ル 

ィ ンタ プリ タが 組み合わせ を どのよう に 評価す るかの 全体 的な 仕様 は 最初 

に Section  1.1. 3 にて 紹介した 時と 同じに 残って います。 
. 組み合わせ を 評価す るた めに 

1.  組み合わせの 部分 式 を 評価す る。 12 

2.  オペレータ 部分 式の 値 を オペ ラン ド 部分 式の 値に 適用す る。 

評価の 環境 モ デル は 置換 モデル を 複合 手続 を 引数に 適用す る ことの 意味 を 指定 
する ことで 置き換えます。 

評価の 環境 モデルで は 手続 は 常に ある コードと 環境への ポインタの ペア か 
ら 成り立ちます。 手続 はた だ 1 つの 方法で 作成され ます。 それ は A 式 を 評価す 
る ことです。 これにより コードが A 式の テキストから 得られる 手続が 生成され、 
その 環境 は A 式が 手続 を 生成す るた めに 評価され た 環境に な リ ます。 例えば 以 
下の 手続 定義に ついて 考えて みまし よ う。 

dei ine    (  square  x ) 

(*  x  x)) 

この 式 は グローバル 環境で 評価され ました。 この 手続 定義の 文法 は 根底に ある 
暗黙 的な A 式の ための 構文 糖です。 これ は 次 を 行った 場合と 等価です。 

(. del  ine  square 

( lambda   (.x)    (*  x  x ) ) ) 


12 代入 は 評価 ルールの ステップ 1 に 微妙 さ を 取り込みます。 Exercise  3.8 に 示される よ 
うに 代入の 存在 は 組み合わせの 部分 式が どの 順で 評価され るかに 依存して 異なる 値 を 生 
じます。 従って 正確に 述べれば ステップ 1 における 評価 順 を 指定せ ねばな りません。 （例 
えば 左から 右 や 右から 左 等)。 しかし この 順 は 常に 実装 上の 詳細と 考えられねば なり ませ 
ん。 例 え ば 洗練され た コンパイラ は どの 部分 式が 評価され る かの 順 を 最適化の ために 変 
える かも しれません。 
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global 

other  variables 

env 

square : 、 

(define  (square  x) 
(*  x  x))  ひ 

parameters:  x 
body:  (*  x  x) 

Figure  3.2: 大域 環境 内に て （define  (square  x)  (*  x  x)) 

を 評価す る ことにより 生成 さ れた 環境 構造 


これ は （lambda  (x)   (*  x  x) ) を 評価し、 全て グローバル 環境に おいて square 

を その 結果に 束縛し ます。 

Figure  3.2 はこの define 式の 評価 結果 を 示します。 手続 オブジェ ク トは手 
続が 1 つの 形式 パラメータ x を 持ち 手続の ボディが （*  x  x) こと を コードが 
指定す る ペアです。 手続の 環境 部分 は グローバル 環境への ポインタです。 それ 
が A 式が 手続 を 生じる ため 評価され る 環境な ためです。 シンボル square と 手 
続ォ ブジ ェクト を 関連 付け る 新し い 束縛 は グローバルな フレームに 追加され ま 
す。 一般的に define は フレームに 束縛 を 追加す る ことで 定義 を 作成し ます。 

これで 手続が どのよう に 作成され るの か 学んだ ので 手続が どのよう に 適用 
される のか を 説明す る ことができます。 環境 モ デル は 以下の こと を 指定し ます。 
手続 を 引数に 適用す るた めに、 パラメタ を 引数の 値に 束縛す る フレーム を 含む 
新しい 環境 を 作成し ます。 この フレー ムの 外部 環境 は 手続 に よ リ 指定 された 環 
境です。 さて、 この 新しい 環境で 手続の ボディ を 評価し ます。 

この ルールが どのように 従われる かにつ いて 示す ため、 Figure  3.3 は 式 
(square  5) を グローバル 環境に て square 力 figure  3.2 にて 生成され た 手続 あ 
る 場合に 評価す る ことで 作成 さ れた 環境 構造 を 図示して います。 この 手続の 適 
用 は 図で E1 と 示される 新しい 環境の 作成に 帰着し、 手続の 形式 パラメタ x が 
引数 5 に 束縛され ている フレームで 始まって います。 この フレームから 情報へ 
向かう ボイ ン タはフ レームの 外部 環境が グローバル 環境で ある こと を 示し ま 
す。 square 手続 オブジェ ク トの 一部と して 示される 環境で ある ためこ こで グ 
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global 

し   > - 

other  vanaoies 

env 

square : 

(square  5) 

■ 

E1 ~ *■ 

x:5 

1  (*  x  X) 

parameters:  x 

body:  (*  x  x) 


Figure  3.3: 大域 環境 内に て （square  5) を 評価す る ことに 

より 作られた 環境 


ロー バル 環境が 選択され ます。 E1 の 中で は 手続の ボディ （*  x  x) を 評価し ま 
す。 E1 中の x の 値 は 5 であるた め 結果 は （*  5  5)、 つまり 25 です。 
手続 適用の 環境 モデル は 2 つの ルールで まとめられます。 

• 手続 オブジェクト は フレーム を 構築、 手続の 形式 パラメタ を 呼 出の 引数 
へ 束縛し、 新しく 構築され た 環境の コンテキスト にて 手続の ボディ を 評 
価す る ことで 引数の 集合に 手続 を 適用す る ことができる。 

. 手続 は 与えられた 環境に 関連す る A 式 を 評価す る ことで 作成され る。 結 
果と しての 手続 ォ ブジェク トは A 式の テキスト と 手続が 作成され た 環境 
への ポィ ンタ から 成る ペアで ある。 

define を 用いての シンボルの 定義 は 現在の 環境 フレームに 束縛 を 作成し、 そ 
の シ ン ボル に 指示され た 値 を 束縛す る こと もまた 指摘 します。 13 最後 に 、 set  ！ 
の 振舞 を 指定し ます。 私達に そもそも 環境 モデルの 導入 を 強いた 命令です。 あ 
る 環境で 式 （set!  {variable)  (value)) を 評価す る こと は その 環境に 束縛 を 位置 
付け、 その 束縛 を 新しい 値 を 示す よう 変更し ます。 つまり set! は 環境で その 

13 も し 既に その 変数への 束縛が 現在の フレームに 存在す る 場合、 束縛 は 変更され ます。 
これ は シンボルの 再定義 を 可能に する ため 便利です。 しかし define が 値の 変更に 使用で 
きる こと、 そして これが 明示的に set! を 使用せ ずと も 代入の 問題 を 持ち出す こと を 意味 
します。 このため 既存の シンボルの 再定義に 対し エラー や 警告 を 発する こと を 好む 人達 
もい ます。 
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変数の 束縛 を 持つ 最初の フレーム を 探し その フレーム を 変更し ます。 もし 変数 

がその 環境で は 束縛され ていないの であれば set! は エラー を 発します。 

これら の 評価 ルール は 置換 モ デル より 大幅に よ リ 複雑です が、 依然として 
適度に 容易です。 さらに 環境 モデル は 抽象的で すが ィ ンタ プリ タが式 を どのよ 
う に 評価す るかの 正し 説明 を 与えます。 Chapter  4 では この モデルが どのよう 
にうまく 働く インタ プリ タの 実装の ための 設計図と しての 役 を 果たす のかに つ 
いて 学ぶ ことになります 。残りの 節で はいくつ かの 実例と なる プログラム を 分 
析 する ことにより この モデルに ついての 詳細 を 述べます。 


3.2.2 単純な 手続の 適用 

Section  1.1.5 にて 置換 モデル を 紹介した 時、 以下の 手続 定義 を 与えられた 場 
合に 合成 （f  5) が どのように 136 と して 評価され るかに ついて 説明し ました。 

V  def ine    ( square  x ) 

(*  x  x)) 
(define    (sum- of -squares  x  y ) 

(+   ( square  x)    ( square  y ) ) ) 
(define   (f  a) 

( sum - of - squares    (+  a 1 ) (*  a  2))) 

同じ 式 を 環境 モデル を 用いて 分析で きます。 Figure  3.4 は 3 つの 手続 オブジェ 
ク トが f,  square,  and  sum-of-squares の 定義 を 評価す る ことで グローバル 環 
境に 作成 された こと を 示します。 各 手続 ォ ブジ ェクト はいくつ かの コードと グ 
ロー バル 環境への ポインタから 成り立ちます。 

Figure  3.5 は 式 (f  5) を 評価す る ことで 作成され た 環境 構造です。 f の 呼 出 
により f の 形式 パラメタ a が 引数 5 に 束縛され る フレームで 始まる 新しい 環境 
E1 が 作成され ます。 E1 の 中で f の ボディ を 評価し ます。 

、 sum - of - squares    (+  a 1) (*   a  2； ) 

こ の 合成 式 を 評価す る ために 最初 に 部分 式 を 評価 します。 最初の 部分 式 sum- 
of-squares  は 手続 オブジェ  ク  ト である 値 を 持って います。 （この 値が どのよう 
に 見つけられ るかに 注意して 下さい。 最初に E1 の 第一 フレーム を 調べます が 
sum-of-squares の 束縛 は あ り ません。 次に 外部 環境に 進みます。 つまり グロ 
一 バル 環境です。 そこで Figure  3.4 に 示す ように 束縛 を 見つけます)。 他の 2 つ 
の 部分 式 は プリ ミ ティ ブな 命令 + と * を、 2 つの 合成 式 （+  a 1) と （*  a  2) を 
評価し それぞれ 6 と 10 を 得る ために 適用す る ことで 評価され ます。 
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global 
env 


sum - of - squares : 
square:  


parameters:  a  parameters:  x         parameters:  x ,  y 

body:  (sum - of - squares       body:  (*  x  x)       body:  (+  (square  x) 

(+  a 1 )  (square  y)) 

(*  a  2)) 

Figure  3.4: グローバル フレーム 内の 手続 オブジェ ク ト 


これで 手続 オブジェ ク ト sum-of -squares を 引数 6 と 10 に 適用し ます。 結 
果は 形式 パラメタ x と y が 引数に 束縛され る 新しい 環境 E2 へ 帰着し ます。 E2 
内で は 合成 （+  (square  x)  (square  y)) を 評価し ます。 これが （square  x) 
の 評価へ と 移リ、 square は グローバル フレームで 見つかり、 x は 6 です。 もう 
一度、 新しい 環境 E3 を 立ち上げ、 x は 6 に 束縛され E3 の 中で square のボデ 
ィ （*  x  x) が 評価され ます。 また sum-of-squares の 適用の 一部と して 部分 式 
(square  y) も 評価さねば ならず そこで は y は 10 です。 この 2 つ 目の square 
の 呼 出が また 別の 環境 E4 を 作成し、 そこで は square の 形式 パラメタ x は 10 
に 束縛され ます。 そして E4 の 中で はい x  x) を 評価せ ねばな リ ません。 

確認すべき 重要な 点 は square の 各 呼 出が x の 束縛 を 持つ 新しい 環境 を 構 
築す る ことです。 ここで 私達 は 異なる フレームが どのよう にして 全て x と 名 付 
けられた 異なる ローカル 変数の 独立 を 保つ のかに ついて 見る ことができる ま 
す。 square により 作られた 各 フレームが グローバル 環境 を 差して いる ことに 
注意して 下さい。 これ は square 手続 オブジェ ク トが 指す 環境で あるた めです。 

部分 式が 評価され た 後に 結果が 返されます。 2 つの square の 呼 出に よ り 作 
成された 値 は sum-of-squares により 加算され、 この結果が f によ リ 返され ま 
す。 ここでの 私達の 焦点 は 環境 構造 上に あり ますので これらの 返された 値が 呼 
出から 呼 出へ どのように 渡される かに ついては 長々 と 説明 は 致しません。 しか 
し、 これ はまた 評価 処理の 重要な 側面で あり、 Chapter  5 にて これの 詳細に 戻リ 
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global 
env 

(f  5) 


'  、 

r  ヽ 

a:5 

x:6 

x:6 

x:10 

E2  — 

y:10 

E3  — 

E4  — 

(sum - of - squares      (+  (square  x)         (*  x  x)  (*  x  x) 

(+  a 1 )  (square  y)) 

(*  a  2)) 

Figure  3.5:  Figure  3.4 内の 手続 を 用いて (f  5) を 評価す る こ 

とで 作られた 環境 


ます。 

Exercise  3.9:  Section  1.2.1 にて 指数 演算の ための 2 つの 手続 を 解 

析 する ために 置換 モデル を 使用した。 以下が 再帰 版で あ リ 、 

(define    (ェ actoria 丄 n) 

(if    (=  n 1) 1 (*  n   (factorial (- n 1))))) 

以下 は 反復 版で ある。 

(define    (ェ actoria 丄 n)    ( fact- iter 1 1 n) ； 
(define    (土 act —  iter  product   counter  max  —  count ノ 
(if    (>   counter  max-count ) 
product 

(f act-iter    (*   counter  product ) 
(+   counter 1) 
max-count ) ) ) 

各 版の: factorial 手続 を 用いて （factorial 6) を 評価した 場合に 
作成され る 環境 構造 を 示せ。 14 

14 環境 モデル はィ ンタプ リタ は fact-iter のよう な 手続 を 末尾 再帰 を 用いる ことで 一 
定量の 記憶 域に て 実行で きる という Section  1.2.1 での 私達の 主張 を 明確に はしません。 末 
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3.2.3 局所 状態の レ ポジ トリと しての フレーム 

手続と 代入が どのよう にして ローカルな 状態 を 持つ オブジェクト を 表現 
する ために 利用で きる か を 知る ために 環境 モデルに 助け を 求める ことができ 
ます。 

def ine    (make-withdr aw  balance  ； 
( lambda   ( amount ) 

(if    (>=  balance   amount ) 

(begin   (set!    balance    (-  balance   amount ) ) 

balance ) 
■'Insufficient   funds  " ) ) ) 

次の 定義の 評価に ついて 説明して みましょう。 

(define  Wl (make-withdraw   100) ) 
以下の ように 用いた とします。 

(W1 50) 

50 

Figure  3.6 は グローバル 環境に おける make-withdraw 手続の 定義の 結果 を 示し 
ます。 グローバル 環境への ポインタ を 持つ 手続 オブジェクト を 作成し ます。 今 
の 所、 これ は 今までに 見た 例から 異なる 点はありません。 ただし 手続の ボディ 
それ 自身が A 式で ある ことが 異なり ます。 

演算の 面白い 部分 は 手続 make-withdraw を 引数に 適用した 時に 起こ リ ます。 

(, def  ine  Wl    (make -withdraw   100； ) 

通常 通リ に 形式 パラメ タ balance が 引数 100 に 束縛され る 環境 E1 を 設定す る 
ことから 始まります。 こ の 環境の 中 で make-withdraw の ボディ、 即ち A 式 を 評 
価し ます。 これが コード は lambda で 指定され、 環境が E1 である 新しい 手続 ォ 
ブジェク トカ 《構築され ます。 その E1 の 中で lambda が 手続 を 生成す るた め 評価 
されて います。 結果の 手続 オブジェ ク トは make-withdraw を 呼び出して 返され 
た 値です。 これ は グローバル 環境に て W1 に 束縛され ます。 define 自身が グロ 
一 バル 環境に て 評価され たためです。 Figure  3.7 は 結果の 環境 構造 を 示します。 
こ れで W1 が 引数 に 適用 された 時 に 何が 起 こる か を 解析で きます。 

尾 再帰に ついて は Section  5.4 にて インタプリタの コントロール 構造 を 取り扱う 時に 議論 
します。 
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global 


make-withdraw: 


parameters:  balance 
body:  (lambda  (amount) 

(if  (>=  balance  amount) 

(begin  (set ！  balance  (―  balance  amount)) 

balance) 
"insufficient  funds")) 

Figure  3.6: グロ一 バル 環境に て make- withdraw を 定義し 

た 結果 


(W1 50) 

50 

W1 の 形式 パラメ タ amount が 引数 50 に 束縛され る フ レーム を 構築す る こ と 
から 始めます。 観察すべき 重大な 点 はこの フレーム がその 外部 環境と して グロ 
—バル 環境で はなく 環境 E1 を 持って いる 点です。 これが W1 手続 オブジェ ク ト 
により 指示され る 環境 だからです。 この 新しい 環境の 中で 手続の ボディ を 評価 
します。 

(. if    (.>=  balance   amount ) 

(begin   (set!    balance に 一 balance   amount ) ) 

balance ) 
" Insuf  ncient   funds つ 

結果の 環境 構造 は Figure  3.8 に 示されます。 評価され た 式 は amount と balance 
の 両方 を 参照し ます。 amount は 環境の 最初の フ レームに 見つかり ますが、 
balance は 外部 環境 ポインタに 従って El にて 見つか リ ます。 

set! が 実行され た 時、 E1 中の balance の 束縛 は 変更され ます。 W1 の 呼 出 
が 終了す る 時 balance は 50 で、 balance を 含む フレーム は 依然 手続 オブジェ 
クト W1 から 指されて います。 amount を 束縛す る （その 中で balance を 変更す 
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global 
env 


make-withdraw: 
W1 : 


E1 


balance : 1 00 


parameters:  amount 
body:   (if  (>=  balance  amount) 

(begin  (set ！  balance  (-  balance  amount)) 
balance) 

"insufficient  funds") 


parameters:  balance 
body: . . . 


Figure  3.7:  (define  Wl (make-withdraw  100)) を 評価した 結果 


る コード を 実行した） フレーム は 最早 関係が 存在し ません。 それ を 構築した 手 
続 呼 出 は 停止した ためです。 そして その 環境の 他の 部分から その フレーム を 指 
す ポインタ は 存在し ません。 次回 W1 が 呼ばれた 時、 amount を 束縛す る 新しい 
フレームが 構築され その外 部 環境 は E1 になり ます。 私達 は E1 が 手続 才ブジ 
ェク ト W1 のた めの 口一 カル 状態 を 持つ "場所" の 役割 を 果たす の を 見ました。 
Figure  3.9 は Wl を 呼び出した 後の 状況 を 示します。 

二つ目の "withdraw" ォ ブジ ェク トを 別の make- withdraw 呼 出 を 行う こと 
で 作成した 時に 何が 起こる かにつ いて 観察して 下さい。 

(define  W2    (make-withdraw   100) ) 

これにより Figme  3.10 の 環境 構造が 生成され W2 が 手続 オブジェ ク ト であ 
り、 ある 程度の コードと 環境に よる ペアで ある こと を 示して います。 W2 のた め 
の 環境 E2 は make- withdraw の 呼 出に よ り 作成され ます。 それ 専用の balance 
のた めの 口一 カルな 状態 を 持つ フレーム を 含みます。 一方で W1 と W2 は 同じ コ 
—ドを 持ちます。 make- withdraw の ボディ 内の A 式に よ リコ一 ド は 指定され て 
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parameters:  amount 
body: . . . 


E1 ― 


balance : 1 00 


Here  is  the  balance 
that  will  be  changed 
by  the  set! 


amount:  50 


(if  (>=  balance  amount) 
(begin  (set ！  balance 

(- balance  amount)) 
balance) 
"insufficient  funds") 


Figure  3.8: 手続 ォ ブジェク ト Wl を 適用した ことによ リ 作 

成された 環境 


います。 15 なぜ W1 と W2 が 独立した オブジェ ク ト と して 振る舞う のか を ここで 
見ました。 W1 の 呼 出 は E1 に 格納され た 状態 変数 balance を 参照し、 一方 W2 
の 呼 出 は E2 に 格納され た balance を 参照し ます。 従って 一方の オブジェ ク ト 
の ローカル 状態への 変更 は 他方の オブジェ ク トに 影響 を 与えません。 

Exercise  3.10:  make - withdraw 手続で は ローカル 変数 balance は 
make-withdraw の パラメタと して 作成され る。 ローカル 状態 変数 
を 明示的に let を 使って 以下の 様に 作成す る こと もで きる。 

(define    (make -withdraw   initial- amount) 
(let    ( (balance   initial - amount ) ノ 
(lambda   ( amount ) 

v.  if    (>=  balance   amount ) 

15W1 と W2 が 計算機 内の 同じ 物理 コード を 共有して いるか どうか、 または それぞれが コ 
― ドの コピー を 持って いるの か は 実装 上の 詳細です。 Chapter  4 で 実装す る インタ プリ タ 
では コード は 実際に 共有され ます。 
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global 


E1 ― balance:  50 


parameters:  amount 
body: . . . 


Figure  3.9:  Wl 呼 出 後の 環境 


(, Degin   (,  set  ！    balance    (-  balance   amount ) ) 

balance ) 
" Insufficient  funds")))) 

Section  1.3.2 で let は 手続 呼 出の ための 単純な 構文 糖であった こ 
と を 思い出そう。 

(let    ( ( (var)   (exp)))  (body)) 

上記 は 代替 的な 文法と して 以下に 翻訳され る。 
((lambda   ((var))   (body))  (exp)) 

環境 モデル を 用いて この make-withdraw の 代替 版 を 解析 し、 先に 

記述した ような 図 を 描き 相互作用 を 説明せ よ。 

、 def ine  Wl    (make- withdraw   100) ) 
(Wl 50) 

(define  W2    (make-withdraw   100) ) 

make-withdraw の 2 つの 版が 同じ 振舞 を 持つ オブジェ ク ト を 作成 
する こと を 示せ。 環境 構造 は 2 つの 版で どのよう に 違う 力、？ 


260 


global 
env 


make-withdraw: 

W2:  

W1 : 


E1 


balance:  50 


E2- 


balance : 1 00 


parameters:  amount 
body: . . . 

Figure  3.10:  (define  W2  (make-withdraw  100)) を 用いて 

2 つ 目の オブジェクト を 作成 


3.2.4 内部 定義 

Section  1.1.8 では 手続が 内部 定義 を 持つ ここと がで き、 結果と して ブロック 
構造へ と 導く こと を 説明し ました。 以下の 平方根 を 求める 手続が その 例です。 

dei ine    (  sqrt  x  ； 
( dei ine    (good- enough?   guess ) 

(<    ( abs    (-    ( square   guess )   x) )  0.001)) 
( dei ine    v improve   guess ) 

( average   guess    (/  x  guess))) 
( dei ine    (sqrt - iter  guess ) 
( if    (good- enough?  guess) 
guess 

(sqrt - iter    ( improve  guess)))) 
( sqrt - iter  1.0)) 

さて 環境 モデル を 用いて なぜ これらの 内部 定義が 希望 通り に 振る舞う のか を 調 

ベる ことができます。 Figure  3.11 は 内部 手続 good-enough? が guess が 1 に 等 
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しい 場合に 最初に 呼ばれた 状態で 式 （sqrt  2) を 評価した 時点 を 示して います。 
環境 構造 を 観察して 下さい。 sqrt は グローバル 環境に おける シンボルで 
あり 手続 オブジェ ク トに 束縛され、 その 関連す る 環境 は グローバル 環境です。 
sqrt が 呼ばれた 時、 新しい 環境 E1 が 形成され グローバル 環境の 下位に 置かれ、 
その 中で は パラメ タ x が 2 に 束縛され ます。 sqrt の ボディ が 次に E1 の 中で 評 
価され ます。 sqrt の ボディの 最初の 式 は 以下で あり、 

(, def ine    (good-enough  r   guess  ) 

(<    ( abs    (-    ( square   guess)   x) )  0.001)) 

この 式 を 評価す ると 手続 good-enough? が 環境 El の 中に 定義され ます。 具体 
的に は、 シンボル good-enough? が E1 の 最初の フレームに 追加され 環境 E1 を 
指す 手続 オブジェ ク トに 束縛され ます。 同様に improve と sqrt-iter が El の 
中に 手続と して 定義され ます。 簡潔 さの ために、 Figure  3.11 は good-enough? 
に対する 手続 オブジェ ク ト のみ を 示して います。 

ローカル 手続が 定義され た 後に、 式 （sqrt-iter  1.0) がまた 環境 El の 中で 
評価され ます。 そのため E1 の 中で sqrt-iter に 束縛され た 手続 ォブ ジヱク ト 
が 引数 1 にて 呼ばれます。 これが 環境 E2 を 作成し sqrt-iter の パラメタ であ 
る guess せ 1 に 束縛され る。 sqrt-iter は 次に good-enough? を (E2 の、 guess 
の 値 を 引数と して 呼びます。 これが 別の 環境 E3 を 構築し （good-enough? の 
弓 I 数で ある) guess 力 《1 に 束縛され ます。 sqrt-iter と good-enough? の 両方;^ 
guess という 名前の パラメタ を 持ちます 力 《、 2 つの 区別 可能な ローカル 変数が 
異なる フレームの 中に 存在し ます。 また E2 と E3 の 両方が E1 を 外部 環境と し 
て 持ちます。 手続 sqrt-iter と good-enough? の 両方が El を それらの 環境 部 
分と して 持った めです。 これの 結果の 1 つと して good-enough? の ボディ 内の 
シンボル x は E1 内に 存在す る x の 束縛 を 参照し ます。 即ち 元の sqrt 手続が 
呼ばれた 時の x の 値です。 

環境 モデル は 従って ローカル 手続 定義 を プログラムの モジュール 化する た 
めの 便利な テクニック とする 2 つの 鍵と なる 性質 を 説明し ます。 

•  ローカル 手続の 名前 は （直の） 外部 手続の 外側の 名前と 衝突し ない。 ロー 
カル 手続の 名前 は 手続が 実行され る 時に 作成した フレーム 内に て 束縛 さ 
れ るので あり、 グローバル 環境 内で 束縛され る 訳で あり ません。 

•  ローカルな 手続 は それ を 内包す る 外部 手続の 引数に アクセス する ことが 
できます。 単純に パラメタの 名前 を 自由 変数と して 用いる だけです。 こ 
れは ローカル 手続の ボディ は 外部 手続の ための 評価 環境の 下位に 置かれ 
る 環境 内で 評価され るた めです。 
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global 
env 


sqrt : 


E1 


parameters:  x 

body:   (define  good-enough? . 
(define  improve  . . . ) 
(define  sqrt - iter  . . . ) 
(sqrt - iter 1 . 0) 

E2  — 


good-enough? : 
improve : 
sqrt-iter: . . 


guess : 1 


call  to  sqrt-iter 


parameters:  guess 
body:    (<  (abs  . . . ) 
' •..) 


E3- 


guess : 1 


call  to  good-enough? 
Figure  3.11: 内部 定義 を 持つ sqrt 手続 


Exercise  3.11:  Section  3.2.3 では 環境 モデルが どのよう に 口一 カル 
な 状態 を 持つ 手続の 振舞 を 説明す るかに ついて 学んだ。 ここまでで 
内部 定義が どのように 働く かにつ いて 理解した。 典型的な メ ッセ 
—ジ パッシ ン グ 手続 は これら の 側面の 両方 を 持って いる。 Section 
3 丄 1 の 銀行口座 について 考えよう。 

、deiine    (make -account  balance ) 
(,def ine    ^withdraw  amount ) 
(if    (>=  balance   amount ) 

(begin   (set!    balance    (-  balance   amount ) ) 

balance ) 
" Insufficient   funds " ) ) 
(define    ( deposit   amount ) 
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(set!    balance    (+  balance   amount ) ) 
balance ) 
(define    (dispatch  m) 

( cond   ( ( eq?  m    1  withdraw)    withdraw ) 
( ( eq?  m    1  deposit )    deposit ) 
( else 

(error   "Unknown  request : 
MAKE-ACCOUNT" 
m)))) 

dispatch) 

以下の 応答に よ り 生成され る 環境 構造 を 示せ。 

dei ine   acc    v  make -account   50； ) 
( ( acc    ' deposit )  40) 

90 

((acc    1  withdraw)  60) 

30 

acc の 局所 状態 は どこに ある 力、？ 別の 口座 を 定義した とする。 
dei  ine   acc2    ( make -ac  count    100) ) 

2 つの 口座の 局所 状態 は どのよ う に 区別され る 力 マ 環境 構造の どの 
部分が acc と acc2 にて 共有され るか？ 


3.3 ミュー タブ ル データに よる モデリング 

Chapter  2 では 複合 データ を 計算 オブジェ ク ト を 構築す る 手段と して 扱い ま 
した。 これ は 複数の 側面 を 持つ 実際の 世界の オブジェ ク トを モデル 化する ため 
にいく つかの 部品 を 持ちます。 また Chapter  2 では データ オブジェ ク トを 作成 
する コンストラクタと、 複合 データ オブジェ ク トの 部品に アクセス する セレク 
タを 用いて どの データ 構造が 指定され るかに 準ずる データ 抽象化の 規律に つい 
て も 紹介し ました。 しかし 今では Chapter  2 が 解決し なかった データの 別の 側 
面が ある こと を 私達 は 知りました。 状態が 変化す るォ ブジェク ト によ リ 成る シ 
ス テム を モ デル 化 したいと いう 欲求 複合 データオブジェクト を 構築す る こと や 
それらから 選択す る ことと 同様に 変更す る こと の 必要性へ と 導きます。 変換す 
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る 状態 を 持つ 複合 オブジェ ク トを モデル 化する ために、 セレクタ や コンスト ラ 

クタに 追加して、 データオブジェクト を 変更す る rmitators (ミュー テ一 タ、 変化 
させる 物） と 呼ばれる 命令 を 含む ように データ 抽象化 を 設計す る ことにします。 
例えば、 銀行 システムの モデル 化 は 口座の 差 引 残高 を 変更す る 必要が あり ます。 
従って 銀行口座 を 表現す る データ 構造 は 以下の 命令 を 許可す るでしょう。 

setbalance  ！    ( account)  (newa 丄 ue〉) 

これ は 指定した 口座の 差 引 残高 を 指定した 新しい 値に 変更し ます。 ミ ユー テー 

タ が 定義 さ れた デー タ ォ ブジ ェクト は mutable  data  objects^ ミュー タ ブル デ一 
タ才 ブジェク 卜、 変更 可能な オブジェ ク ト） として 知られます。 

Chapter  2 は 複合 データ を 合成す るた め 汎用 目的の "糊" と しての ペア を紹 
介し ました。 この 節 は ペアの ための 基本的な ミュー テータ を 定義す る ことから 
始め、 ペアが 変更 可能な データ オブジェ ク ト を 構築す るた めの 架設 プロ ックと 
して 供給で きる ようにし ます。 これらの ミュー テータ は ペアの 表現力 を 大きく 
拡張し、 Section  2.2 で 用いた 列と 木 以外の データ 構造 を 構築す る こと を 可能に 
します。 複雑な システムが 局所 状態 を 持つ オブジェ ク トの 集合と して モデル 化 
される シミュ レー シ ヨンの いくつかの 例 も 紹介し ます。 

3.3.1 ミュー タブ ルな リスト 構造 

ペア 上の 基本的な 命令  一 cons,  car,  cdr —は リ ス ト 構造の 構築と リ スト 構 
造からの 部品の 選択に 用いる こと がで きます。 しかし それら は リスト 構造 を 変 
更 する 能力 はあり ませんで した。 同じ ことが 今までに 使用した append や list 
の 様な リス ト 命令に も 正しい と 言えます。 これらが cons,  car,  cdr を 用いて 定 
義 できる ためです。 リ ス ト 構造 を 変更す るた め 新しい 命令が 必要です。 

ペアの プリミティブな ミュー テータ は set-car! と set-cdr! です。 set- 
car  ！  は  2  つの 引数 を  取リ、  第一 引数 は ペアで なければ なりません。 この ペアの 
car ボイ ンタを set-car! の 第二 引数への ボイ ンタで 置き換える ことで ペア を 
変更し ます。 16 

例と して Figure  3.12 に 示す よ うに x がリ スト （（a  b)  c  d) に、 y がリ ス ト 
(e  f) に 束縛され ている とします。 式 （set-car!  x  y) の 評価 は x が 束縛され 
ている ペア を 変更し、 その car を y の 値で 置き換えます。 命令の 結果 は Figure 
3.13 に 示されて います。 構造 x が 変更され （（e  f)  c  d) となりました。 リスト 

16 set-car! と set_cdr! は 実装 依存な 値 を 返します。 set! と 同様に それら は それらの 
効果の ためだ けに 使用され るべき です。 
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Figure  3.12: リス 卜 x:  ((a  b)  c  d) と y:  (e  f) 


(a  b) を 表す ペア は、 置き換えられた ポインタ により 特定され てい まし 力、 元 
の 構造から 取り外されました。 17 

Figure  3.13 と Figure  3.14 を 比べて く ださい。 これ は x と y が Figure  3. 12 の 
元の リストに 束縛され ている 時に （define  z  (cons  y  (cdr  x) ) ) を 実行した 
結果 を 図示して います。 変数 z はこ れで cons 命令 によ リ 作成され た 新しい ぺ 
ァに 束縛され ます。 x が 束縛され る リ スト は 変更され ません。 


I7 この 点から リストの 変更 命令 は どの アクセス 可能な 構造の 部分で もない 
"garbage" (ゴ ミ） を 作り 得る こと がわ か リ ま す。 Section  5.3. 2 に て Lisp の メモリ 管理 
シス 于ムが garbage  collectori ガベー ジ コレクタ、 清掃 局員） を 持ち、 それにより 必要の 無 
い ペアに より 使用され ている メモリ 空間 を 判断し リサイクル を 行います。 
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Figure  3.13:  Figure  3. 12 の リス ト 上での （set- car!  x  y) の 効果 


a 


y  ^ 

e 

Figure  3.14:  Figure  3.12© リ ス 卜 上での (define  z  (cons  y 
(cdr  x))) の 効果 
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set-cdr! 命令 は set-car! と 同様です。 違い は car ポインタで なく、   cdr ポィ 
ンタが 置き換えられます。 Figure  3.12 の リスト 上での （set-cdr!  x  y) の 実行 
の 結果 は Figure  3.15 に 示されます。 ここで は x の cdr ポインタ は （e  f) への ポ 
インタに て 置き換えられます。 また x の cdr として 用いられる リスト 
(c  d) はこれ で 構造から 取り外されます。 

cons は 新しい リスト 構造 を 新しい ペア を 作成す る ことで 構築し ます。 一方、 
set-car! と set-cdr! は 既存の ペア を 変更し ます。 実際に 2 つの ミュー テータ 
と 既存の リス ト 構造の 一部で はない 新しい ペア を 返す get-new-pair を 一緒に 
用いて cons を 実装す る ことができます。 新しい ペア を 得てから その car と cdr 
ポインタに 指定され た オブジェクト を 設定し、 cons の 結果と して 返します。 18 

V dei ine    ( cons  x  y ) 

(let    "new  (get-new-pair))) 
( set-car ！    new  x) 
( set-cdr ！    new  y ) 
new ) ) 


18get-neW-pair は Lisp 実装に て 必要と される メモリ 管理の一 部と して 実装され なけ 
れ ばなら ない 命令の 1 つです。 これに ついては Section  5. 3.1 にて 議論し ます。 
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Figure  3.15:  Figure  3. 12 の リ ス ト 上での （set- cdr  ！  x  y) の 効果 
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Exercise  3.12: リスト を 接続す るた めの 以下の 手続 は Section 2.2.1 で 
紹介した。 


dei ine    (  append  x  v) 
(if    (null?  x) 

y 

( cons    (car  x)    ( append   ( cdr  x)   y ) ) ) ) 

append は y に 連続して x の 要素 を cons する ことで 新しい リ ス ト 
を 作る。 手続 append! は append と 同様 だが、 コンストラクタで 
はなく ミ ュ一 テ一タ である。 これ は x の 最後の ペア を 変更し その 
cdr を y にし 両者 を 繋ぎ合わせる ことで append (付け加え） する。 
(append! を 空の x にて 呼ぶ の は エラ一 となる）。 

v.  dei  ine    (  append  ！    x  y  ； 

set-cdr  ！    v 丄 ast 一 pair  x)  y) 
x) 


で last-pair は その 引数の 最後の ペア を 返す 手続で ある c 

( last-pair    (cdr  x) ) ) ) 


dei  ine    (last-pair  x  ； 
(if    (null?    (cdr  x)) 


以下の 応答に ついて 考えよ。 


( dei ine  x 
(define  y 
(define  z 
z 

(abed) 
( cdr  x) 
(response) 
( def  ine  w 
w 

(abed) 
( cdr  x) 
(response) 

欠けて いる 
説明す るた めに 描け。 


(list  ■ a  ，b) ) 
(list  ' c  ，d) ) 
( append  x  y) ) 


( append ！    x  y ) ) 


は 何 か？ 箱と ポインタの 図 を あなたの 答 を 
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Exercise  3.13: 次の make- cycle 手続に ついて 考えよ。 これ は Exercise 
3.12 で 定義した last-pair 手続 を 用いる。 

^define    (make-cycle  x) 

set-cdr  ！    v 丄 ast - pair  x)  x) 
x) 

以下の 様に 作成され る Z を 表す 箱と ポインタの 図 を 描け。 

(, def ine  z   i,  make-cycle    、丄 ist    1  a    1  b    '  c  ) ) ; 

(last-pair  z) を 演算す ると 何が 置 こる か？ 

Exercise  3.14: 以下の 手続 はとても 便利で あるが 不明瞭で ある。 

(, def  ine    (mvstery  x ) 
(.denne    、丄 oop  x  v) 
(if    (null?  x) 

y 

( let    ( (temp    ( cdr  x) ) ) 
(set-cdr ！    x  y ) 
( loop  temp  x)))) 
(loop  x    ' ())) 

loop は "temporary" (—  時的） な 変数 temp を 用いて x の cdr を 保 
存 する。 次の 行の set-cdr! 力 《 cdr を 破壊す るた めで ある。 mystery 
が 通常 何 を 行う のか 説明せ よ。 v が （define  v  (list  'a  'b  'c 
'd)) で 定義され ている とする。 v が 束縛され る リス トを 表す 箱と 
ポインタの 図 を 描け。 次に （define  w  (mystery  v)) を 評価した 
とする。 この 式 を 評価した 後の v と w の 構造 を 表す 箱と ポインタ 
の 図 を 描け。 v と w の 値と して 何が 表示され るか？ 


共有と 自己 同一 性 

Section  3.1.3 で 代入の 導入に 伴う "同一 性" と "変更" という 論理的な 問題 
について 記述し ました。 これらの 問題 は 実際の 所 個々 の ペアが 異なる データ ォ 
ブジェク トの 間で s/mred (共有） されて いる 時に 問題と なります。 例えば、 以下 
の 様に 形成され る 構造に ついて 考えて みて 下さい。 

(, def  ine  x   、丄 ist    '  a    '  b  ) ) 
( del ine  zl ( cons  x  x) ) 
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Figure  3.16:  (cons  x  x). で 形成され た リスト zl 


Figure  3.16 で 示される よ う に、 zl は その car と cdr の 両者が 同じ ペア x を 指 
している。 この zl の car と cdr による x の 共有 は cons が 直接的な 方法で 実装 
されて いる ことによ る 結果です。 一般的に cons を 用いて リス トを 構築す る こ 
と は 多くの 個別の ペアが 多くの 異なる 構造に おいて 共有され る、 ペアの 連結 構 
造に 帰着し ます。 

Figure  3.16 と は 対照的に、 Figure  3.17 は 以下の 式で 作成され た 構造 を 示し 
ます。 

I, def  ine  z2   (cons   (list    1  a   1  b ) (list    1  a   1  bj ) ) 

この 構造に おいて は、 2 つの （a  b) リスト 内の ペア は 実際の シンボルが 共有 さ 
れ ていても 区別 可能です。 19 

リストと して 考えた 時、 zl と z2 の 両方が" 同じ" リスト （（a  b)  a  b) を 表 
現します。 一般的に 共有 は リスト 上で 用いる 命令 力、 ons,  car,  cdr だけなら ば 
完全に 検出 不可能です。 しかし リスト 構造 上で 変更 を 許可す るので あれば、 共 
有に 気付く ことができます。 共有が 作成で きる 違いの 例と して、 適用され た 引 
数の 構造の car を 変更す る 以下の 手続に ついて 考えて みま しょう。 

^define    ( set-to- wow ！    x)    ( set-car ！    ( car  x;    1  wow)  x) 

例え zl と z2 力 ひ 同じ" 構造 だとしても、 set-to-wow! を それらに 適用す ると 
異なる 結果 を 返します。 zl では car の 変更 は cdr も 変更し ます。 zl では car 

192 つの ペア は 各 cons 呼 出が 新しい ペア を 返す ため 区別 可能です。 シンボル は 共有 さ 
れ ています。 Scheme では どの 与えられた 名前に も 固有の シンボルが 存在し ます。 Scheme 
が シンボル を 変更す る 手段 を 全く 提供し ないた め、 この 共有 は 判別 不可能です。 共有が 
単純に ボイ ンタの 等価 性 を チェック する eq? を 用いて シンボルで 比較す る こと を 可能に 
する 物で ある ことに も 注意して 下さい。 
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Figure  3.17:  (cons  (list  *a  *b) (list  *a  'b)) により 幵多 
成された リス ト z2 


と cdr が 同じ ペアで あるた めです。 z2 では car と cdr は 区別 可能な ので set - 
to-wow! は car のみ を 変更し ます。 

zl 

((a  b)  a  b) 

( set-to-wow ！    zl ) 

((wow  b)  wow  b ク 
z2 

((a  b)  a  b) 

( set-to-wow ！    z2 ) 

((wow  b)  a  b) 

リ ス ト 構造 中の 共有 を 見つける 一つの 方法 は Section  2.3.1 で 2 つの シンボルが 
等しい か テス ト する 方法と して 紹介した 述語 eq? を 用います。 より 一般的に は 
(eq?  x  y) は x と y が 同じ オブジェ ク ト であるか を テス ト します （これ はつ ま 
リ x と y はポィ ンタと して 等しい かです)。 従って Figure  3.16 と Figure  3.17 で 
示す よう 定義され た zl と z2 

以降の 節で 示される よ う に、 ペアで 表現 可能な データ 構造の レバー トリ を 
大きく 拡張する ことが 共有 を 用いて できます。 一方で、 共有 はまた 危険で あり 
構造 に 対 して 行われる 変更が た また ま 部品 を 共有す る 他の 構造 に対して も 影響 
を 与えます。 ミュー テータ である set-car! と set-cdr! は 注意 深く 利用せ ねば 
なり ません。 データ オブジェ ク トが どのように 共有され ている か を 良く 理解し 
なければ 変更 は 予期し ない 結果 を 引き起します。 2Q 


20 ミュー タ ブルな データ オブジェ ク トの 共有の 取扱の 微妙な 部分 は Section  3.1.3 で 取 
り 上げられた "等価 性" と "変更" の 根底に 横たわる 問題 を 反映して います。 そこで は 私 
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Exercise  3.15: 上記の 構造 zl と z2 上での set-to-wow! の 効果 を 

説明す る 箱と ポインタの 図 を 描け。 

Exercise  3.16:  Ben  Bitdiddle は 任意の リ ス ト 構造 内の ペアの 数 を 

数える 手続 を 書く ことに 決めた。 "簡単 だよ ね" と 彼 は 思った。 "任 
意の 構造 内の ペアの 数 は car の 中の 数と cdr の 中の 数の 和に 現在 
の ペア を 数える ために 1 を 足した 物"。 だから Ben は 以下の 手続 を 
書いた。 

(define    ( count-Dair s  x) 
(ii  、！ lot     p a l r  r  x; ) 
0 

(+   ( count-pairs    (car  x) ) 
( count-pairs    ( cdr  x ) ) 

i))) 

この 手続が 正しくな いこと を 示せ。 具体的に はきつ ちり 3 つの ぺ 
ァ によ リ 作られ Ben の 手続が 3,  4,  7 を 返す だろう、 また Ben の 手 
続が 絶対 に 終了し ない リスト 構造 を 表現す る 箱と ポインタの 図 を 
描け。 

Exercise  3.17:  Exercise  3. 16 の count-pairs 手続の 正しい 版を考 

案せ よ。 これ は 任意の 構造の 中の 固有の ペアの 数 を 返す。 （ヒント ： 
構造 を 横断しながら どの ペア が既 に 数えられ たかを 追跡す るた め 
に 使用す る 補助 的な データ 構造 を 保存す る）。 

Exercise  3.18: リスト を 検査し それが 循環 を 持つ かどう か 判断せ 

よ 。つまり リストの 最後 を 見つけよ うとした プログラム が 連続 し て 
cdr を 取る ことで 無限ループに 入る かどう か を 判定せ よ。 Exercise 
3.13 にて そのような リスト を 構築した。 

達の 言語に 変更 を 許す こと は 複合 データが それ を 構成す る 部分から 何 かが 異なる という 
"自己 同一 性" を 持たねば ならない こと を 述べました。 Lisp では この" 自己 同一 性" を eq? 
にて テス 卜される 性質 だと 考えます。 即ち、 ポインタの 等価 性です。 多くの Lisp 実装で 
は ボイ ンタが 本質的に は メモリ ァ ドレスで すので、 オブジェ ク トの 自己 同一 性 を 定義す 
る ことの "問題の 解決" は データ オブジェ ク ト "それ 自身" がいくつ かの 特定の 計算機 内 
の メモリ 上の 場所の 集合に 格納され た 情報で ある こと を 要求す る ことにより 解決し ます。 
これ は 単純な Lisp プログラムに は 十分です が、 計算 モデルの "同一 性" の 問題 を 解決す 
る 一般的な 方法で は あ リ ません。 
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Exercise  3.19:  Redo  Exercise  3.18  using  an  algorithm  that  takes 
only  a  constant  amount  of  space.  (This  requires  a  very  clever  idea.) 
Exercise  3.18 を 一定の 容量の メモリ のみ を 用いる アル ゴリ ズムを 
用いて 再度 行え。 （これ はとても 巧妙な アイデア を 必要と する)。 


変更と は 代入の こと 


複合 データ を 紹介した 時、 Section  2. 1 . 3 にて ペア が 手続 をのみ を 利用す る こ 
と で 表現で きる こと を 観察し ました。 

dei ine    (  cons  x  y ) 
( dei ine    (dispatch  m) 

( cond   ( ( eq?  m    'car)  x) 
( ( eq?  m    ' cdr )  y) 

(else    (error   "Undefined  operation :    CONS "  m) ) ) ) 
di  spat ch ) 
( dei ine    (car  z)    (z  'car)) 
( dei ine    (cdr  z)    (z  'cdr)) 

同じ 観察 結果が ミ ュ一タ ブルな データに 対しても 正しい と 言えます。 ミ ュ一 
タ ブル （可変） な データ オブジェ ク トを 代入と 局所 状態 を 用いる ことで 手続と 
して 実装 可能です。 例と して 上の ペアの 実装 を 拡張し、 Section  3. 1.1 で make - 
account を 用いて 銀行口座 を 実装した 方法と ある 程度 類似して、 set- car! と 
set- cdr! を 扱う ことができます。 


dei  ine    (  cons  x  y ) 
( def  ine    (set - x!    v)    (set  ！ 
( set-y ！    v)    (set ！ 
(dispatch  m) 


( def  ine 
( def  ine 
(cond 


y 


((eq?  m 
((eq?  m 
((eq?  m 
((eq?  m 
(else 
(error 

di  spat ch ) 
( dei ine    (car  z)  (2 
( dei ine    (cdr  z)  (2 


1  car )  x) 
cdr )   y ) 

1  set-car ！ ) 
set - cdr ！ ) 


v)) 
v)) 


-x! ) 

-y!) 


'Unde ェ ined   operation :    CONS  1 

1  car ) ) 
'cdr)) 
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(define    (  set-car ！    z  new-value ) 
( (z    1  set-car ！ )   new-value )  z) 

(define    (set-/ cdr ！    z  new-value ) 
( (z    1  set-cdr ！ )   new-value )  z) 


代入が 可変 デー タ の 振舞 を 説明す る ために 論理 上 必要な 物 全てです。 私達の 言 

語に set! を 認める と 直ぐに、 代入の 問題 のみでな く、 一般的な 可変 データの 
全ての 問題 を 引き起しました。 21 

Exercise  3.20: 以下の 連続した 式の 評価 を 説明す る 環境の 図 を 


上で 与えられた 手続 型の 実装 を 用いよ。 （Exercise  3. 1 1 と 比較せ よ ） 。 

3.3.2 キューの 表現 

ミ ユー テータ の set-car! と set-cdr! は ペア を 用いて cons,  car,  cdr のみ 
では 不可能な データ 構造 を 構築 可能です。 この 節で は キューと 呼 ばれ る データ 
構造 を 表現す るた めに どのよう に ペア を 用いる かにつ いて 示します。 Section 
3.3.3 では テーブル （表） と 呼ばれる データ 構造の 表現 方法に ついて 学びます。 

ひ tiewe (キュー） は アイテムが 一方の 端 （キューの rmr (リ ァ、 終端)） に 挿入 さ 
れ、 他方の 端 （/roni (フロント、 先端)） から 削除され る 列です。 Figure  3.18 は 初 
期 化 時に 空の キューに アイテム a と b が 挿入され た 状態 を 示して います。 次 に 
a が 削除され、 c と d が揷 入され、 b が 削除され ます。 アイテム は 常に 揷入 順に 
削除され るた め キュー は 時々 F/i^O(first  in,  first  out) (先入れ 先 出し） バッファ 
と 呼ばれます。 

デー タ 抽象化の 観点で は キュー を 以下の 操作の 集合で あると 見做す こ と が 
できます。 

21 —方で、 実装 上の 視点から は 代入 は 環境 を 変更す る こと を 必要と し、 環境 は それ 自身 
が 可変な データ 構造です。 従って 代入と 変更 は 等位です。 つまり 一方 は 他方 を 用いる こ 
とで 実装 可能です。 


描け。 


(define  x 
(define  z 
(set-car ！ 
(car  x; 


( cons 1 2) ) 
( cons  x  x ) ) 
(cdr  z) 17) 
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Operation 


Resulting  Queue 


(define  q  (make-queue)) 


(insert- 

-queue! 

q 

'a) 

a 

(insert- 

-queue! 

q 

'b) 

a 

b 

(delete- 

-queue! 

q) 

b 

(insert- 

-queue! 

q 

'c) 

b 

(insert- 

-queue! 

q 

'd) 

b 

c  d 

(delete- 

-queue! 

q) 

c 

d 

Figure  3.18: キュー 命令 


• コンストラクタ ： （make-queue) は 空の キュー （アイテム を 全く 持たない 
キュー） を 返す 

. 2 つの セレクタ ： 

( empty-queue?  (queue); 
キューが 空で あるか テス ト する 
(front-queue   (queue) ) 

キューの 先頭の オブジェ ク トを 返す。 もし キューが 空なら エラー を 発す。 
キュー を 変更し ない。 

•   2 つの ミュー テータ ： 

(, insert-queue  ！    (queue;  (item)) 

キューの 最後 尾に アイテム を 挿入し、 変更され た キュー を その 値と して 
返す。 

(delete- queue ！  {queue}) 

キューの 先頭の アイテム を 削除し、 その 値と して 変更され た キュー を 返 
す。 も し キューが 削除 前に 空で あれば エラー を 発す。 

キュー は アイテムの 列で あるた め 確かに 順序 有り リ ス ト であると 表現で きま 
す。 キューの 先頭 は リストの car であ リ、 キューに アイテム を 挿入す るの は 新 
しい 要素 を リストの 最後に 追加す る ことで、 キューからの アイテムの 削除 はた 
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f ront-ptr 


rear-ptr 


b 


Figure  3.19: 先端と 終端の ボイ ンタを 持つ リストと しての 
キューの 実装 


だ リストの cdr を 得る ことと 言える でしよう。 しかし この 表現 は 非 効率です。 
なぜなら アイテム を 挿入す るた めに は リスト を 終端 ま で 走査 し な ければ な リ ま 
せん。 リストの 走査の ための 手段 は cdr 命令 を 連続して 用いる しかな く、 この 
走査 は n アイテムの リストに 対し e(n) ステップ を 必要と します。 リスト 表現 
に対する 簡単な 変更が この 欠点 を 克服し e(i) ステップ を 必要と する キュー 命 
令の 実装 を 可能 にします。 これ はつ ま リ 必要な ス テツ プ 数が キ ユーの 長さから 
独立 するとい うこと です。 

リスト 表現に よる 困難 は リストの 終端 を 見つける ための 走査が 必要で ある 
点から 生じて います。 走査が 必要な 理由 は リスト を ペアの 鎖と して 表現す る標 
準 的な 方法が、 事前に リストの 先頭への ポインタ を 提供す るのに 対し、 終端 を 
指す 簡単に アクセス 可能な ポインタ を 提供し ないた めです。 欠点 を 避ける ため 

の 変更と して キュー を リストと しながら リスト の 最終 ぺ ァ を 示す 追加の ボイ ン 
タをも 用いて 表現し ます。 この 方法で は アイテム を揷 入す る 場合に 終端 ポ イン 
タを 調べる ことで リストの 走査 を 避ける ことができます。 

すると キュー は ポインタの ペア、 front-ptr と！ ■ear-ptr として 表現され ま 
す。 それぞれが 通常の リストの 先頭と 最後の ペア を 指します。 キュー を 識別 可 
能な オブジェ ク トに する ために 2 つの ポインタ を 接続す るのに cons を 用い ま 
す。 従って キュー それ 自身が 2 つの ポィ ンタの cons にな り ます。 Figure  3.19 は 
この 表現 を 図示し ます。 

キューの 命令 を 定義す るた めに 以下の 手続 を 用います。 これ は キューの 先 
端 と 終端の ボイ ン タ の 選択、 変更 を 可能に します。 

dei ine    (f  ront-ptr  queue  )    (car  queue)) 
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(define    (rear-ptr  queue )    ( cdr  queue)) 

(define  ( set-f ront-ptr ！  queue  item )  ( set-car ！  queue  item ) ) 
(define    ( set-rear-ptr ！    queue   item)    (set - cdr!    queue  item)) 

これで 実際の キューの 命令 を 実装で きます。 もし 先端の ポインタが 空 リストな 
らば キュー は 空で ある と 考える ことにします。 

(, def ine    (empty-queue  r   queue  )    (iml 丄 7    (iront-ptr  queue))) 

make-queue コンストラクタ は 初期値 として 空 キュー を 意味す る car と cdr の 
両方が 空 リストの ペア を 返します。 

def  ine    (make-queue  )    (  cons    ' () '、ソ ) ソ 

キューの 頭の アイテム を 選択す るた めに 先端 ボイ ンタが 指す ペアの car を 返し 
ます。 

def  ine    (front-queue   queue  ) 
に if    (empty- queue?   queue ； 

(error   " FRONT   called  with  an  empty  queue "   queue ) 
(car    ( f ront-ptr  queue)))) 

キューに アイテム を 挿入す るた めに、 Figure  3.20 が 示す 結果 を 成す 手法に 従い 
ます。 最初に car が 挿入す る アイテム であり cdr が 空 リストで ある 新しい ペア 
を 作成し ます。 もし キューが 空であるなら キューの 先端と 終端の ボイ ンタ にこ 
の 新しい ペア を 設定し ます。 そうでなければ キューの 最終 ペア を 新しい ペア を 
指す ように 変更し、 また 終端 ポインタ を 新しい ペア を 指す ようにし ます。 

def  ine    (insert-queue  ！    queue  item) 
、丄 et    v (new-pair    ( cons   item  '()))) 
( cond   ( ( empty-queue?   queue ) 

( set-f ront-ptr ！    queue  new-pair ) 
( set-rear-ptr ！    queue  new-pair) 
queue ) 
(else 

(set - cdr!    (rear-ptr  queue )   new-pair ) 
( set-rear-ptr ！    queue  new-pair) 
queue) ) ) ) 
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f ront-ptr 


rear-ptr 


abed 


Figure  3.20:  Figure  3. 19 の キューに （insert-queue  !  q  'd) 

を 用いた 結果 


キューの 頭の アイテム を 削除す るた めに、 ただ 単に 先端 ボイ ンタを 変更し 
キューの 二つ目の アイテム を 指す ようにし ます。 これ は 最初の アイテムの cdr 
ポインタに 従う だけで 見つけられます。 （Figure  3.21 参照)22 

V  dei ine    vde 上 ete 一 queue ！    queue ； 
( cond   (,(  empty- queue?   queue  ； 

( error   " DELETE ！    called  with  an  empty  queue "  queue)) 
(else    (set-front-ptr!    queue    ( cdr   ( f ront-ptr  queue))) 
queue ) ) ) 


Exercise  3.21:  Ben  Bitdiddle は 上で 説明され た キューの 実装 をテ 
ス ト する ことに 決めた。 彼 は Lisp インタプリタに 対し 手続 を 入力 
し、 続いて 以下の ように 試行 を 行った。 

(, dei  ine  ql (make-queue  ) ； 

i. insert-queue  ！    ql 1  a) 

((a)  a) 


22 もし 最初の アイテムが キューの g 終 アイテム でも ある 場合、 先端 ボイ ン タ は 削除 後に 
空 リス 卜になる でしよう。 これ は キュー を 空の 状態に します。 終端 ポインタの 更新 を 心 
配す る 必要はありません。 これ は 依然として 削除され た アイテム を 指します が、 empty- 
queue?  は 先端 ボイ ンタ しか 見ません。 
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f ront-ptr 


1 


rear-ptr 


abed 


Figure  3.21:  Figure  3. 20 の キューに （delete - queue  !  q) を 

用いた 結果 


i. insert-queue  ！    ql 1  b  ； 

((a  b)  b) 

( delete - queue !  ql) 

((b)  b) 

( delete - queue !  ql) 

(() b) 

"間違って いる ！" と 彼 は 文句 を 言った。 "インタプリタの 応答 は 
最後の アイテムが キューに 二回 挿入され ている こと を 示して いる。 
そ して 僕が 両方の アイテム を 消しても 二つ目の b がま だ そこに あ 
る。 だから キュー は 空になる べきな のにそう ならない"。 Eva  Lu 
Ator は Ben が 何が 起こった のか 間違って 理解して いると 示唆し 
た。 "アイテム は キューに 二回 入って はいない わ" と 彼女 は 説明し 
た。 "Lisp 標準の 応答が キュー 表現の 意味 を どのよう に 理解す るの 
か 知らない だけ。 も しあな たが キューが 正しく 表示され るの を 見 
たいなら 自分で キュー を 表示す る 手続 を 定義す る 必要が あ る わ"。 
Eva  Lu が 話して いる こ と を 説明せ よ。 具体的に は なぜ Ben の 例が 
そのよう な 表示の 結果に な るの か 示せ。 キュー を 入力 に 取 リキュ 
一 内の アイテムの 列 を 表示す る 手続 print-queue を 定義せ よ。 

Exercise  3.22: キュー を ボイ ンタの ペアと して 表現す る 代わり に、 

キュー を 局所 状態 を 持つ 手続と して 構築す る ことができる。 局所 


281 


状態 は 通常の リストの 先端と 終端への ポインタから 成る。 従って 

make-queue 手続 は 以下の 形式と なる。 

(define    (make-queue ； 
(let    ((f ront-ptr … ） 
(rear-ptr … ) ) 
(definitions  of  internal  procedures) 
(define    (dispatch  m) …) 
dispat ch) ) 

make-queue の 定義 を 完成 させ、 この 表現 を 用いた キューの 命令 を 
実装せ よ。 

bxercise  J.z3:  ひ tie("double— ended  queue", 両頭 キュ 一 ) はノっ 
テムの 挿入と 消去が 先端と 終端の 両方に 対して 行える 列 で あ 
る。 deque 上の 命令 は コンストラクタ make-deque、 述語 empty- 
deque ？、  レ クタ front-deque  C  rear-deque,  ^ ュ 一 つ  タ 
f  ront-msert-deaue  ！ ,  rear- insert-deque  ！ ,  iront - delete - deque  ！ , 
rear-delete-deque  ！ である。 ペア を 用いて どのように deque を 表 
現す るか 示せ。 また 命令の 実装 を 提供せ よ。 23 全ての 命令 は 0(1) 
ステップで 達成す る こと。 

3.3.3 テーブルの 表現 

Chapter  2 で 種々 の 集合の 表現に ついて 学んだ 時、 Section  2.3.3 にて キーで 
同定す る 索引 を 持つ レコードの 表 を 保存す る 作業に ついて 述べました。 Section 
2.4.3 での データ 適 従 プロ グラ ミ ングの 実装に おいて 二次元 テーブルの 広範な 使 
用 を 行い、 情報 は 2 つの キー を 用いて 格納と 取り出しされ ました。 ここで は ど 
のように 表をミ ユー タ ブルな リ ス ト 構造と して 構築す るかに ついて 学びます。 

最初 は 一次元の 表に ついて 考えます。 各 値が 単一の キーの 下に 格納され ま 
す。 テーブル を レコードの リストと して 実装し、 各 レコード はは キーと 関連す 
る 値から 成る ペアと して 実装し ます。 レコード は car が 次の レコード を 指す 
ペアに より リスト を 形成す る 様に 連結され ます。 これらの 連結され た ペア は 表 
の backbone (パック ポ一 ン、 基幹） と 呼ばれます。 テーブルに 新しい レコード を 
追加す る 時に 変更 可能な 場所 を 得る ために、 テーブル を headed  & ^(頭 出 し リ 


23 インタ プリ タに 循環 を 含む 構造 を 表示 させない ように 注意せ よ。 （Exercise  3.13 参 
昭、。 
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table 


stable* 

a 

1 

b 

Figure  3.22: 頭 出 し リストと して 表現され た テーブル 


スト） として 構築し ます。 頭 出し リスト は 特別な バックボーン ペア を 最初に 持 
ちます。 これ は ダミーの" レコード" 一 今回の 場合、 自由 裁量で 選択した シンポ 
ル *table* —  を 持って います。 Figure  3.22 は 以下の テーブルの 箱と ポインタの 
図 を 示して います。 

a  ： 1 
b  ：  2 
c  ：  3 

テーブルから 情報 を 抽出す るに は 鍵 を 引数と して 取り 相対す る 値 （または その 
キーの 下に 値が 格納され ていない 場合に は false) を 返す lookup 手続 を 用い ま 
す。 lookup は キーと レコードの リ ス トを 引数と して 期待す る assoc 命令 を 用 
いて 定義し ます。 assoc が ダミー レコード を 絶対に 参照し ない ことに 注意して 
下さい。 assoc は 与えられた キー を car として 持つ レコード を 返します。 24 す 
る と lookup は assoc が 返 し た 結果の レコード が false でない かチ エックし、 そ 
の レコードの 値 （cdr) を 返します。 

(, def ine   (lookup  kev  tables 

(let    ( (record   (assoc   key   ( cdr  table)))) 
( if  record 

(cdr  record) 

24aSSOC が equal? を 用いる ため、 シンボル、 数値、 リスト 構造で ある キー を 認識 可能 

です。 
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false))) 
(define    ( assoc  key  records ) 

( cond   ( (null?   records )    false ) 

( ( equal?  key   ( caar  records ) )    (car  records ) ) 
(else    (assoc   key   ( cdr  records ) ) ) ) ) 

値 を テーブルに 指定した キーの 下に 揷入 する ために、 最初に assoc を 用いて 既 
に テーブルの 中に この キー を 持つ レコードが 存在し ないか 確認し ます。 も し 無 
ければ 鍵と 値 を cons する ことで 新しい レコード を 作成し これ を テーブルの レ 
コード リ ス トの 先頭の ダミー レコードの 後ろに 揷入 します。 も し 既に この キー 
の レコードが 存在す る 場合に は その レコードの cdr に 新しい 値 を 設定し ます。 
テーブルの ヘッダ は 新しい レコード を揷 入す るた めに 変更す る 固定 位置 を 与え 
ます。 25 

dei ine    ( insert  ！    key  value  table) 
(let    "record   (assoc   key   ( cdr  table)))) 
( if  record 

( set-cdr ！    record  value ) 
( set-cdr ！  table 

( cons    ( cons   key  value ) 
(cdr  table))))) 

•ok) 

新しい テ一 ブル を 構築す るた め に は 単純 に シ ン ボル *table* を 持つ リスト を 作 
成します。 

(, dei  ine   (make-table ) 
(list    '  *table* ) ) 


二次元 テーブル 

二次元 テー ブルで は 各 値 は 2 つの キーに より 索引 付けられます。 そのような テ 
一 ブル を 各 キーが 部分 テーブル を 特定す る 1 次元 テーブルと して 構築す る こと 
がで きます。 Figure  3.23 は 以下の テーブル を 箱と ポインタの 図で 示して います。 

25 従って 最初の バックボーン ペア は テーブル "それ 自身" を 表現す るォ ブジェク 卜です。 
テーブル を 指す ポインタ はこの ペア を 指す ポインタです。 この 同じ バックボーン ペアが 
常に テーブル を 始めます。 もし このよう にしなければ insert! は 新しい レコード を 追加 
した 時に テー ブルの 新 し い 開始 地点 を 返さなければ ならなくなる でしよう。 
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math:        +:     43  letters :        a :  97 

-： 45  b:  98 

*:  42 

これ は 2 つ 部分 テーブル を 持ちます。 （部分 テーブル は 特別な へッ ダ シンボル を 
必要と しません。 部分 テーブル を 特定す る キーが この 目的 を 果たす ためです)。 
アイテム を 探す 時、 最初の キー を 用いて 正しい 部分 テーブル を 特定し ます。 
次に 二つ目の キー を 用いて 部分 テーブル 中の レコード を 特定し ます。 

def ine    (lookup  kev- 1 key - 2  table  ) 
(let    ( ( subtable 

( assoc   key- 1 ( cdr  table)))) 
( if  subtable 

(let    ( (record 

(assoc   key - 2    ( cdr   subtable ) ) ) ) 
(if  record 

( cdr  record ) 
false)) 
false))) 

キーの ペアの 下に 新しい アイテム を 挿入す るに は assoc を 用いて 最初の キ 
—の 下に 部分 テーブルが 存在す るか どうか を 確認し ます。 も し 無ければ 単一の 
レコード （key-2，  value) を 含む 新しい 部分 テーブル を 構築し、 それ を 最初の キ 
—の 下に テ一 ブルに 挿入し ます。 も し 最初の キ一 に対する 部分 テーブルが 既に 
存在す る 場合 新しい レコード を この 部分 テ一 ブルに 先に 説明した 一次元 テ一ブ 
ル に対する 挿入 方法 を 用いて 揷入 します。 

^define    ( insert ！    key- 1 Kev 一 2  value   tab 丄 e ノ 

(let    (  (  subtable    、  assoc   key- 1 cdr  table;))) 
( if  subtable 

(let    ( (record   (assoc  key - 2    (cdr   subtable ) ) ) ) 
(if  record 

( set-cdr ！    record  value ) 
( set-cdr ！  subtable 

( cons    ( cons  key - 2  value ) 
(cdr   subtable ] 

( set-cdr ！  table 

( cons    ( list   key- 1 
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table 


Figure  3.23:  二次元 テ一 ブル 


( cons  key - 2  value)) 
(cdr  table))))) 

' ok) 


ローカルな テーブルの 作成 

上で 定義され た lookup と insert! 命令 は テーブル を 引数と して 取ります。 
こ れが 複数の テーブルに アクセス する プログラム を 許可し ます。 複数の テープ 
ルを 扱う 他の 方法に は 各 テーブルに 対し 分離され た lookup と insert! 手続 を 
持つ 方法が あります。 これ は テーブル を 手続 的に、 その 局所 状態の 一部に 内部 
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テーブル を 持つ オブジェクト として 表現す る ことによ り 可能 となり ま す。 適切 
な メッセージ を 送った 時に、 この" テーブル オブジェ ク ト" は 内部 テーブル を 
操作す る 手続 を 提供し ま す。 以下に こ の 様式で 表現され た 二次元 テー ブルの た 
めの ジェネレータ （生成 器） を 示します。 

(define     make-table ) 

(let    ((local-table    (list    '  *table*) ) ) 
(define    ( lookup  key- 1 key - 2) 
(let    ( ( subtable 

( assoc   key- 1 ( cdr local-table)))) 
v.  if  subtable 

( let    ( (record 

( assoc   key - 2    (cdr   subtable ) ) ) ) 
(if  record   (cdr  record)    false ) ) 
false))) 

(define   ( insert ！    key- 1 key - 2  value ) 
(let    ( ( subtable 

(assoc   key- 1 ( cdr  local-table)))) 
v.  if  subtable 

( let    ( (record 

( assoc   key - 2    (cdr   subtable ) ) ) ) 
(if  record 

( set - cdr 
( set - cdr 


( set - cdr ！ 


■ok) 
( def  ine 
( cond 


local- 

( cons 


( dispat ch 
( ( eq?  m    ' lookup- 
( ( eq?  m    '  insert- 


record  value ) 
subtable 
( cons    ( cons   key - 2  value ) 
(cdr  subtable))))) 

table 

(list  key- 1 ( cons  key - 2  value ) ) 
( cdr  local-table ] 


proc ) lookup ) 
proc ！ )    insert ！ ) 


(else  (error 
dispatch) ) 


'Unknown  operation :    TABLE 1 
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make-table を 用いる ことで Section  2.4.3 で 用いた データ 適 従 プロ グラ ミ ングの 
ための get と put を 以下の ように 実装す る ことができます。 

、 define   operation- table    (make 一" tab 上 e ソ) 
^define  get     op  e  rat  ion- table    1 丄 ookup  -  proc  ) ) 
(define  put    ( op e rat ion- table    ' insert-proc ！ ) ) 

get は 引数と して 2 つの キー を 取り、 put は 引数と して 2 つの キーと 値 を 取り 
ます。 両方の 命令 共に 同じ 局所 テーブル を アクセス します。 局所 テーブル は 
make- table の 呼 出に よ リ 作成され たォ ブジェク トの 中に カブ セル 化されます。 

Exercise  3.24: 上記の テーブル 実装に おいて、 キー は equal? を 用 

いて 等価 試験 を 行う。 （assoc により 呼び出される）。 これ は 常に 適 
切な 試験で はない。 例と して 数値 キー を 用いる テーブル を 用いる 場 
合に、 検索 時に 厳密に 等しい 必要が 無く、 ある 許容範囲で 数値 を 探 
したい かもしれ ない。 キーの" 等価 性" を 試験す るのに 用いられる 
same-key? 手続 を 引数と して 取る テーブル コンス トラクタ make- 
table  を 定義せ よ。 make-table は 内部 テーブル に対して 適切な 手 
続 lookup と insert  ！ (こ アクセス する ffl  (こ 使用 可, 旨な dispatch 手 
続 を 返さねば ならない。 

Exercise  3.25: 1 次元と 二次元の テーブル を 一般化せ よ。 任意の 数 
の キーの 下で 値 を 格納し、 異なる 値 を 異なる 数の キーの 下 格納で 
きる テーブル を どのように 実装す るか 示せ。 lookup と insert! 手 
続 は 入力と して キーの リスト を 取り テーブルに アクセス する。 

Exercise  3.26: 上で 実装され た テーブル を 検索す るに は レコードの 
リス トを 走査し なければ ならない。 これ は 基本的に Section  2.3.3 の 
順序 無し リスト 表現で ある。 大きな テーブル に対して は 異なる 様 
式で テーブル を 構造 化する ほうが 効率が 良い。 （キー， 値） のレコ 
ードが 二分木 を 用いて 体系化 される テーブルの 実装 を 説明せ よ。 
キー は 何ら かの 方法に て 順序 付 可能で ある と 想定す る。 （Chapter 
2 の Exercise  2.66 と 比較せ よ)。 

Exercise  3 ノ 7:  memoizafem (メモ 化) (ta&t^trfion(:j^ 形式 化) とも 呼 
ばれる） と は 手続の 局所 テー ブル に 事前 に 計算 した 値 を 記録す る 
こと を 可能す るテ ク ニックで ある。 この テクニック は プログラム 
の パフォーマンスに 大幅な 違い を 与える ことができる。 メモ 化さ 
れた 手続 は 以前の 呼 出の 値が その 値 を 生成した 引数 を キーと して 
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格納す る テーブル を 持つ。 メモ 化された 手続が 値 を 計算す るよう 
命じられた 時、 最初に 値が 既に テーブルに ないか チェック を 行い、 
も し 存在 すれば 単に その 値 を 返す。 そうでなければ 新しい 値 を 通 

常の 方法で 計算し テーブルに 保存す る。 メモ 化の 例と して Section 
1.2.2 か らフィ ボナ ッ チ数を 演算す るた めの 指数関数 処理 を 思い 
出せ。 

(, def ine   (fib  n) 

(cond   ( (=  n  0)  0) 
((= n 1) 1) 

(else    (+   (fib    (-  n 1)) (fib    (-  n  2)))))) 

同じ 手続の メモ 化 版 は 以下で ある。 

乂 define  memo -; fib 
^memoize 
、上 ambda  (n; 

(cond   ((=  n  0)  0) 
((= n 1) 1) 

(else   (+   (memo -： fib   (-  n 1) ) 

(memo-fib    (-  n  2)))))))) 

この 時、 memoize は 以下の 様に 定義され る。 

(define    (memoize  f ) 

(let    ( (table    (make-table ) ) ) 
(lambda  (x) 

( let    ( (previously - computed - re  suit 
(lookup  x  table))) 
(or  previously- computed-re suit 
(let    ( (result    (f  x) ) ) 

( insert ！    x  result  table ) 
result)))))) 

(memo-fib  3) の 演算 を 分析す るた めの 環境 図 を 描け。 なぜ memo- 
fib  が  n  番目の  フィボナッチ 数  を  n  に 比例す るス テツ プ 数で 演算 
する のか 説明せ よ。 単に memo-fib を （memoize  fib) と 定義した 
場合に も Scheme は 正 し く 処理で きる だろう カ^ 
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3.3.4 デジタル 回路の シミュレータ 

コンピュータの ような 複雑な デジタル システムの 設計 は 重要な 工学の 活動 
領域です。 デジタル システム は 簡単な 要素 を 相互 接続す る ことで 構築され ます。 
これらの 個々 の 要素の 振舞 は 単純です が、 それらの ネッ ト ワーク はとても 複雑 
な 振舞 をし ます。 提案 さ れた 回路 設計の コンピュータ シミュレーション は デジ 
タル システムエンジニアに ょリ 使用され る 重要な ツールです。 この 節で は デジ 
タル 論理 シミュレーション を 実行す るた めの システム を 設計し ます。 この シス 

于ム Itevent-driven  simulation(/( ベン 卜 駆動 シ ミ ュ レ一シ ョ ン) と 呼ばれる 種 
類の 典型で あり、 その 行動 （"ィ ベン ト"） は 後に 起こる さらなる イベント を 引き 
起こし、 順により 多くの イベント を 引き起します。 

私達の 回路の 計算 モデル は 回路 を 構築す る 基本と なる コ ン ポー ネント に 
対応す るォ ブジェク ト により 成ります。 digital  signals (デジタル 信号) を 運 
ぶ wires (回路） が 存在し ます。 デジタル 信号 は 任意の 瞬間に 可能な 2 つの 値、 0 
と 1 の 内 1 つ を 取ります。 また 多様な タイプの デジ タ ル function  fcores (関数 
箱） が 存在し、 入力信号 を 運ぶ 回路と 別の 出力 回路 を 接続し ます。 そのような 
箱 は 入力信号から 計算され た 信号 を 出力 します。 出力 信号 は 関数 箱の タイ プに 
よ リ 時間 的に 遅れ を 生じさせます。 例えば irwerter (逆 変換器） は 入力 を 反転す 
る プリ ミ ティ ブな 関数 箱です。 も し 逆 変換器への 入力信号が 0 に 変化したなら、 
ある 逆 変換器に よる 遅延の 後、 逆 変換器 は その 出力 信号 を 1 に 変更し ます。 も 
し 逆 変換器への 入力信号が 1 に 変化したならば、 ある 逆 変換器に よる 遅延の 後、 
逆 変換器 は 出力 信号 を 0 にします。 逆 変換器 を 記号と して Figure  3.24 に 示す よ 
うに 描きます。 Figure  3.24 に 示される and-gateCAND ゲ一 卜） も 2 つの 入力と 
1 つの 出力 を 持つ プリ ミ ティ ブな 関数 箱です。 X 力の logical  and (論理 積） の 値 
に その 出力の 値 を 駆動し ます。 言い替えれば、 もし 入力信号の 両方が 1 になれ 
ば ある AND ゲートに よる 遅延の 後に AND ゲート は その 出力 信号 を 1 にし ま 
す。 そうでなければ 出力 は 0 です。 or-gate(OR ゲ一 卜） も 同様の 2 つの 入力 を 
持つ プリ ミ ティ ブな 関数 箱で あ り その 出力 信号 は 入力に 対する togicd  0r (論理 
和） の 値になります。 言い替えれば 出力 はもし 少く とも 1 つの 入力信号が 1 で 
あれば 1 になり、 そう でな ければ 出力 は 0 に な リ ま す。 

プリ ミ ティ ブな 関数 を 一緒に 接続して ょリ 複雑な 関数 を 構築で きます。 こ 
れを 達成す るた めにある 関数 箱の 出力から 他の 関数 箱の 入力へ と 回路 を 引き ま 
す。 例えば Figure  3.25 に 示す /w び- adder (半 加算器） は OR ゲー ト、 2 つの AND 
ゲート、 逆 変換器から 成り立ちます。 これ は 2 つの 入力信号、 A と B を 取り 2 
つの 出力 信号 S と C が あり ます。 S は 正確に A と B の 内 1 つが 1 であるなら 
ば 1 になり、 C は A と B の 両方が 1 の 場合 に 1 に な リ ま す。 遅延が 生 じる た 
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Inverter  And-gate  Or-gate 

Figure  3.24: デジ タ ル 論理回路 シ ミュレ ータ における プリ 
ミ ティブな 関数 


Figure  3.25: 半 加算器 回路 


め 出力が 異なる 時刻に 生成され る ことが 図から 見て わかり ます。 デジタル 回路 
設計の 困難の 多く はこの 事実から 生じます。 

今から 私達 が 学習 を 望む デジタル 論理回路 をモ デル 化す るた めの プロ ダラ 
ムを 構築し ます。 プログラム は 回路 を モデル 化する 計算 モ デル を 構築し ま す。 
これ は 信号 を "保持" します。 関数 箱 は 信号 間の 正しい 関係 を 強制す る 手続に 
よ り モデル 化されます。 

私達の シミュレーションの 基本的 要素の 1 つ は 手続 make-wire であり 回路 
を 構築し ます。 例と して 6 つの 回路 を 以下の ように 構築で きます。 


(define  a 

(make 

-wire ) ) 

(define  b 

(make 

-wire ) ) 

(define  c 

(make 

-wire ) ) 

(define  d 

(make 

-wire ) ) 

(define  e 

(make 

-wire ) ) 

(define  s 

(make 

-wire ) ) 

あ る 関数 箱 を 回路の 集合に 対して その 種類の 箱 を 構築す る 手続 を 呼ぶ ことによ 
リ 取り付ける こと がで きます。 コンストラクタ 手続への 引数 は 箱 に 取 リ 付 け ら 
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れる 回路です。 例えば AND ゲート、 OR ゲート、 逆 変換器 を 構築で きる 場合、 
Figure  3.25 に 示す 半 加算器 を 配線す る ことができます。 


もっと 良い ことに は、 半 加算器に 取り付けられる 4 つの 外部 回路 を 与えられた 
時、 この 回路 を 構築す る 手続 half -adder を 定義す る ことで この 操作に 明示的 
に 名前 を 付ける こと がで きます。 

v.  dei ine    vnaif  - aader  a  b  s   c  ) 

(let    (、d   (make-wire ) )    ( e    (make-wire ) ; ) 
( or-gate   a  b  d) 
( and-gate   a  b  c ) 
( inverter   c  e ) 
( and-gate  d  e   s ) 
'ok)) 


この 定義 を 作る ことの 利点 は half-adder それ 自身 をより 複雑な 回路 を 作成す 
る 時に 建築 用 ブロッ ク と して 使用す る ことができる ことです。 例えば Figure 
3.26 は 2 つの 半 加算器と 1 つの OR ゲー ト より 組み立て られる fuU-adder (全 加 
算器） を 示して います。 26 全 加算器 を 以下の ように 構築で きます。 


(define    vfu 丄 1 - adder  a  b  c - in  sum  c-out ) 

(let    ( ( s    (make-wire ) )    ( c 1 (make-wire ) )    ( c2    (make-wire ) ) ) 
(half -adder  b   c - in  s  cl ) 
(half -adder  a  s   sum  c2 ) 
( or-gate   cl c2   c 一 out) 
'ok)) 


26 全 加算器 は 2 つの 二進 数の 加算に 用いられる 基本的な 回路 要素です。 ここで A と B 
は 加算され る 2 つの 数の 対応す る 位置の ビッ トで、 Cin は 1 つ 右の 加算からの キャリー 
ビッ ト （桁 上げ ビッ ト） です。 この 回路 は 対応す る 位置の 合計の ビッ ト である SUM と 左 
に 伝播され る キャリー ビッ ト である Cout を 算出し ます。 


or-gate   a  b  d) 

ok 

\.  and-gate   a  b  c ) 

ok 

K inverter   c  e ) 

ok 

( and-gate  d  e   s ) 

ok 
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SUM 


Figure  3.26: 全 加算器 回路 


手続と して 定義され た full-adder を 持つ ことで さらによ リ 複雑な 回路 を 
作成す るた めの 建築 プロ ックと して 利用す る こ と が 可能です。 （例えば Exercise 
3.30 を 参照)。 

実質的に、 私達の シミュレータ 一は 回路の 言語 を 構築す る ツール を 提供し 
ます。 も し Section 1.1 における Lisp の 学習への 取り組みに 用いた 言語 上の 一般 
的な 観点 を 受け入れれば、 プリ ミ ティ ブな 関数 箱 は プリ ミ ティ ブな 言語の 要素 
を 形成し、 箱の 間に 回路 を 引く こと は 組み合わせの 手段 を 提供し、 手続と して 
回線 を 引く パターン を 指定す る こと は 抽象化の 手段と しての 役割 を 果たす とい 
うこと が 言えます。 


プリ ミ ティ ブな 関数 箱 

プリ ミ ティ ブな 関数 箱 は ある 回路 上の 信号の 変化が 他の 配線 上の 信号に 影 
響 を 与える "力" を 実装し ます。 関数 箱 を 構築す るた め 以下の 回路 上の 命令 を 
用います。 

•  (get - signal  (wire)) 

回線 上の 信号の 現在地 を 返す 

•  (set-signal ！   (wire)  (new  value)) 

回路 上の 信号の 値 を 新しい 値に 変更す る 

•  (aad-action ！   (wire)  (procedure  of  no  arguments)) 

指定され た 手続が 回路 上の 信号が 値 を 変化した 場合 常に 実行され る 様に 
宣言す る。 そのような 手続 は、 回路 上の 信号の 値の 変化が 他の 回路と 通 
信 を 行う た めの 伝達 手段で ある。 
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さらに 手続 after-delay を 使用し 遅延 時間と 実行され る 手続 を 取得し、 与えら 
れた 手続 を 遅延 時間 後に 実行し ます。 

これらの 手続 を 用いて プリ ミ ティ ブな デジタル 論理 関数 を 定義で きます。 
入力 を 逆 変換器 を 通して 出力に 接続す るた めに add-action! を 用いて 入力 回路 
と 入力 回路 上の 信号が 値 を 変化す る 度 に 実行され る 手続 を 関連 付け ます。 その 
手続 は 入力信号の logical-not (論理 否定） を 計算し、 そして inverter-delay 
後に 出力 信号に この 新しい 値 を 設定 します。 

^define    ( inverter   input   output ； 
dei ine    、 invert-  input ) 
(let    ( (new-value    ( logical - not    (get-signal  input)))) 
( after-delay   inverter- del ay 
( lambda   ( ) 

( set-signal ！    output  new-value ) ) ) ) ) 
( add - action !    input   invert -input )    1  ok) 
(define    (logical - not   s ) 
(cond   ((=  s   0) 1) 
((= s 1) 0) 

(else    ( error   " Invalid   signal " s ) ) ) ) 

AND ゲート はよ リ少 しだけ 複雑です。 アクション 手続 は ゲートへの 入力の ど 
ちらかが 変化した 場合に 実行され ねばな り ません。 それが 入力 回路 上の 信号の 
値の logical-and (論理 積） を （logical-not と 類似の 手続 を 用いて） 求め、 出 
力 回路 上に 起こる 新しい 値への 変更 を and-gate-delay 後 に 設定し ま す。 

^define    ( and-gate   al a2  output ； 
( dei ine    ( and-act ion-procedure ) 
(let    ( (new-value 

( logical - and   (get-signal   al ) (get-signal a2 ) ) ) ) 
( after-delay 
and - gate - delay 

( lambda   ( )    ( set-signal ！    output  new-value ) ) ) ) ) 
( add - act ion ！    al   and-act ion-procedure ) 
( add - act ion ！    a2  and-act ion-procedure ) 
•ok) 

Exercise  3.28:  OR ゲート を プリ ミ ティ ブな 関数 箱と して 定義せ 
よ。 あなたの or-gate コンストラクタ は and- gate と 同様で なけ 
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A，Bi Ci A2B2  c 


FA 


FA 


A,  B, 


FA 


Si  S2 


A„B 


n°n    Cn  =  0 


FA 


Figure  3.27:  n- bit 数の 桁 上げ 伝播 加算器 


れ ばなら ない。 

Exercise  3.29:  OR ゲー ト を 構築す る 別の 方法 は 複合 デジタル 論 
理 デバイス として AND ゲー ト と 逆 変換器から 構築す る もので あ 
る。 これ を 達成す る 手続 or - gate を 定義せ よ。 and - gate - delay と 
inverter-delay を 用いた 遅延 時間 は どのよう になる か？ 

Exercise  3.30:  Figure  3.27 は ri 個の 全 加算器 を 繋げた rippk-mrry 
adder (桁 上げ 伝播 加算器） を 示して いる。 これ は 2 つの n ビッ トニ 
進数 を 足す ための 最も 簡単な 形式の 並列 加算器で ある。 入力 Tli, 
A2,  A3,  -  .. ,  An と B"  B2,  B3,  Bn は 足すべき 2 つの 二進 数 
(各 Afc と Bfc は 0 か 1) である。 回路 は &,  5*3,  . . .,  5*„ の n ビ 
ットの 和と、 和 算の桁 上がりで ある C を 生成す る。 この 回路 を 生 
成す る 手続 ripple-carry-adder を 書け。 この 手続 は 引数と して 
それぞれ n 個の 配線 を 持つ 3 つの リスト  一 Afe,  Bk,  Sfc —と 別の 配 
線 C を 取る。 桁 上げ 伝播 加算器の 主な 欠点 は キヤ リ 一信 号の 伝播 
を 待つ 必要が ある ことで ある。 n ビッ トの桁 上げ 伝播 加算器に お 
ける 完全な 出力 を 得る のに 必要な 遅延 時間 はいく らか？  AND ゲー 
ト、 OR ゲート、 逆 変換器の 遅延 時間から 表現せ よ。 


回路の 表現 

私達の シミュレーション における ワイヤ （wire、 配線、 回路） は 2 つの ロー 力 
ルな 状態 変数 を 持つ 計算 オブジェクト になり ます。 その 2 つ は signal-value (信 
号 値) (初期値 は 0) と 信号が 値 を 変えた 時に 実行され る action-procedures (行 
動 手続） の 集合です。 メ ッ セージ パッシング スタイル を 用いて ワイヤ を 局所 手 
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続の 集合と して 適切な 局所 命令 を 選択す る 手続 dispatch と共に 実装し ます。 
Section  3.1.1 での 簡単な 銀行口座 オブジェ ク トと 同様に 行います。 


、deiine    (make - wire リ 

、丄 et    、 、 s ignal 一 va 上 ue   0 リ taction 一 procedures    '、リ ) ソ 
(define     set-mv- signal ！    new-value  ) 

(if    (not    (=   signal-value  new-value ) ) 

(begin   (set!    signal-value   new-value ) 
( call-each  action-procedures ) ) 

' done ) ) 

( def  ine   ( ac  cept-act ion-procedure ！    proc  ) 
(set ！  action-procedures 

( cons  proc   action-procedures ) ) 
(proc ) ) 
( def  ine    ( dispat  ch  m) 

( cond   "eq?  m    1  get-signal ) signal-value  ) 

"eq?  m    '  set-signal ！  )    set-my-s ignal ！ ) 
"eq?  m    ' add - action ! )    accept - action - procedure ! ) 
( else    (error   "Unknown  operation :    WIRE "  m) ) ) ) 
dispatch ) ) 

局所 手続 set-my-signal ！は 新し レ 、信号 値が 配線 上の 信号 を 変える か チェック 
します。 もしそう であれば 全ての 行動 手続 を 以下の 手続 call-each を 用いて 実 
行し ます。 call-each は 引数 無し 手続の リ スト 内の 全ての アイテム を 呼び出し 
ます。 

dei ine    (  call-each  procedures  ) 
V if    (null?  procedures ； 
' done 

(begin   ((car  procedures ) ) 

( call-each   ( cdr  procedures ) ) ) ) ) 

局所 手続 accept-action-procedure! は 与えられた 手続 を 実行 対象 手続 リ ス ト 

に 追加し ます。 次に 新しい 手続 を 一度 実行し ます。 （Exercise  3.31 参照） 

口一 カルの dispatch 手続が 指定 通り に 設定され ている ことから、 以下の 手 
続 を 与えて 配線 上の 局所 命令に アクセス する ことができます。 27 

27 これらの 手続 は^ 純に オブジェ ク トの 局所 手続に アクセス する ために 通常の 手続 的 
な 文法 を 使用す る こと を 許可す る 構文 糖に 過ぎません。 "手続" と "データ" の 役割 を そ 
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(define    (get-signal  wire )    ( wire    1  get-signal ) ) 
(define    ( set-signal ！    wire  new-value ) 

"wire    1  set-signal ！  )   new- value  ) ) 
( dei ine    ( add - act  ion !    wire   action-procedure ) 

"wire    1  add - act ion ！)  action-procedure)) 

時間 的 に 変化す る 信号 を 持ち 付加 的 に 装置に 取 リ 付 けられる 配線 は ミュー タ ブ 
ルなォ ブジェク トの 特性 を 良く 示して います。 私達 は それ を 代入に ょリ 変化す 
る ロー 力 ル 状態 変数 を 持つ 手続と して モ デル 化 しました。 新し い 配線が 作成 さ 

れた 時、 新しい 状態 変数の 信号 は （make-wire 中の let 式に ょリ） 確保され、 新 
し レ 、 dispatch 手続が 構築 され 返され、 新し い 状態 変数 を 持つ 環境が 確保 さ れ 

ます。 

配線 は 様々 な デバイスの 間で 共有され、 それらに 対して 接続され ます。 従 
つ て ある デバ ィ ス と の 応答に より 起こつ た 変化 は その 配線に 取 リ 付けられた 全 
ての 他の デバ ィ ス に 影響 を 与えます。 配線 は 接続が 開設され た 時に 提供され た 
行動 手続 を 呼ぶ ことにより その 近傍に 対し 変化 を 通知し ます。 


予定表 

シミュ レー タを 完成させる ために 必要な 物 は after-delay のみです。 こ こ 
での アイデア は Menda (予定表） と 呼ばれる データ 構造 を 保持し、 それに 行う 
べき 予定 を 保存し ます。 以下の 命令 は 予定表の ために 定義され ます。 

. (make-agenda) は 新しい 空の 予定表 を 返す。 

. (empty-agenda?  〈age2icia〉） は 指定した 予定表が 空であるなら 真で ある。 

•  (first-agenda-item  〈agenda〉） は 予定表の 最初の アイテム を 返す。 

•  (remove-first-agenda- item!  (  agenda}) はチ え 表 力、 り戚初 のノ つ 丁ム 

を 削除す る。 

•  (add-to-agenda ！    (time)    (  action)    (agenda)) は f 目疋 2 れ /こお も」 後に 

実行 される 行動 手続 を 追加す る。 


のよう な 簡単な 方法で 交換で きる こと は 印象的です。 例えば もし （wire  'get-signal) 
と 書いた 場合、 私達 は wire を メッセージ get-signal を 入力と して 呼び出される 手続 だ 
と 考える でしよう。 その代わりに （get-signal  wire) と 書く こと は 私達に wire を 手続 
get-signal に対する 入力と しての データオブジェクト だと 考える こと を 促します。 この 
問題の 真実 は 私達が 手続 をォ ブジェク ト と して 扱う 言語に は "手続" と "データ" の 間に 
基本的な 違いが 存在せ ず、 私達 は どんな スタイル を 選択しても プロ グラ ミ ングを 可能に 
する 構文 糖 を 選択す る ことができる という ことです。 
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(current -time  {agenda}) は 現在の シミュレーション 時間 を 返す。 


使用す る 予定表 は the- agenda によ リ 指定され ます。 手続 after-delay は 新し 
い 要素 を the- agenda に 追加し ます。 

、 def ine    (after-delay  delay  action) 

( add-to- agenda ！    (+  delay   ( current-time   the - agenda ) ) 
action 

the - agenda  ) ) 

シミュレーション は 手続 propagate (伝播） に よ リ 駆動 さ れ、 the-agenda 上で 

操作 を 行い、 予定表 上の 各 手続 を 順に 実行し ます。 一般的に シミュレータが 実 
行され るに つれ、 新しい アイテムが 予定表に 追加され、 propagate はシ ミュレ 
—シ ヨン を 予定表に アイテムが 存在す る 間 は 続けます。 

dei ine    (propagate  ； 
、if    ( empty-agenda?   the - agenda) 
1  done 

(let    ( (first-item   (ェ irst - agenda - item  the-agenda ) ) ) 
(first-item) 

(remove-first-agenda-item!  the-agenda) 
(propagate ) ) ) ) 


サンプル シミュレーション 

回路 上に "probe" (プローブ、 探 針） を 置く 以下の 手続 は 実行中の シ ミュレ 
—タを 表示し ます。 プローブ は 配線に 対し 信号 値が 変わる 度に 新しい 信号 値 を 
現在に 時刻と 配線 を 識別す る 名前 を 一緒に 表示せ よと 命じます。 


( def ine  vprobe 
( add - action ！ 


name   wire ) 


wire 


(lambda   ( ) 


(newline ) 

(display 

(display 

(display 

(display 

(display 


name ) 

" ") 

(current -" time   the-agenda) ) 


" New-value  = " ) 
(get-signal  wire))))) 
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予定表の 初期化と プリ ミ ティ ブな 関数 箱に 対し 遅延 時間 を 指定す る ことから 始 
めます。 


def  ine  the - agenda     make-agenda)  j 

( def  ine  inverter-delay  2 ) 

( def  ine  and-gat e-delay  3) 

( dei ine  or-gat e-delay  5) 

ここで 4 つの 配線 を 定義し、 その内 2 つに プローブ を 仕込みます。 

dei  ine  input- 1 (make-wire  ) ) 

( dei ine  input - 2    (make-wire ) ) 

( dei ine  sum   (make-wire ) ) 

( dei ine  carry    (make-wire ) ) 


(probe    1  sum  sum ) 

sum  0  New-value  =  0 
(probe    ' carry  carry) 
carry  0  New-value  =  0 

次に 配線 を （Figure  3.25 の 様に） 半 加算器 回路に 接続し、 input-1 上の 信号 を 1 
に 設定し、 シミュレーション を 実行し ます。 

に naif - adder   input- 1 input - 2   sum   carrv ) 

ok 


( set-signal ！    input- 1 1) 

done 


(propagate ) 

sum  8  New-value  = 

done 


s 皿の 進行 は 時刻 8 において 1 に 変化し ました。 シミュレーションの 開始から 
8 単位 時間が 経過し ました。 この 時点で input-2 上の 信号 を 1 に 設定し 値の 伝 
播を 許可し ます。 

(.set-signal ！    input - 2 1) 

done 
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(propagate ) 
carry 11 New-value  = 
sum 16  New-value  =  0 
done 


carry は 時刻 11 にて 1 に 変化し、 sum は 時刻 16 において 0 に 変化し ました。 

Exercise  3.31:  make-wire 内で 定 fe された 内咅に 手続 accept - action - 
procedure! は 新しい 行動 手続が 配線に 追加され た 時に、 その 手続 
が 即座に 実行され た。 この 初期化が なぜ 必要で あるの か 説明せ よ。 
具体的に は、 上の 段落の 半 加算器の 例 を トレースし、 システムの 
応答 力"^  accept — action — procedure! カミ以 下の ように 定義され てレヽ 
た 場合に どのよ う に 異なる かにつ いて 述べよ。 

(define    (accept - act ion - procedure!    proc ) 
(set ！    act  ion-procedures 

(cons  proc   action-procedures ) ) ) 

予定表の 実装 

最後に 将来に 実行され る 予定の 手続 を 保存す る 予定表 データ 構造の 詳細に 
ついて 説明し ます。 

予定表 はな me  segments  、タイム セグス ン 卜、 時間 区分） により 構成され てい 
ます。 各 タイム セグメント は 数値 （時刻） と、 その タイム セグメントの 間に 実 
行され るよう 予定され た 手続 を 持つ キュー （Exercise  3.32 参照） から 成る ペア 
です。 

(, del ine    (make- time -segment   time  queue  ) 

( cons   time  queue)) 
( del ine    (segment-time   s)    (car   s ) ) 
( del ine    (segment- queue   s)    ( cdr  s ) ) 

タイム セグメ ン トの キュー は Section  3.3.2. で 説明した キューの 命令 を 用いて 
操作し ます。 

予定表 自身 は 1 次元の タイム セグメ ントの 表です。 Section  3.3.3 で 説明 さ 
れた 表との 違い は セグメ ントが 時間の 増す 順に ソー ト される ことです。 加え 
て current  fime (現在 時 亥!！） （言い換え ると 最後に 処理され た 行動の 時 亥!!） を 予定 
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表の 頭に 保存し ます。 新しく 構築され た 予定表 は タイム セグメ ントを 持って お 

ら ず 現在 時刻 として 0 を 持ちます。 28 


dei ine    ^maKe- agenda)    v 丄 ist  0)) 
( dei ine    ( current-time   agenda)    (car   agenda ) ) 
( dei ine    (set-current-time ！    agenda  time ) 

( set-car ！    agenda  time)) 
( dei ine    ( segments   agenda)    ( cdr  agenda ) ) 
( dei ine    ( set-segment s ！    agenda   segments ) 

(set - cdr!    agenda   segments ) ) 
( dei ine    (first- segment  agenda) 

(car   ( segment  s   agenda) ) ) 
( dei ine    (rest-segments  agenda) 

( cdr   ( segment  s   agenda) ) ) 

予定表 は タイム セグメント を 持って いなければ 空です。 

dei  ine     emptv- agenda?  agenda) 
(null?    ( segments   agenda) ) ) 

予定表に 行動 （アクション） を 追加す るた めに、 最初に 予定表が 空で あるか 確認 
します。 もしそうならば アクションの ための タイム セグメント を 作成し、 それ 
を 予定表に インストール します。 そうでなければ 予定表 を 走査し、 各セ グメン 
ト の 時刻 を 調べます。 もし 指定 時刻が 存在す るなら ば 対応す る キューに ァ クシ 
ヨン を 追加し ます。 もし 指定 時刻よりも 後の 時間に 迪リ 着いたならば、 新しい 
タイム セグメント を 予定表の その 時間の 前に 挿入し ます。 も し 予定表の 最後 ま 
で迪リ 着いたならば 新しい タイム セグメント を 最後に 作らねば なりません。 

dei  ine     add- to -agenda  ！    time   action  agenda ) 
(define    (be longs -be fore?   segments ) 
(or    (null?   segments ) 

(<  time    ( segment-time    (car   segments ) ) ) ) ) 
(define    (make-new-time-segment   time  action) 
(let    ( (q   (make- queue))) 
(insert- queue ！    q  action) 
(make-time-segment   time  q) ) ) 

28 予定表 は Section  3.3.3 のよう な 頭 出し リ ス 卜です が、 この リ スト は 時刻に よる 頭 出し 
です ので 追加の ダミーへ ッ ダ （テ一 ブルに て 用いられた *table* シンボル のよう な 物） を 
必要と しません。 
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(define    ( add- to- segment  s ！    segments ) 

( if    (=   ( segment-time    (car   segments ) )    time ) 

insert-queue  ！    (  segment-queue    (car  segments  ) ) 
action) 

(let    ((rest    ( cdr  segments))) 
Vif    (belongs -before?   rest ) 
( set - cdr ！ 
segments 

( cons    ( make -new- 1 ime- segment   time  action) 
( cdr   segments ) ) ) 
( add-to- segment s ！  rest))))) 
(let    "segments    ( segments   agenda) ) ) 
(if    、belongs - before?   segments ) 
(set-segments ！ 
agenda 

( cons    (make-new-time-segment   time  action) 
segments ) ) 
(add -" to - segments ！    segments ) ) ) ) 

予定表から 最初の アイテム を 削除す る 手続 は 最初の タイム セグメント 中の キュ 
一の 先頭の アイテム を 削除し ます。 もし この 削除が タイム セグメント を 空に す 
るので あれば、 セグメントの リストから それ を 削除し ます。 29 

、deiine    、 remove -: first - agenda - item!  agenda) 

(let    (、q   ( segment -queue    (first- segment   agenda) ；)) 
( delete - queue !  q) 
(if    (empty- queue?  q) 

( set-segment  s ！    agenda    (rest-segments   agenda ) ) ) ) ) 

最初の 予定表の アイテム は 最初の タイム セグメ ン トの キューの 頭に 見つかり ま 
す。 アイテム を 抽出す る 度に 現在 時刻の 更新 も 行います。 M 

29 この 手続の 中の if 式が (alternative) 式 を 持って いない ことに 注意して 下さい。 こ 
のよう な "片腕の if 文" は 2 つの 式の 間から 選択す るので はなく 何 か をす るか どう 
か を 決定す るのに 使用され ます。 if 式 は 述語が 偽に なった 場合に 未定義の 値 を 返し、 
{alternative) (よ 有り ません。 

M このよう にして、 現在 時刻 は 常に 最も 最近に 処理され た アクションの 時刻に なり ま 
す。 こ の 時刻 を 予定表の 頭に 格納す る こ と で 例え 関連す るタ ィ ム セグメ ン ト が 削除され 
て も 依然と して 有効で ある こと を 確約し ます。 
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(define    (f  irst -agenda- item  agenda) 
(if    ( empty-agenda?   agenda ) 

(error   "Agenda   is   empty :    F IRST- AGENDA- ITEM " ) 
(let    ((first - seg   (first -segment   agenda) ) ) 
(set-cur re nt-time ！  agenda 

( segment-time   f irst-seg) ) 
(front-queue    ( segment -queue   f irst-seg) ) ) ) ) 

Exercise  3.32: 予定表の 各 タイム セグメ ン トの 間に 実行され る 手続 
は キューに 保存され る。 従って 各 セグメ ントの 手続 は 予定表に 追 
加され た 順に 呼び出される （FIFO)。 なぜ この 順が 使用され るべき 
か 説明せ よ。 具体的に は 入力が 0,1 から 1,0 に 同じ セグメ ント にて 
変化した 時の AND ゲートの 振舞 を ト レースし、 も し セグメ ントの 
手続 を 通常の 順に 格納し、 手続の 追加 と 削除 を 先頭での み 行った 
場合 （LIFO) に 振舞が どのよう に 異なる かにつ いて 述べよ。 

3.3.5 制約 伝播 

コンピュータ プログラム は 伝統的に 一方 向の 演算と して 体系化され ます。 
これ は 事前に 指定した 引数 上で 命令 を 実行し、 望んだ 出力 を 生成し ます。 一方 
で 私達 は 時折、 量の 間の 関係 を 用いて システム を モデル 化します。 例えば 機械 

構造の 数理 的 モデル は 金属 棒の 偏差 d が 棒 上の 力 F、 棒の 長さ L、 断面 積ん 
弾性率 £； に 方程式 を 通して 関連 するとい う 情報 を 含む でしよう。 

dAE  =  FL. 

そのような 方程式 は 一方 向で はあり ません。 任意の 4 つの 量 を 与えられる こと 
で、 5 つ 目 を 計算す る ことができます。 けれども 方程式 を 伝統的な コンビ ユー 
タ 言語へ と 翻訳す る こと は 1 つの 量 を 選択し 他の 4 つ を 用いて 求める こと を 私 
達 は 強制され ます。 従って 断面 積 を 求める 手続 は 偏差 d を 求める ことに は、 
例え A と d の 演算が 同じ 方程式から 起こっても 使用で きません。 31 


31 制約 伝播 は 最初に 信じられない 程 先進 的であった Ivan  Sutherland  (1963) による 
SKETCHPAD システムに 現れました。 Smalltalk を ベースに した 美しい 制約 伝播 シス テ 
ムは Alan  Borning  (1977) によ り Xerox パロ アル ト 研究 センタに て 開発され ま した。 
Sussman,  Stallman,  Steele の 3 人 は 制約 伝播 を 電子回路 分析に 応用 しました （Sussman 
and  Stallman  1975;  Sussman  and  Steele  1980)。  TK!Solver(Konot)asek  and  Javaraman 
1984) は 制約 を ベースに し た 大規模 モ デ リ ン グ 環境です。 
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Figure  3.28: 制約 ネッ ト ワークと して 表した 関係 
9C  =  5(F-  32) 


この 節で は 関係 性 自身 を 用いて 働く ことが 可能な 言語の 設計 を 描きます。 
言語の プリ ミ ティ ブな 要素 は primitive  constraints  〔プ、 ) ミ ティ ブ 制約) であり、 
幾らかの 関係 性が 数量の 間に 保存され る こ と を 示します。 例えば c は 方程式 
a  +  6  =  c から 参照され ねばならず、 （multiplier  x  y  z) は 制約 xy  =  z を敦 
し、 （constant  3.14  x) は: r の 値が 3.14 に違いないと 述べて います。 

私達の 言語 は プリ ミ ティ ブ 制約 をより 複雑な 関係 を 表明す るた めに 接続す 
る 手段 を 提供 します。 制約 を constraint  netoorfcs (制約 ネットワーク） を 構築す 
る ことで 接続し、 その 中で 制約 は connectors (コネクタ） を 用いて 結合され ます。 
コネクタ は 値 を 持つ オブジェクト であり、 1 つ 以上の 制約に 加わります。 例え 
ば 華氏 と 摂氏の 気温の 間の 関係が 以下で ある こと を 知っています。 

9C  =  5{F  -32). 

そのよう な 制約 は プリ ミ ティ ブな 加算器、 乗算器、 不変 制約 （Figure  3.28) よ リ 
成り立つ ネッ ト ワークと して 考える ことができます。 図の 中で 左手に ml, m2, 
p の 3 つの 端子 を 持つ 乗算の 箱 を 見る ことができます。 これら は 乗算器 を 以下 
のネッ ト ワークの 残りに 接続し ます。 ml 端子 は 摂氏の 気温 を 保持す る コネ ク 
タ C に リンク されます。 m2 端子 も 9 を 持つ 整数 箱に リンク されます。 乗算器 
の 箱が ml と m2 の 積に 制約 を 行う p 端子 は 別の 乗算器の 箱の? 3 端子に 接続 さ 
れ、 その 箱の m2 は 整数 5 に、 ml は 合計の 1 つの 端子に 接続され ます。 

このような ネッ ト ワークに よる 計算 は 以下の 様に 進行され ます。 コネクタ 
に 値が （ユーザ、 または リンク された 制約 箱に ょリ） 与えられた 時、 その 関連す 
る 制約 全て を （それ を 起こした 制約 を 除いて） 起こし、 それらに 値 を 得た こと を 
伝えます。 起き た 制約 箱 は 全て 次に コネクタに 対し コネクタの 値 を 決定す るの 
に 十分な 情報が 存在す るか を 調査 （poll) します。 もしそう であれば、 制約 箱 は 
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コネクタに 値 を 設定し、 コネクタ はする と 関係す る 制約 を 全て 起こします。 こ 

れが 繰り返されます。 例と して 摂氏と 華氏の 間の 換算で は 《),  a;,  y は 整数 箱 9, 
5,  32 それぞれ により 直ぐに 設定され ます。 コネクタ は 乗算器と 加算器 を 起動 
し、 それら は 続行に 必要な 情報が 十分で はない こと を 判断し ます。 もし ユーザ 
(または ネッ ト ワークの 何ら かの 他の 部分が) C に 値 （例えば 25) を 設定す る と 
最も 左の 乗算器が 起動され、 m に 25.9  =  225 を 設定し ます。 すると U が 2 つ 
目の 乗算器 を 起動し、 それが w に 45 を 設定し ます。 そして w が 加算器 を 起動 
し、 加算器 は/を 77 に 設定し ます。 

制約 システムの 利用 

制約 システム を 用いて 上で 説明され た 気温の 計算 を 実行す る に は 最初 に 2 
つの コネクタ、 C と F を コンストラクタ make-connector を 呼ぶ ことで 作成し、 
C と F を あるべき ネッ ト ワークに リ ンク します。 

(, def ine  C  (.make -connector; ) 
(, def ine  f  make -connector; ) 
( ce Is ius-fahrenhe it- converter  C  F) 

ok 

ネットワーク を 作成す る 手続 は 以下の ように 定義され ます。 

def  ine    (  eels  ius-fahrenhe  it- convert  er   c ェ) 
(let    ( (u   (make -connector) ) 

( v   (make -connector) ) 

(w   (make -connector) ) 

(x    (make -connector) ) 

(y   (make -connector) ) ) 
(multiplier   c  w  u) 
(multiplier  v  x  u) 
( adder  v  y  f ) 
( constant   9  w) 
( constant   5  x) 
( constant   32  y) 
■ok)) 

この 手続 は 内部 コネクタ u，  v,  w,  x,  y を 作成し、 それら を Figure  3.28 に 示され 
るよう に プリ ミ ティ ブな 制約 コ ンス トラクタ adder,  multiplier,  constant を 
用いて リ ンク します。 
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実行中の ネッ ト ワーク を 見る ために、 コネクタ C と F に プローブ （探 針） 
を Section  3.3.4 で 配線の 監視に 用いた 物と 同様な probe 手続 を 用いて 設置し ま 
す。 プロ 一  ブの コネクタ 上への 設置 は コネクタ に 値が 与え られる 度に メッセ 一 
ジが 表示 される ようにし ます。 

I, probe   "  Celsius   temp  "  C) 
probe   "  t  ahrenheit   temp  "   t  ) 

次に C の 値 を 25 に 設定し ます。 （set-value! への 3 つ 目の 引数 は C にこの 指 
示が user による 物で ある こと を 伝えて います)。 

^  set- value ！    C  25    r  user ) 

Probe:  Celsius  temp  =  2d 
Probe:  Fahrenheit  temp  =  77 
done 

C 上の プローブが 起動され 値 を 報告し ます。 C はまた その 値 を 上で 説明され た 
ネットワーク を 通して 伝播させます。 これが F に 77 を 設定し、 F 上の プローブ 
により 報告され ます。 

ここで F に 新しい 値、 例えば 212 を 設定して みましょう。 

I.  set- value  ！    F  212    1  user ) 

Error!  Contradiction  (77  212) 

コネクタが 矛盾に 気付いた と 訴えて います。 その 値 は 77 の 時、 誰かが 212 を 
設定しょう としてい るので す。 もし 本当に ネッ ト ワーク を 新しい 値に て 再 利用 
したいの であれば C に 古い 値 を 忘れる ように 指示で きます。 

、： forget - value ！    C    1  user ) 

Probe:  Celsius  temp  =  ？ 
Probe:  Fahrenhei t  temp  =  ？ 
done 

C は 元の 値 を 設定した user が 今 撤回して いるのに 気付き、 C は その 値 をな くす 
ことに プローブが 示す ように 同意し、 ネッ ト ワークの 残り にこの 結果に ついて 
伝えます。 この 情報が 結果 的に F に 伝播し、 F は 今と なって は それ 自身の 値が 
77 であると 信じ 続ける ための 理由が 無い ことに 気付きます。 従って F もまた そ 
の 値 を 諦め プローブ によ リ 表示され ま す。 

これで F は 値 を 持たず、 私達 は F に 212 を 設定で きます。 
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( set- value ！    F  212    1  user ) 

Probe:  Fahrenheit  temp  =  212 
Probe:  Celsius  temp  = 100 
done 

この 新しい 値が ネッ ト ワーク 中に 伝播され た 時、 C に 100 の 値 を 持つ こと を 強 
制し、 C 上の プローブに よりこの ことが 表されます。 全く 同じ ネットワークが 
F を 与えて C を 計算す るのと、 C を 与えて F を 計算す る ことに 用いられ ている 
ことに 注意して 下さい。 この 方向 性の 無い 演算が 制約 ベース システムの 特徴 的 
な 機能です。 

制約 システムの 実装 

制約 システム は 局所 状態 を 持つ 手続き 型の ォブ ジヱク ト によ リ、 Section 
3.3.4 の デジタル 回路 シミュレータに 良く 似た 作法で 実装 されます。 制約 シス テ 
ムの プリ ミ ティ ブなォ ブジェク ト はいく ら かよ リ 複雑で は ある ものの、 シス テ 
ム 全体 は 予定表 や 論理 遅延 時間に ついての 考慮が 不要な 分、 よ り シンプルです。 

コネクタ 上の 基本的な 命令 は 次の と お り です。 

. (has-value?  <comiector>) は コネクタが 値 を 持つ かどう か 判断す る 

•  (get-value  <connector>) は コネクタの 現在地 を 返す 

•  (set-value  ！  <connector>  <new-value>  <informant>)  (3~1青 羊 K 力 11 コネ ク 
タ に 対し その 値 を 新しい 値に 設定す るよう 要求す る こ と を 示す 

•  (forget- value  ！   <connector>  <retracto;r>) は コネクタに 対し 撤回 を 
望む 者が 値 を 忘れる こと を 要求して いると 伝える 

•  (.connect  <connector>  <new-constraint>) はコ不 クタに メ寸レ 呆/T しい 制 

約への 参加 を 指示す る 

コネクタ は 与えられた 制約に コネクタが 値 を 持って いると 伝える 手続 inf  orm- 
about-value と 制約に コネクタ が 値 を 失った と 伝える 手続 inform-about -no- 
value  を 用いて 制約と 通信 を 行います。 

adder は 加数 コネクタ al と a2 と sum コネクタの 間に 加算器 制約 を 構築す 
る コンストラクタです。 加算器 は 局所 状態 を 持つ 手続 （下記の 手続 me) として 
実装され ます。 

def ine    ( adder  al a2  sum) 
( dei ine  (process-new-value) 
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( cond  ((and 
( set- 


((and 
( set- 


((and 
( set- 


(has - value?  al ) (has- 
value ！  sum 

(+   ( get-value 

me) ) 

(has - value?  al ) (has- 
value ！  a2 

(- ( get-value 

me) ) 

(has - value?  a2)  (has- 
value ！  al 

(- ( get-value 


value?   a2) ) 

al) ( get- value   a2) ) 

value?   sum) ) 

sum)    (get-value   al ) ) 

value?   sum) ) 

sum)    (get-value   a2 ) ) 


(define    (process -: forget - value) 
(f orget-value ！    sum  me) 
(f orget-value ！    al  me) 
(f orget-value ！    a2  me) 
(process-new-value)) 
(define    (me  request) 

( ( eq?   request    1 I-have-a-value ) 

(process-new-value)) 
((eq?   request    '  I - lost - my - value ) 

(process -: forget - value)) 
(else    (error   "Unknown  request :    ADDER 1 


(cond 


request ) ) ) ) 


( connect  al n 

( connect  a2  n 

( connect  sum 
me ) 


adder は 新しい 加算器 を 指定され た コネクタに 接続し 自身 を その 値と して 返し 
ます。 手続 me は 加算器 を 表現し、 口一 カル 手続 を 起動す る 者の 役割 を 果たし 
ます。 

dei ine    ( inform- about -value   constraint  ； 
( constraint    1 I-have-a-value)) 
( dei ine    (inform-ab out-no-value   constraint ) 
( constraint    'I - lost - my - value)) 

加算器の 口一 カル 手続 process-new-value は その 加算器が 繋る コネクタの 内 1 
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つが 値 を 得た 事 を 報され た 時に 呼び出されます。 加算器 は 最初に al と a2 の両 
方 力 ^(直 を 持って いる か 確認 します。 もしそうならば sum に 2 つの 加数の 和 を そ 
の 値と して 設定す るよう に 指示し ます。 set-value! の informant (情報 提供者） 
引数 は 加算器 オブジェ ク ト 自身で ある me です。 もし al と a2 の 両方が 値 を 持 
つてい ない 場合、 加算器 は ひよ つ としたら al と sum が 値 を 持って いない か 確 
認 します。 もしそうならば a2 に その 2 つの 差 を 設定し ます。 最後に a2 と sum 
が 値 を 持って いるの ならば 加算器に al を 接待させる ために 十分な 情報 を 持つ 
ている ことにな リ ます。 も し 加算器が コネクタの 1 つが 値 を 失な つたと 報され 
た 場合、 全ての コネクタに 対し その 値 を 捨てる よう 指示し ます。 （この 加算器に 
よ リ 設定され た 値の みが 実際に は 失な われます)。 次に 加算器 は process-new- 
value  を 実行し ます。 こ の 理由 は 1 つ、 また は それ以上の コネクタ が 依然 と し 
て 値 を 持って いる 可能性が あり （つまり、 コネクタが 元々 その 加算器に ょリ設 
定 された ので はない 値 を 持って いる）、 これらの 値 は 加算器 を 通して 伝播し 返 
す 必要が あり ます。 

乗算器 は 加算器に とても 良く 似て います。 因数の どちら かが 0 なら 例え 他 
方の 値が わからなくても product を 0 にします。 


(, del ine    (multiplier  ml m2  Droduct  ； 
( del ine  (process-new-value) 

((or   ( and   (has-value?  ml) (= 
( and   (has-value?  m2) (= 
( set-value ！    product   0  me)) 


( cond 


(get-value  ml) 0)) 
(get-value  m2)    0) ) ) 


((and 
( set- 


((and 
( 


((and 

( 


(has-value?  ml)    (has-value?  m2) ) 
value ！  product 

( *    ( get-value  ml) ( get- value  m2 ) ) 

me) ) 

(has-value?  product ) 
value ！  m2 

(/  ( get-value 
( get-value 

me) ) 

(has-value?  product ) 
value ！  ml 

(/    ( get-value 
( get-value 


(has-value?  ml)) 

product ) 
ml)) 

(has-value?  m2 ) ) 

product ) 
Q2)) 


(define    (process -: forget - value) 
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(forget - value !    product  me) 
( forget - value !    ml  me) 
( f orget-value ！    m2  me) 
(process-new-value)) 
( dei ine    (me  request) 

( cond   ( ( eq?   request    1 I - have - a - value ) 
(process-new-value)) 
((eq?   request    1  I - lost - my - value ) 

(process -: forget - value)) 
(else    (error   "Unknown  request : 

MULTIPLIER"  request)))) 

( connect  ml  me) 

( connect  m2  me) 

( connect  product  me) 

me ) 

constant コンストラクタ は 単純に 指定され た コネクタの 値 を 設定し ます。 I- 
have-a-value と I-lost-my-value のど ちらの メ ッ セージが 定数 箱に 送られて 
も エラー を 発します。 

^define    ( constant   va 丄 ue  connector) 
dei  ine    、me  request) 
(error   "Unknown  request :    CONSTANT "   request ) ) 
( connect   connector  me) 
( set-value ！    connector  value  me) 
me ) 

最後 に プロ 一 ブは 指定 された コネクタ の 設定、 設定 解除の メッセージ を 表示し 
ます。 

def ine    (probe  name  connector) 
( dei ine    (print-probe   value ) 

(newline )    (display   "Probe:    " )    (display  name ) 

(display   "   =   " )    (display  value)) 
( dei ine  (process-new-value) 

(print-probe    (get- value   connector ) ) ) 
( dei  ine    (process-f  orget-value)    (print-probe  ■'?")) 
( dei ine    (me  request) 
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( cond   ( ( eq?   request    1 I - have - a - value ) 
(process-new-value)) 
((eq?   request    1  I - lost - my - value ) 

(process -: forget - value)) 
(else    (error   "Unknown  request :    PROBE "  request)))) 
( connect   connector  me) 
me ) 


'ネ クタの 表現 


コネクタ は 局所 状態 変数 を 持つ 手続 型の オブジェ ク ト と して 表現され、 
value は コネクタの 現在地、 informant は コネクタの 値 を 設定した オブジェ ク 
ト、 そして constraints は コネクタが 参加す る 制約の リストです。 

、 dei ine    (make-conne  ctor ) 

(let    "value   false )      informant   false )    ( constraints  '())) 
(define    ( set -my- value  newval   setter ) 
( cond   "not    (has  -  value?  me)) 
(set!    value  newval) 
(set!    informant  setter) 
(f or - each - except  setter 

inform -about -value 
constraints ) ) 
"not    (=  value  newval ) ) 

(error   "Contradiction " ( list   value  newval ) ) ) 
( else    '  ignored ) ) ) 
( def  ine   ( forget -my- value   retractor ) 
(if    ( eq?   retractor   informant ) 

(begin   (set!    informant   false ) 

(for - each - except  retractor 

inf  orm- about -no -value 
constraint s ) ) 

' ignored ) ) 
( def  ine   ( connect  new-constraint) 

(if    (not    (memq  new-constraint    constraints ) ) 
(set!  constraints 
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( cons  new-constraint   constraints ) ) ) 
(if    (has - value?  me) 

( inform- about -value  new-constraint) ) 
1  done ) 
(define    (me  request ) 

( cond   ( ( eq?   request    1 has-value? ) 

informant   true   false ) ) 
' request    1  value )    value ) 


(if 
((eq? 
((eq? 
((eq? 
((eq? 
( else 


request    1  set-value ！ )    set - my "- value ) 
request    1  forget )    forget -my- value ) 
request    1  connect )    connect ) 
(error   "Unknown  operation :  CONNECTOR1 
request ) ) ) ) 


0) 


コネクタ の 局所 手続 set-my-value は コネクタ の 値 を 設定す る 要求が 存在 し た 
時に 呼ばれます。 もし コネクタが 現在 値 を 持って いない 場合、 その 値 を 設定し、 
値の 設定 を 要求した 制約 を informant として 記憶し ます。 32 次に コネクタ は 参 
加して いる 制約 全て に 対し 値の 設定 を 要求 し た 制約 を 除いて 通知し ます。 これ 
は 以下の iterator (ィテ レー タ、 繰り返す 者） を 用いて 達成され ます。 ィテ レー 
タは 指定され た 手続 を 与えられた 1 つ を 除いた リスト 中の 全ての アイテムに 対 
して 適用し ます。 

dei ine    (for-eacn-except   exception  procedure   list ) 
( dei ine    (loop   items ) 

( cond   ( (null?   items )  'done) 

((eq?    (car   items )    exception ) (loop    ( cdr  items))) 
(else    (procedure    ( car  items)) 
(loop    ( cdr  items))))) 

( loop  list)) 

も し コネクタ がその 値 を 忘れる よう 指示され たな ら、 局所 手続 forget- my - 
value を 実行し、 最初に 要求が 元々 値 を 設定した 同じ オブジェ ク 卜からで ある 
か を 確認し ます。 も しそうならば コネクタ は 関連す る 制約に 値の 喪失に ついて 
伝えます。 


32 setter は 制約で はない かも しれません。 
ました。 


気温の 例で は user を setter と して 使用 し 
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局所 手続 connect は 指定され た 新しい 制約 を 制約 リストに、 既に 存在し な 
い 場合に は 追加し ます。 次に もし コネクタが 値 を 持って いるの ならば、 新しい 
制約に その 事実 を 伝えます。 

コネクタの 手続 me は 他の 内部 手続 を 実行す る 役割 を 果たし、 また コネクタ 
をォ ブジェク ト として 表現し ます。 以下の 手続 は 起動の ための 文法 上の インタ 
一 フェイス を 提供し ます。 

、deiine  、！ ias - valuer   connector)    ( connector    1  has - value? ソ) 
、deiine    、get  —  value   connector  ；      connector    1  value  ) ； 
( dei ine    ( set-value ！    connector  new- value  informant) 

"connector    1  set-value ！ )   new-value   informant ) ) 
( dei ine    (forget - value !    connector  retractor ) 

V  connector    1  forget )    retractor  ) ) 
( dei ine    ( connect   connector  new-constraint) 

た i,  connector    1  connect )  new-constraint)) 

Exercise  3.33: プリミティブな 乗算器、 加算器、 定数の 制約 を 用い 
て、 3 つの コネクタ a,  b,  c を 入力と して 取り、 c の 値が a と b の 値 
の 平均 を 見出す 手続 averager を 定義せ よ。 

Exercise  3.34:  Louis  Reasoner は 2 つの 端子 を 持ち、 2 つ 目の 端子 

上の コネクタ b が 常に 1 つ 目の 端子 上の 値 a の 二乗で ある 制約 端 
末 squarer を 構築した いと 考えた。 彼 は 以下の 簡単な 乗算から 作ら 
れた 端末 を 提案した。 

(define    ( squarer  a  b )    (multiplier  a  a  b ; ) 

この アイデアに は 致命的な 問題が あ る。 説明せ よ。 

Exercise  3.35:  Ben  Bitdiddle は Louis に Exercise  3.34 の 問題 を 避 
ける 1 つの 方法と して squarer を 新しい プリ ミ ティ ブな 制約と し 
て 定義す る こと を 伝えた。 Ben の 新しい 制約の 輪郭の 欠けて いる 
部分 を 埋め そのような 文脈での 実装 を 行え。 

(define    ( squarer  a  b ) 

(define  (process-new-value) 
( if    (has - value?  b) 

(if    (<    (get-value  b)  0) 

( error   " square   less  than  0:    SQUARER " 
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( get-value  b ) ) 
(alternativel) ) 
{alternative 2) ) ) 
(define    (process - forget - value)    {bodyl) ) 
(define    (me  request )    (body  2) ) 
(rest  of  deimition) 
me ) 

Exercise  3.36:  ^下の グロ一 バル 環境 内の 式の 列 を 評価した と 
する。 

(define  a  (make- connector) ) 
( dei ine  b  (make- connector) ) 
( set-value ！    a 10  'user) 

set-value! の 評価の 間の ある 時点で、 コネクタの 口一 カル 手続 か 
ら 以下の 式が 評価され る。 

、： for - each - except 

setter   inform -about -value   constraints ) 

上の 式が 評価され る 環境 を 示す 環境の 図 を 描け。 

Exercise  3.37:  celsius-fahrenheit-converter (摂氏 華氏 変換器) 
手続 は 以下のような 式 指向な スタイルと 比べた 時に 煩わしい。 

dei  ine    (  c els ius-falirenhe it- converter  x) 
(c+   (c*    (c/    (cv  9)    (cv  5) ) 
x) 

(cv  32))) 
( dei ine  C   (make- connector) ) 

( dei ine  F   ( ce Is ius-fahrenhe it -converter  C ) ) 

ここで C+,  C* 等 は 数値 演算 命令の "制約" 版で ある。 例えば C+ は 

2 つの コネクタ を 引数と して 取り、 これらに 関係す る コネクタ を 加 
算器 制約に て 返す。 

def ine    (c+  x  y ) 
(let    ( (z   (make- conne  c tor ) ) ) 
( adder  x  y  z ) 
z)) 
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同様の 手続 c-,  c*,  c/,       (定数） を 定義し、 複合 制約 を 上記の 変換 

器の 例の 様に 定義で きる ようにせ よ。 33 


3.4 並行 性： 時間が 本質 

私達 はこ こまで 局所 状態 をモ デリ ング のた めの ツールと して 持つ 計算 ォブ 

ジェク トのカ を 学びました。 それ にもかかわらず、 Section  3 丄 3 で 警告した よ 
うに、 この 力に は コストが 伴います。 参照 等価 性 を 失な うこと は 等価 性と 変更 
に関する 問題の チケット を 増加し、 評価の 置換 モデル を 断念し、 ょリ 何回な 環 
境 モデルの 支持 を 必要と します。 

状態、 等価 性、 変更の 複雑さの 下に 潜んで いる 中心的 課題 は、 代入 を 導入す 
る ことにより 私達 は 計算 モデルの 中 に fime (時間） の 存在 を 認める こと を 強制 さ 
れる ことです。 代入の 導入 前 は 私達の プログラム 全て は 値 を 持つ 任意の 式が 常 

33 式 指向 形式 は 便利 です。 それ は 演算の 中間 式に 名前 を 付ける 必要性 を 回避で きる た 
めです。 私達の 元 々 の 制約 言語の 形式 は 多 く の 言語が 複合 デー タを 取り扱う 場合と 同様 
に 面倒でした。 例と して、 変数が ベクトル を 表現す る 場合に 積 （a  +  6).(c  + め を 求めた 
い 時、 "命令 型 スタイル" で 指定され たべ ク トルの 値 を 設定す る けれども それ 自身 はべ ク 
トル を 値と して 返さない 手続 を 用いて 行う こと は 可能です。 

^ v-sum  a  b  tempi ) 
、v— sum  c  d  temp2 ) 
( v-prod  tempi  temp2  answer ) 

代替 法と して、 べク トル を 値と して 返す 手続 を 用いて 式 を 用いて 行う こと も 可能です。 
その 場合、 明示的に tempi と temp2 を 記述す る 必要 を 避ける ことができます。 

、defirie  answer   i. v-prod   (v - sum  a  b)    (v - sum  c  d) ; ) 

Lisp は 手続の 値と して 複合 ォ ブジェク 卜 を 返す こ とがで きる ため、 命令 型 スタイル 制 
約言 語 を 式 指向 ス タイ ルに 課題で 示 された よう に 変形す る こ と がで きます。 複合 デー タ 
の 扱いが 乏しい 言語、 例えば Algol,  Basic,  Pascal (明示的に Pascal の ポインタ 変数 を 用 
いる 場合 は 除く） では 通常 複合 オブジェ ク トを 操作す る 場合に 命令 型 スタイルに 行き 詰 
まり ます。 式 指向 形式の 利点 を 与えられ ると ある 人 は システム を 私達が この 節で 行った 
よ う に 命令 型 スタイルで 実装す る こと に 何ら かの 意味が あるの かと 尋ねる かも しれ ませ 
ん。 1 つの 理由 は 非 式 指向の 制約 言語 は 制約 オブジェクト 上に、 コネクタ オブジェクト 上 
と 同様に ハン ドル を 提供し ます （例えば adder 手続の 値)。 これ はも し 我々 が システム を 
コネクタ 上の 命令 を 通して 間接的 に 通信す る だ けで なく、 制約と 直接 通信す る 新しい 命 
令 を 用いて システム を 拡張したい 場合に はとても 便利です。 式 指向 スタイル を 命令 型の 
実装 を 用いて 実装す るの は 簡単です が、 逆 はとても 難しい のです。 
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に 同じ 値 を 持つ という 意味に おいて 恒久的でした。 対照的に、 Section  3. 1.1 で 
紹介した 銀行口座からの 引き出しと 差 引 残高の 返却の モデル 化の 例 を 思い出し 
て 下さい。 

(.withdraw  25) 

75 

i. withdraw  25) 

50 

ここで は 同じ 式の 一連の 評価が 異なる 値 を 生じて います。 この 振舞 は 代入 
文の 実行 （この場合 では 変数 balance への 代入） が 値が 変化した morraenfo  in 
な me (時間の 瞬間） を 描いて います。 式の 評価の 結果 は 式 自身 だけで はなく、 こ 
れらの 瞬間の 前 か 後に 評価が 行われた かに も 依存し ます。 局所 状態 を 持つ 計算 
モデル を 用いた モデルの 構築 は 私達に プロ ダラ ミ ング における 本質的な 概念と 
しての 時間に 直面す る こ と を 強います。 

計算 モデルの 構造 化に おいて 物理 世界の 私達の 認知 を 一致させる こと をよ 
リ 進める こと は 可能です。 世界の 中の オブジェ ク トは 一時に 1 つが 順に 変わる 
こ と は あ リ ません。 そ う ではな く  、 私達 は それら 力、 oncMrrenity (並行） に 一同 
時 に 一行 動す る こと を 知覚し ます。 そのため システム を 並行に 実行す る 計算 処 
理の 集合で ある と モ デル 化する こと は 多くに おいて 自然です。 分離され た 局所 
状態 を 持つ オブジェクト を 用いて モ デル を 体系化す る ことにより 私達の プロ グ 
ラム を モジュラー 化する のと 同様に、 計算 モデル を 別々 に、 並行に 発展す る 部 
分に 分割す る こと は 多く の 場合に 適切です。 例え プロ グラムが 逐次 的な 計算機 
により 実行され ると しても プログラム を 並行 に 実行 さ れる 前提で 書 くこと を 練 
習す る こと は プログラマに 不必要な 制約 を 防ぐ こと を 強いる ため、 プログラム 
をより モジュール 式に します。 

プログラム をより モジュール 式に する のに 加えて、 並行 演算 は 逐次 的 演算 
に 対し 速度 上の 利点 を 与える ことが 可能です。 逐次 的 演算 は 一時に 1 つの 命令 
のみ を 実行す るた め タスクの 実行に かかる 時間 量 は 実行され る 命令の 総量に 比 
例し ます。 34 しかし もし 問題 を 相対的に 独立した 部分に 分割す る ことが 可能 
で、 稀に しか 通信 を 行う 必要が 無ければ、 それらの 部分 を 異なる 計算機に 配置 
し 、 存在す る 計算機の 数に 比例 した 速さの 利点 を 生じる こと が 可能 となる でし 
よ ラ。 


34 本物の CPU の 多く は 実際に はいくつ かの 命令 を 同時に、 pipelining リくィ プライン） 
と 呼ばれる 戦略に 従い 実行し ます。 この テクニック は 大きく ハー ドウ エアの 実行 効率 を 
改善し ますが、 これ は 一連の 命令 ストリームの 実行 を、 逐次 的 プログラムの 振舞 を 保ち 
ながら 高速 化する ための みに 利用され ます。 
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残念な ことに、 代入に より 持ち込まれた 複雑 性 は 並行 性の 出現に より、 よ 
り 一層 難しく な リ ます。 並行 実行の 結果 は 世界が 並列に 作動す るた めか 計算機 
がそれ を 行うた めかに よらず、 私達の 時間の 理解に さらなる 複雑 性 を もた ら し 
ます。 

3.4.1 並行 システム 内の 時間の 性質 

表面上 は 時間 は 簡単に 見えます。 時間 は イベントに 課される 順序 付けで 

す。 35 任意の イベント 兰 と £ に 対し、 兰 が B の 前に 起こる か、 兰 と B が 同 
時 か、 A が B の 後に 起こる かです。 例えば、 銀行口座の 例に 戻れば、 最初に 
$100 を 持つ 連結 口座から Peter が $10 を 引き出し、 Paul が $25 を 引き出した 
場合、 口座に は $65 が 残ります。 二人の 引き出し 順により、 口座の 残高の 列 は 
$100  ^  $90  ^  $65 か $100  ―  $75  4  $65 です。 銀行 システムの 計算機 実装に 
おいて こ の 口座の 列の 変化 は 連続 し た 変数 balance への 代入 として モ デル 化で 
きます。 

複雑な 状況で はしかし、 そのような 見方 は 問題と なりえ ます。 Peter と Paul 
に加えて 他の 人々 が 同じ 銀行口座に 世界中に 分散され た 現金自動預け払い機の 
ネッ ト ワーク を 通して アクセス するとし ます。 実際の 口座の 残高の 列 は 大きく、 
アクセス タイ ミ ングの 詳細と 機械の 間の 通信の 詳細に 依存し ます。 

この イベント 順の 非 決定 性 は 並行 システムの 設計に おいて 深刻 な 問題 を 提 
起します。 例えば Peter と Paul の 引き出しが 共通の 変数 balance を 共有す る 2 
つの 分離した 処理 だとし ます。 各 処理 は Section  3.1.1 にて 与えられた 手続に よ 
リ 指定され ます。 

v.  dei ine    (withdraw  amount ) 
、if    (>=  balance   amount ) 
(begin 

(set!    balance    (-  balance   amount ) )   balance ) 
■'Insufficient   funds  " ) ) 

もし 2 つの 処理が 独立に 動作す るなら、 Peter は 残高 を 確認し、 正当な 額面 を 
引き出そう とします。 しかし Paul が Peter が 残高 を 確認 し た 時点 と Peter が 引 
き 出し を 完了す る 時点の 間に いくらかの 資金 を 引き出す かもしれ ません。 従つ 
て Peter の 確認 を 無効に する かも しれません。 

さらに 悪くな りえます。 以下の 式に ついて 考えて みましょう。 


35 ケ ン ブ リッジの ビルの 壁 上の ある 落書き を 引用 すれば "時間 と は 全てが 同時に 起こ る 
こと を 防ぐ ために 発明され た 仕掛け だ" 
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(set!    balance    (-  balance   amount ) ) 

この 式 は 各 引 き 出 し 処理の 部分 として 実行され ます。 これ は 3 つの ス テツ プか 
ら 成り立ちます。 （1) 変数 balance の 値に アクセス する。 （2) 新しい 残高 を 計算 
する。 （3)  balance に 新しい 値 を 設定す る。 もし Peter と Paul の 引き出しが こ 
の 命令 を 並行に 実行した 場合、 二人の 引き出し は balance に アクセスし、 それ 
に 新しい 値 を 設定す る 順 を 交互に 配置す るか もしれ ません。 

Figure  3. 29 の タイ ミ ング図 は balance が 100 で 開始し、 Peter が 10 を 引き 
出し、 Paul が 25 を 引き出し、 それでも balance の 最終の 値が 75 である 場合の 
イベントの 順 を 描写して います。 図に 示される とおり、 この 異例の 理由 は Paul 
の balance への 75 の 代入が 減算され るべき balance の 値が 100 であると いう 
前提の 下で 行われて いるた めです。 しかし この 前提 は Peter が balance を 90 
に 変更した 時に 無効に なり ます。 これ は 銀行 システムに とって 最悪な 失敗です。 
なぜなら システム 中のお 金の 総量が 保存され ていません。 取引 前にお 金の 総額 
は 100 でした。 その後、 Peter は $10 を 持ち、 Paul は $25 を 持ち、 銀行 は $75 
を 持って います。 36 

こ こ に 描かれた 一般的な 現象 は、 いくつかの プロセス が 共通な 状態 変数 を 
共有して いる ことです。 この こと を 複雑に している の は 複数の プロセスが 共有 
された 状態 を 同時に 操作し ようと 試みて いる ことです。 銀行口座の 例で は、 各 
取引の 間に、 各 顧客 は 他の 顧客が 存在し ないかの よう に 行動で きなければ な リ 
ません。 顧客が 口座 を 残高に 依存した 形で 更新す る 時、 その 顧客 は、 変更の 瞬 
間の 前に、 残高が 依然 と して 彼が 考えた 状態で ある こと を 前提と できな ければ 
なり ません。 

並行 プログラムの 正しい 振舞 

先の 例 は 並行 プロ グラム に 潜みが ち な 微妙な バグの 類型です。 こ の 複雑 性 
の 根本 は 異なる プロセスの 間で 共有され る 変数への 代入に 横たわって います。 

36 この システム でよ リ 悪い 失敗が 2 つの set! 命令が 残高 を 同時に 変更しょう とした 場 
合に 起こ り 得ます。 このような場合に は メモリ 中に 現れる 実際の データ は 2 つの 処理に 
よ リ 書かれる 情報の 不作為な 組み合わせに 最後に はなる かも しれません。 多くの コンビ 
ユー タは プリ ミ ティ ブな メモリ ライ ト 命令 上に 内部 ロック を 持った め、 そのような 同時 
アクセス を 防ぎます。 しかし、 この 見たところ 簡単な 種類の プロテクト でさえ マルチ プ 
口 セスの コンピュータ の 設計 に おいて は 実装 上の 課題 を 提起し ま す。 多様な プロセッサ 
が、 デー タ が 異な る プロ セッ ザの 間で メモ リ アクセスの スピード を 向上す るた めに レ プ 
リ ケート （"キャッシュ として 保存"） が 行われる かもしれ ない という 事実に 係らず、 静的 
な メモリ 内容の 見かけ を 得る こ と を 保証す る に は、 複雑な cac/ie-co/ierence (キヤ ッ シュ 
—貫 性） プロ ト コルが 必要と な リ ます。 
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Peter 


Bank 


Paul 


— $100 ト 


Access  balance:  $100 


Access  balance:  $100 


new  value:  100-10=90 


new  value:  100-25=75 


set!  balance  to  $90 


Y 

time 


set  ！  balance  to  $75 


Figure  3.29:  2 回の 引き出しの ィ ベン ト 順の 相互 配置が 不正 

確な 最終 残高へ どのように 導く か を 示した タイミング 図 


319 


私達 は 既に set! を 用いる プログラム を 書く 場合に は 気をつけ ねばならな いこ 
と を 知っています。 計算の 結果が 代入の 起こる 順に 依存す るた めです。 37 並行 
プロセス では 特に 代入に 気をつけねば なり ません。 異なる プロセス によ リ 作ら 
れる 代入の 順 を コ ン トロール できない かも しれない ためです。 も しいくつ かの 
そのような 変更が （二人の 預金者が 連結 口座に アクセス する ように） 並行に 行 
われる の であれば 私達の シス テ ムの 振舞が 正 しい こと を 確認す る ための 何ら か 
の 方法 を 必要と します。 例えば、 連結 口座からの 引き出しの 場合、 お金が 保管 
されて いる こと を 確認し な ければ な りません。 並行 プログラムの 振舞 を 正しく 
する ために、 並行 実行に 何ら かの 制限 を 置かねば なり ません。 

並行 性への 可能な 1 つの 制限 は、 任意の 共有 状態 変数 を 変更す る どの 2 つ 
の 命令 もどう じに は 起こり 得ない ことです。 これ はとても 厳しい 制限です。 分 
散 銀行 システム では システム 設計に 対した だ 1 つの 取引 だけが 一時に 手続で き 
る こと を 保証す る こと を 要求し ます。 これ は 非 効率で あり、 かつ 過度に 保守的 
です。 Figure  3.30 は Peter と Paul が 銀行口座 を 共有し、 Paul はまた プライべ 
ートな 口座 を 持って いる こと を 示して います。 共有 口座からの 2 つの 引き出し 
(1 つ は Peter による、 もう 1 つ は Paul による もの） と Paul の プライべ 一 ト 口 
座への 預金 を 図示して います。 38 共有 口座からの 2 つの 引き出し は 並行で あつ 
て はなり ません （両方が 同じ 口座に アクセスと 更新 を 行うた め)。 また Paul の 
預金と 引き出し は 並行であって はなり ません （両方が Paul の 財布に アクセスと 
更新 を 行うた め)。 しかし Paul による 彼の プライベート 口座への 預金 を Peter 
の 共有 アカウントからの 引き出しと 並行に 進行す る こと を 許す こと は 何の 問題 
も 起こさない はずです。 

並行 性 上の 比較的 厳しく ない 制限 は 並行 システムが まるで プロセスが 同じ 
順に 逐次 的に 実行され たかの ように 同じ 結果 を 生成す る こと を 保証し ます。 2 
つの 重要な 側面が この 制限に はあり ます。 第一に プロセスに 対し 実際に 逐次 的 
に 実行す る こと を 要求 はしません が、 あたかも 逐次 的に 実行され た 場合と 同じ 
結果 を 生成す る こと を 要求し ます。 Figure  3.30 の 例に 対して 銀行口座 システム 
の 設計者 は 安全に Paul の 預金 と Peter の 引き出し を 並行に 起こす こと を 許可 
できます。 なぜなら 2 つの 命令が 逐次 的に 起こった のと 最終結果が 同じに な 
るた めです。 第二に、 複数の 可能な" 正しい" 結果が 並行 プログラム により 生 


37Section  3.1.3 に おける 指数 プログラム はこの こと を 単一の 逐次 処理に て 説明 しまし 

た。 

38 列 は Peter の 財布、 （Bankl 内の） 共有 口座、 Paul の 財布、 （Bank2 内の） Paul のプ 
ライべ 一 トロ 座の 中身 を 各 引き出し （W) と 預金 （D) の 前後に て 示して います。 Peter は 
$10 を Bankl から 引き出し、 Paul は $5 を Bank2 に 預金し、 次に Bankl から $25 を 引 
き 出して います。 
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Peter 


Bankl 


Paul 


Bank2 


time 

Figure  3.30: 銀行 1 の 連結 口座と 銀行 2 の 個人 口座への 並 
行な 預け入れと 引き出し 


成される でしよう。 なぜな ら 結果が あ る 逐次 的 順序 と 同 じ 結果で ある ことのみ 
を 要求して いるた めです。 例えば Peter と Paul の 連結 口座に $100 が 初めに あ 
ると し、 Peter 力5' $40 を 預金し、 Paul が 並行に 口座の 半分のお 金 を 引き出した 
とします。 すると 逐次 的 実行の 口座 残高 は $70 か $90 のど ちらかに なり ます 
(Exercise  3. 38 参照)。 39 

並行 プログラムの 正しい 実行の ためのより 弱い 要件 はま だ 有り ます。 拡散 
の シミュレーションの プログラム （例えば 物質 内の 熱の 流れ） は 巨大な 数の プ 
ロセス から 成り、 各 プロセス は 小 容量の 空間 を 表し、 その 値 を 並行に 更新し ま 


39 この 考え をよ リ 形式的に 表す 方法 は、 並行 プログラム は 本質的に nondeierminirfic (非 
決定的） であると 述べる ことです。 つまり、 それら は 単一の 値 を 持つ 関数で はなく、 結果 
が 起こ リ 得る 値の 集合と なる 関数に より 説明され ます。 Section  4.3 では 非 決定的 演算に 
ついて 学びます。 
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す。 各 プロセス は その 値 を、 その 値と 近傍の 値の 平均へ と 繰り返し 変更し ます。 
この アル ゴ リ ズム は 命令が 行われる 順から 独立して 正しい 答に 収束し ます。 共 
有 値の 並行な 使用 上に どんな 制限 も 必要と し ません。 

Exercise  3.38:  Peter,  Paul,  Mary が 初めに $100 を 持つ 連結 銀行 口 
座 を 共有す ると 仮定す る。。 並行に、 Peter 力 5' $10 の 預金、 Paul が 
$20 の 引き出し、 Mary は 口座の 半分のお 金の 引き出し を 以下の コ 
マン ド によ リ 実行した。 

Peter  ：  (.set  ！  balance  (.+  balance 10" 
Paul:  (.set  ！  balance  (-  balance  20) ) 
Mary:     (set ！  balance  (一  balance  (/  balance  2))) 

a これらの 3 つの 取引が 完了した 後に、 全ての 異なる balance 
の 起こ リ 得る 値 を 並べよ。 ただし 銀行 システム はこの 3 つの 
プロセス が 何 ら かの 順にて 逐次 的に 実行す る 前提と する。 

b もし システムが プロセスに インターリーブ （相互 配置） を認 
めた 場合に 生成され る 他の 値 は 何 か？  Figure  3.29 の 様な タイ 
ミン グ図を 描き これら の 値が どのように 起こり 得る の か 説明 
せよ。 

3.4.2 並行 性 制御の ための 仕組み 

並行 プロセスの 取扱に おける 困難 は 異なる プロセスの ィ ベン ト 順の 交互 配 

置に ついて 考える 必要性に 原因が ある こと を 学びました。 例えば 2 つの プロ セ 
スが あり 1 つ は 3 つの 順序 付けられた イベント （a, &, c) で、 もう 1 つ は 3 つの 
順序 付けられた イベント （re, 仏2) であると します。 もし 2 つの プロセスが、 そ 
れらの 実行が どのように 相互 配置され るの かにつ いて 制約 無しで 並行に 実行 さ 
れた 時、 2 つの プロセスの 個々 の 順 は 変わらない としても、 20 の 異なる 起こ リ 
得る イベント の 順が 存在 します。 
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プログラマが この システム を 設計す るに つれ、 これらの 20 種の 順序の それ ぞ 
れの 結果に ついて 考慮して、 各 振舞が 受 け 入れられる か 確認す る 必要が あ る で 
しょう。 そのような 取り組み 方 は プロセスと イベントの 数が 増加す るに つれ、 
急速に 手に 負えない 物と なる でしよう。 

並行 システム の 設計 に対するよ リ 現実的な アプローチ は プログラムの 振舞 
が 正しい こと を 確認で きる よう 並行 プロセスの インターリーブ を 制約で きる 一 
般 的な 仕組み を 工夫す る こ と です。 多 く の 仕組みが こ の 目 的の ため 開発され て 
きました。 この 節で は それらの 1 つ、 serializeri シリア ライザ、 並列 直列 変換 
器） について 学びます。 

共有 状態への アクセスの 直列 化 

直列 化 （serialization) は 次の 考え を 実装し ます。 プロセス は 並行に 実行し 
ます。 しかし 幾つかの 手続の 集合が 存在し、 それら は 並行に は 実行で きません。 
もっと 正確に 言えば 直列 化 は 各 直列 化された 集合 内の ただ 1 つの 手続の 実行が 
一時に 許される ような 複数の 区別され た 手続の 集合 を 作成し ます。 もし 1 つの 
集合 内の いく つかの 手続が 実行され る な ら、 集合 内の 任意の 手続 を 実行し よ う 
とする プロセス は 最初の 実行が 完 了す る ま で 待つ こと を 強制 されます。 

直列 化 を 用いて 共有 変数への ァ クセス を コントロール できます。 例 え ば も 
し 共有 変数 を その 変数の 前の 値に 応じて 変更したい 時、 同じ 手続 内で その 変数 
の 以前の 値に アクセスし、 その 変数に 新しい 値 を 代入し ます。 それから その 変 
数に 代入す る どの 他の 手続 もこの 手続と は 並行に は 実行で なきない こと を、 同 
じ シリア ライザ を 持つ これら の 手続の 全て を 直列 化する ことにより 確実に しま 
す。 これ は その 変数の 値が アクセスと それに 対応す る 代入の 間に 変更され る こ 
と がで きない こと を 保証し ます。 

Scheme の シリア ライザ 

上記の 仕組み をより 確実に 行うた めに、 parallel-execute (並列 実行） と 呼 
ばれる 手続 を 含む 拡張 Scheme を 持って いると 仮定し ましょう。 

(, parallel-execute   (pi) ゆ 2、  ...  (pk)) 

各 〈p〉 は 引数 無しの 手続で なければ な り ません。 parallel-execute は 分離 さ 
れた プロセス を 各 〈p〉 に 対し 作リ、 それらの プロセス は 〈p〉 を （引数 無しで） 適 
用し ます。 これらの プロセス は 全て 並行に 実行され ます。 4(3 

40parallel-execute は 標準 Scheme の 一部で は あ リ ません。 しかし MIT  Scheme で 実 
装す る ことが 可能です。 私達の 実装に おいて は 新しい 並行 プロセス はまた オリ ジナル の 
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これが どのよう に 利用され るかの 例と して、 以下に ついて 考えて みて 下 
さい。 

(define  x 10) 
、paralle 丄- execute 

(lambda   ()    (set  ！   x   (*  x  x) ) ) 

(lambda   ()    (set ！   x   (+  x 1)))) 

これ 2 つの 並行 プロセス  一 x に x かける x を 設定す る A と、 x に 1 を 足す P2 
を 作成し ます。 実行 完了後に、 A と P2 の イベントの インターリーブに 依存す 
るた め、 x は 5 つの 起こ リ 得る 値の 内 1 つに 成り ます。 

101:   Pi が x に 100 を 設定し、 次に P2 が x を 101 に 増やす 
121: P2 が x を 11 に 増やし、 次に i\ が x を x  *  x に 設定 
110:   P2 が x を 10 から 11 に 以下の 2 度の アクセスの 間に 変化させる 
Pi が x の 値に （*  x  x) の 評価の 間に アクセス する 
11: P2 が x に アクセスし， 次に A が x に 100 を 設定し、 P2 が x を 設定 
100:    Pi が x に （二度） アクセスし、 次に P2 が x を 11 に 設定、 次に A が x を 
設定 

並行 性 を seria&ers (シ リ ァ ライザ） によ リ 作成され た 直列 化された 手続 を 用い 
る こと で 抑制す る こ と がで きます。 シリア ライ ザ は make-serializer に よ リ 構 
築され、 この 実装 は 後程 与えられます。 シリア ライザ は 手続 を 引数と して 取り、 
元の 手続の 様に 振る舞う serialized (被 直列 化） 手続 を 返します。 与えられた シ 
リア ライザへの 全ての 呼 出 は 同じ 集合に 属する 被 直列 化 手続 を 返します。 
従って 上の 例と は 異なり、 以下の 実行 は 

(define  x 10) 

(, def ine   s  (,make-serializer)) 
(parallel-execute 

(s   (lambda   ()    (set ！   x   (*  x  x) ) ) ) 

(s   (lambda   ()    (set ！   x  (+  x 1))))) 

x に 対した だ 2 つの 起こり 得る 値、 101 と 121 を 返します。 他の 可能性 は A と 
P2 の 実行が ィ ン ター リ ーブ （相互 配置） されない ため 排除され ました。 

以下に Section  3.1.1 の make-account 手続 を 預け入れと 引き出しが 直列 化さ 
れた版 を 示します。 

Scheme プロセス と共に 並行に 実行で きます。 また 私達の 実装で は parallel-execute に 
よ リ 返される 値 は 特別な コントロール オブジェ ク ト であり 新しく 作成され た プロセス を 
停止させる ために 使用で きます。 
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(define    (make-account  balance ) 
(define    (withdraw  amount ) 
(if    (>=  balance   amount ) 

(begin   (set!    balance    (-  balance   amount ) ) 

balance ) 
■'Insufficient   funds  " ) ) 
( dei ine    (deposit   amount ) 

(set!    balance    (+  balance   amount ) ) 
balance ) 

(let    "protected   ( make- serial izer)) ) 
(define    (dispatch  m) 

( cond   "eq7  m    1  withdraw)    (protected  withdraw ) ) 
"eq?  m    1  deposit )    (protected  deposit ) ) 
"eq?  m    1  balance  )   balance  ) 

(else    (error   "Unknown  request :  MAKE-ACCOUNT" 
m)))) 

dispatch) ) 

この 実装に より、 2 つの プロセス は 単一の 口座に 並行に 預け入れと 引き出し を 
行う こと はでき なくなり まし た。 こ れに よ リ Figure  3.29 で 図示 さ れた エラ 一の 
原因、 Paul の 新しい 値 を 求める ための 残高への アクセスと、 Paul が 実際に 代 
入 を 行う 時の 間に、 Peter が 口座 残高 を 変更す る 場合 は 排除され ます。 一方で、 
各 口座 は それ 自身の シリア ライザ を 持つ ので、 異なる 口座への 預金と 引き出し 
は 並行に 行う ことができます。 

Exercise  3.39: 上で 示された 並行 実行に おける 5 つの 可能性の 内、 
もし 変わりに 以下のような 実行 を 起こな つた 場合に どれが 残る か？ 

(define  x 10) 

(define   s   (make-serializer) ) 
(parallel-execute 

(lambda   ()    (set  ！   x   ((s   (lambda   ()    (*  x  x) ) ) ) ) ) 

(s   (lambda   ()    (set ！   x   (+  x 1))))) 

Exercise  3.40: 以下 を 実行した 場合に x の 起こ リ 得る 値の 全て を 上 

げょ。 

(define  x 10) 
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(parallel-execute    (lambda   ( )    (set!    x   ( *  x  x ) ) ) 

(lambda   ( )    (set!    x   ( *  x  x  x) ) ) ) 


これらの 内 も し 代わり に 以下の 直列 化 手続 を 用いた 場合 どれが 残 
るか？ 

(define  x 10) 

、deiine   s    、make - serial lzer ) ) 
(parallel-execute    ( s    (lambda    ()    (set!    x   ( n 
(s    (lambda    ()    (set ！    x い 

Exercise  3.41:  Ben  Bitdiddle は 以下の よう に 銀行口座 を 実行 すれ 
ばよ リ 良くなる ので はない かと 心配して いる。 （コメントの 有る 行 
が 変更され ている）。 

dei ine     make -account  balance  ) 
(define    (withdraw  amount ) 
(if    (>=  balance   amount ) 
(begin   (set!  balance 

(- balance   amount ) ) 
balance ) 
" Insufficient   funds " ) ) 
(define    ( deposit   amount ) 

(set!    balance    (+  balance   amount ) ) 
balance ) 

(let    ( (protected  (make-serializer))) 
(define    (dispatch  m) 

( cond    ( ( eq?  m    1  withdraw)    (protected  withdraw ) ) 
( ( eq?  m    1  deposit )    (protected  deposit ) ) 
((eq?  m    1  balance ) 
( (protected 

( lambda   ( )   balance ) ) ) )   ；  serialized 
(else 

(error   "Unknown  request :  MAKE-ACCOUNT" 
dispat ch) ) 
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心配の 理由 は 非 直列 化ァク セスを 銀行口座に 許す と 得意な 振舞が 

起こ り 得る ためだ。 同意す る 力 Ben の 懸念 を 実演す る シナリオ は 
存在す るか？ 

Exercise  3.42:  Ben  Bitdiddle は 全ての withdraw と deposit  メ ッ 

セージに 対して 新 しい 被 直列 化 手続 を 作成す る こと は 時間の 無駄 
である と 提案した。 彼 は protected への 呼 出が dispatch 手続の 
外で 行われる よう make-account を 変更す る ことができ ると 述べ 
た。 つまり withdrawal 手続が 呼ばれる 度に、 口座が （口座が 作成 
された と 同時に 作成され た） 同じ 被 直列 化 手続 を 返す ことになる 
だろう。 

def ine    (make -account  balance  ) 
(dei ine    (withdraw  amount ) 
(if    (>=  balance   amount ) 

(begin   (set!    balance    (-  balance   amount ) ) 

balance ) 
" Insufficient   funds " ) ) 
(dei ine    ( deposit   amount ) 

(set!    balance    (+  balance   amount ) ) 
balance ) 

(let    ( (protected  (make-serializer))) 

(let    ( (protected - withdraw    (protected  withdraw) ) 
(protected - deposit    (protected  deposit))) 
(def ine    (dispatch  m) 

( cond   ( ( eq?  m    1  withdraw)   protected- withdraw) 
( ( eq?  m    1  deposit )   protected - deposit ) 
((eq?  m    1  balance )   balance ) 
(else 

(error   " Unknown  request :    MAKE - ACCOUNT 
m)))) 

dispatch ) ) ) 

これ は 行う ことが 安全な 変更だろう 力、？ 具体的に は、 これらの 2 つ 
の 版の make-account によ リ 許される 並行 性に 違い は 存在す る だ 
ろうか？ 
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複数 共有 リ ソース 使用の 複雑さ 

シリア ライザ は 並行 プログラムの 複雑 性の 分離 を 手助けす る ことで、 注意 
深く  （願わくは） 正しく 取り扱える ようにす る 強力な 抽象化 を 与えます。 しかし 
シリア ライザの 使用 は （単一の 銀行口座の ような） ただ 単一の 共有 リ ソースが 
存在す る 場合に は 相対的に 簡単です が、 並行 プロ ダラ ミ ングは 複数の 共有 リ ソ 
ースが ある 場合に、 裏切る かの ように 難しくな リ ます。 

提起で きる 困難 さの 内 1 つ を 説明す るた めに、 2 つの 銀行口座の 残高 を 交 
換 したいと 考えます。 各 口座に アクセスし 残高 を 見つけ、 残高 間の 差 を 計算し、 
一方の 口座から この 差 を 引き出し、 もう 一方の 口座へ 預け入れます。 これ を以 
下の ように 実装す る ことができます。 41 

V  dei ine    (exchange   account 1 account2 ； 

(let    "difference    (-    ( account 1 'balance ) 

( account 2    1  balance ) ) ) ) 
( ( account 1 1  withdraw)    difference ) 
( ( account2    1  deposit )  difference))) 

この 手続 は 単一の プロセス のみが 交換 を 試みる 場合に はう まく 働きます。 しか 

し Peter と Paul が 二人共 口座 al, a2,  a3 に アクセスし、 そして Peter が al と 
a2 を 交換して いる 間に Paul が 並行に al と a3 を 交換して いる 場合 を 考えて み 
て 下さい。 例え 口座の 預け入れと 引き出しが 個別の 口座に 対して （この 節の 上 
で 示された make  -account チ?^ c の よつ に i 直ダ1 J ィ匕 乃 れた と し 一し ね、 exchange は 
依然として 不正確な 結果 を 生じる ことができます。 例え ば Peter が al とひ 2 の 
残高の 差 を 求める 時、 Paul が Peter が 交換 を 完了す る 前に ひ 1 の 残高 を 変更す 
るか もしれ ません。 42 正しい 振舞の ために は、 exchange 手続 を、 交換の 全体の 
時間の 間、 口座への どの 他の 並行 アクセス も ロック ァゥ ト （締め出し） する よう 
に 準備 をし なければ な リ ません。 

これ を 達成す る 1 つの 方法 は 両方の 口座の シリア ライザ を 用いて exchange 
手続 全体 を 直列 化します。 これ を 行うた めに は、 口座の シリア ライザへの ァク 
セスに 準備 を 行います。 シリア ライザ を 露出す る ことで、 銀行口座 オブジェ ク 

トの モジュール 化 を 意図的に 破って いる ことに 注意して 下さい。 make-account 
の 以下の 版 は Section  3.1.1 で 与えられた 元の 版と シリア ライザが balance 変数 

"deposit  メ ッ セージが 負の 額面 を 受け入れる という 事実 を 利用す る ことで exchange 

を 簡略 化しました。 （これ は 私達の 銀行 システムの 深刻な バグです ！ ） 

42 もし 口座 残高が $10,  $20,  $30 で 始めた 場合、 任意の 回数の 交換の 後に、 残高 は 何ら 
かの 順にて 依然と して $10,  $20,  $30 にならねば なり ません。 個別の 口座への 預け入れの 
直列 化 はこれ を 保証す るのに 十分で はぁリ ません。 Exercise  3.43 を 参照して 下さい。 
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を 守る ため 提供され ている こと を 除けば 同じです。 そして シリア ライザ はメッ 
セージ パッシング を 通して 転送され ます。 


、deiine    (make-account-and-seriaiizer  balance ) 
dei ine     withdraw  amount ) 
( if    (>=  balance   amount ) 

(begin   (set!    balance    (-  balance   amount ) ) 

balance ) 
■'Insufficient   funds  " ) ) 
( dei ine    (deposit   amount ) 

(set!    balance    (+  balance   amount ) ) 
balance ) 

(let    ^oalance-serializer  (make-serializer))) 
(define    (dispatch  m) 

( cond   "eq7  m    1  withdraw)    withdraw ) 
"eq7  m    '  deposit )    deposit  ) 
"eq?  m    '  balance )   balance  ) 
"eq?  m    1  serializes)   balance - serializes ) 
( else 

(error   "Unknown  request :  MAKE-ACCOUNT" 
m)))) 

dispatch ) ) 

これ を 用いて 直列 化された 預け入れと 引き出し を 行う ことができます。 しかし 
最初の 直列 化された 口座と は 異な リ 、 直列 化 を 明示的に 管理す る こ と は 銀行 口 
座 オブジェクトの 各 ユーザの 責任です。 例えば 以下の 様に です。 43 

dei  ine    (deposit   account   amount ) 
(let    "s    ( ac count    1  ser  ializer  ) ) 
(d   ( ac  count  'deposit))) 
( ( s  d)    amount ) ) ) 

シリア ライ ザ を この 方法で 外出し する こ と は 私達に 直列 化された 交換 プロ ダラ 

ムを 実装す るのに 十分な 柔軟性 を 与えます。 単純に 元の exchange 手続 を 両方 
の 口座の シリア ライザに て 直列 化します。 


"Exercise  3.45 にて なぜ 預け入れと 引き出しが もはや 自動的に 口座に より 直列 化され 
ない のかに ついて 調査し ます。 
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(define    (serialized - exchange   accountl   account2 ) 
(let    (  (  serializer 1 ( account 1 ' serializer  ) ) 
( serializer2    ( account2    '  serializer) ) ) 
( ( serializer 1 ( serial izer2   exchange  ) ) 
accountl 
account2 ) ) ) 

Exercise  3.43:  3 つの 口座の 残高が $10,  $20,  $30 で 始ま リ、 複数の 

プロセスが 実行され 口座の 残高 を 交換す ると 考える。 プロセスが 逐 
次 的に 実行され るなら、 任意の 数の 並行な 交換の 後に、 口座 残高が 
ある 順序に おいて $10,  $20,  $30 になる と 主張す る。 Figure  3.29 の 
ような タイミング 図 を 描き、 交換が この 節の account- exchange の 
最初の 版 を 用いて 実装され た 場合に この 前提が どのように 破られ 
るかに ついて 示せ。 一方で、 例え この exchange プログラム を 用い 
て も 口座の 残高の 合計 は 保存され ると 主張す る。 タイ ミ ング図 を 
描き、 個別の 口座 上の 取引 を 直列 化しない 場合に は 例え この 前提 
でも どのよう に 破られる かにつ いて 示せ。 

Exercise  3.44: ある 口座から 別の 口座への 振 込の 問題に ついて 考え 
る。 Ben  Bitdiddle は 例え 複数の 人々 が 並行に お金 を 複数の 口座 間 
にて 転送 をしても、 以下の 手続 を 用いる ことで、 預金と 引き出し 
の 取引 を 直列 化する 任意の 口座の 仕組み、 例えば 上の テキストの 
make-account の 版 を 用いながら 振 込 を 達成で きる と 主張す る。 

(, def ine    (transfer  from 一  account   to  一  account   amount ) 
( (from- account    '  withdraw )    amount ) 
( (to- account    1  deposit )    amount ) ) 

Louis  Reasoner はこ こに も 問題が あ ると 主張した。 交換 問題 を 取 
リ扱 うの に 必要 と さ れた 様な よ リ 洗練 さ れた 手法が 必要で ある と 
も 述べた。 Louis は 正しいだろう カリ もし 正しくな いのなら ば 振 込 
問題と 交換 問題の 間の 本質的な 違い は 何 か？  （from-account の 残 
高 は少く とも amount であると 考える こ と）。 

Exercise  3.45:  Louis  Reasoner は 私達の 銀行口座 システム は不必 
要に 複雑、 かつ エラー を 起こし やすく、 預け入れと 引き出し も 自動 
的に 直列 化されな いと 考えた。 彼 は make-accouirt が 行った よう 
に 口座と 預け入れ を 直列 化する ために それ を 用いる ことに 加えて 
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(その 代わ (J にで はな く  )  make-acco 皿 t- and- serializer はシ リ ァ 
ライザ を （serialized-exchange のよう な 手続に て 利用す るた め 

に） 露出させる べきだった と 主張 し た。 彼 は 口座 を 以下の よ う に 再 
定義す る こと を 提案した。 

、def  ine   (make-ac count -and-serializer  balance ) 
(define   (withdraw  amount ) 
(if    (>=  balance   amount ) 

(begin   (set ！   balance   (-  balance  amount ) )   balance ) 
" Insufficient   funds " ) ) 
(define   (deposit  amount ) 

(set ！   balance   (+  balance  amount ) )   balance ) 
(let   ((balance - serial izer   (make-serializer ) ) ) 
(define   (dispatch  m) 

( cond   ( (eq?  m    1  withdraw )    (balance- serial izer  withdraw ) ) 
( ( eq?  m   1  deposit )    (balance -serial izer  deposit ) ) 
( ( eq?  m   1  balance )   balance ) 
( (eq?  m    'serial izer)   balance -serial izer ) 
(else    (error   "Unknown  request :    MAKE-ACCOUNT"  m) ) ) ) 
dispatch) ) 

すると deposit (預け入れ) は 元々 の make-account で 用いた ように 

扱われる。 

(define    (deposit   account   amount ) 
( ( account    1  deposit )    amount ) ； 

Louis の 推論の 何が 間違つ ている か 説明せ よ 。具体的 に は serialized- 
exchange が 呼ばれた 時に 何が 起こる かにつ いて 考えよ。 

シリア ライザの 実装 

私達 は シリア ライザ を mMter (ミュー テックス、 相互 排除） と 呼ばれる より 
プリ ミ ティ ブな 同期の 仕組み を 用いて 実装し ます。 mutex は 2 つの 命令 を サボ 
—ト する ォ ブジ ェクト です。 1 つ は mutex が acquire (^獲得") でき、 もう 1 つ は 
mutex が released (解放) できます。 一度 mutex が 獲得 されれば、 他の その mutex 
に対する 獲得 命令 は その mutex が 解放され るまで 続行す る ことができません。 
44 私たちの 実装で は、 各 シリア ライザ は 関連 付けられた mutex を 持ちます。 手 

44"mutex" という 用語 は rm^mZ  ercchm'on (相互 排除） の 省略 形です。 並行 処理が 安全 
に 資源 を 共有す る こと を 可能に する 仕組みの 準備に おける 一般的な 問題 は 相互 排除 問題 
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続 p を 与えられた 場合、 シリア ライザ は mutex を 獲得す る 手続 を 返し、 p を 実 
行し、 それから mutex を 解放し ます。 これが シリア ライザに より 生成され た 手 
続の 1 つのみ がー 度に 実行で きる こと を 保証 します。 こ れが まさに 私たち が 保 
証す る 必要の ある、 直列 化の 特性です。 

(, def ine    (make  - sen  alizer) 

、上 et    i,  i, mutex    i,make-mutex) ) ； 
( lambda  (p) 

(define    ( serialized - p    .    args ) 
( mut ex  'acquire) 
(let   ( ( val ( apply  p  args ) ) ) 
(mutex    'release ) 
val)) 
serialized - p ) ) ) 

mutex は ミュー タ ブルな オブジェ ク ト （ここで 私達 は 1 要素の リスト を 使用 し、 
ceZZ (セル） と 参照し ます。 ） であ リ、 true か false の 値 を 保持し ます。 値が false 
の 時、 mutex は 獲得 可能です。 値が true の 時、 mutex は 使用 不可で あり、 この 
mutex を 獲得し ようと 試みる プロセス は 待たなければ いけません。 

私達の mutex コ ンス トラクタ make- 皿 tex は セルの 中身 を false に 初期化 
する ことから 始めます。 mutex を 獲得す るた めに は セル を 確認し ます。 もし 
mutex が 使用可能 であれば、 セルの 中身 を true にして 続行し ます。 そ う でな 
ければ ループの 中で 待ち、 mutex が 使用可能になる まで 何度も 獲得 を 試みます。 
45 mutex を 解放す るた めに は セルの 中身に false を 設定し ます。 

def  ine    (make - mut  ex ) 


と 呼ばれます。 私達の mutex は semap/iore (セマフォ） という 仕組みの 簡^な 改良 型で 
す。 （Exercise  3.47 参照)。 これ は アイントホーフェン 技術 大学に て 開発され た" THE" 
Multiprogramming  system( 訳注： THE は 究極のと かこれ ぞ とか 唯一 の 等の 意味になる） 
にて 導入され、 大学の オランダ 語での イニシャルから 名付けられました （Dijkstra  1968a)0 
acquire  と release の 命令 は 元々 は オランダ 語の 単語 passeren (渡す） と vriigeven (解放す 
る） から P と V と 呼ばれ、 鉄道 システム にて 用いられた semaphores (信号 装置） を 参照 
しています。 Dijkstra (ダイクス トラ） の 古典的 解説 （Dijkstra  1968b) は 明確に 並行 コン 
トロールの 問題 を 表した 最も 初期の 1 つで ぁリ、 多様な 並行 問題 を どのように セマフォ 
を 用いて 扱う かにつ いて 示しました。 

45 多 く の 時分 割 OS では mutex で プロ ック される プロセス は 上記の よう に "busy- 
waiting"  (占有 待ち）  にて 時間 を 無駄に はしません。 その代わりに システム は 他の プロ セ 
スを 最初の プロセスが 待って いる 間に 実行す るよう に スケジュールし、 ブロック された 
プロセス は mutex 力 使用可能 になる と 起こされます。 
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(let   ((cell   (list  false))) 
( def ine   ( the - mute x  m) 

( cond   ( ( eq?  m  'acquire) 

(if    (test - and - set !    cell ) 

( the-mutex    1  acquire  )  )  )    ；  retry 
((eq?  m    r  release )    (clear !  cell)))) 
the-mutex ) ) 

( def  ine    (clear !    cell ) ( set-car ！    cell  false ) ) 

test-and-set! は セル を テストし、 テストの 結果 を 返します。 さらに、 もし テ 
ス トが false であれば test-and- set! は セルの 中身に false を 返す 前に true を 
設定し ます。 この 振舞 は 以下の 手続の ように 表現で きます。 

(, def  ine    (test- and- set  ！    cell ) 

(. if    (car   cell ) true    (begin   ( set-car  ！    cell  true )  false))) 

しかし、 この test-and-set! の 実装 は 現状で は 十分ではありません。 致命的 
な 機微が ここに 存在し、 ここが 並行 性コ ン ト ロールが システムに 入る 本質的な 
場所です。 test-and-set! 命令 は afomim»2/ (不可分に、 アトミックに) 実行 さ 
れ なければ なりません。 つまり、 一度 プロセスが セル を テストし false である 
と 知ったならば、 セルの 中身が 実際に セル を テス ト できる どの 他の プロセス 
よ リ も 先に true と 設定され る こと を 保証せ ねばな リ ません。 もし この 保証 を 
しなければ mutex は Figure  3.29 における 銀行口座の 失敗と 似た 失敗 をし ます。 
(Exercise  3.46 参照）。 

test-and-set! の 実際の 実装 は 私達の システムが 並行 プロセス を どのよう 
に 実行す るかの 詳細に 依存し ます。 例え ば 私達 は 並行 プロセス を 逐次 的な プロ 
セッサ 上に 時分 割の メカニズム を 用いて 複数の プロセス を 循環させる ことで 
実行す るか もしれ ません。 各 プロセスに 少ない 時間の 間 割 リ 込みが 発生す る ま 
で 実行す る こと を 許し 次の プロセス を 開始し ます。 このような 場合 に は test- 
and-set!  は テストと 設定の 間 は 時分 割 を 停止す る ことで うまく 行きます。 46 


46 シングル プロセッサ 向けの MIT  Scheme は 時分 割 モデル を 使う ので test-and-set  ！ 
は 以下の 様に 実装で きます。 

(_  define   (test-and-set  ！    cell ) 
(without-interruDts 
( lambda  O 

(if    ( car  cell ) 
true 

(begin   ( set-car ！    cell  true ) 
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代替 法と して、 マルチ プロセスの コンピュータ はァ ト ミ ックな 命令 を 直接 ハー 
ドウ エアに て サポート します。 47 

Exercise  3.46:  test-and-set  ！ を テキス トに 示される 通常の 手続 
を 用い、 命令 を アト ミ ック にす る 試み 無しで 実装す ると 仮定す る。 
Figure  3.29 の 様な タイ ミ ング図 を 描き、 2 つの プロセスが 同時に 
mutex を 獲得す るの を 許可し た 場合 に mutex の 実装が どのように 
失敗す るの か 説明せ よ。 

Exercise  3.47: (サイ ズ w の） セマフォ は mutex の 一般化で ある。 
mutex のように、 セマフォ は acquire と release 命令 をサ ポー ト す 
る 力、 最大 n プロセス までが 並行に 獲得で きる ことで はよ リ 一般 
的で ある。 セマフォ を 獲得しょう とする 追加の プロセス は 解放 命 
令 を 待た な ければ な ら ない。 セマフォの 実装 を 以下の 条件で 行 え。 

a  mutex  5: 用い •£> 

b アトミックな test-and-set! 命令 を 用いる 
アツ ド ロック 

シリア ライザ を どのよう に 実装す るべき かにつ いて 学習した ため、 例え 上 
記の serialized-exchange を 用いても 口座の 交換が 依然として 問題 を 持つ こ 


false))))) 

without-interrupts は 時分 割 割り込み を その 引数で ある 手続が 実行され ている 間、 無 
効に します。 

47 そのよつな n 卩' 令 (i  test-and-set,  test-ana-clear,  swap,  compare-and-exchange, 
load-reserve,  store-conditional 等 様々 な ものが 存在し、 その 設計 は 注意 深 く マシンの 
プロセッサ-メモリ 間 インターフェイス に 合わせな けれ ぱいけ ません。 ここで 起こる 1 つ 
の 問題に は そのような 命令 を 用いて 完全に 同時に 同じ リ ソース を 2 つの プロセスが 獲得 
しょうと 試みた 場合に 何が 起こる か を 決定す る ことです。 これ は どの プロセスが コン 卜 
ロール を 握る のかに ついて 決定す るた めの 何ら かの 仕組み を 要求し ます。 そのような 仕 
組み は artiier (アービタ、 調停者） と 呼ばれます。 アービタ は 通常 ある 種の ハードウェア 
デバイスに まとめられます。 残念な ことに、 アービタに 対し 自由 裁量の 長さの 時間 を 決定 
を 行う のに 許さない 限り 100% の 時間 を 働く 公平な アービタ を 構築す る こと は 物理的 に 
不可能で ある こ と が 証明で きます。 ここ での 根本的な 現象 は 元々 14 世紀の フ ラ ン ス人哲 
学者 Jean  Buridan (ジ ヤン ビュ リ ダン） に よ リ Aristotle (ァ リスト テレス） の De  caefo (天 
体 論） への 注釈に おいて 観察され ています。 ビュ リ ダン は 2 つの 等しく 魅力的な 食事の 情 
報 源の 間に 置かれた 完全に 理性的な 犬 は 飢えて 死ぬ と 主張し ました。 最初に どちらに 行 
く のか 決める ことが 不可能な ためです。 
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と を 理解す る こと がで きます。 Peter が al と a2 を 交換しょう とした 時、 Paul 
が 並行に a2 を al と 交換し ようと 試みて いると 想像して みて 下さい。 Peter の 
プロセスが al を 守る 直列 化された 手続に 入った 時点に 届いた とします。 その 
直後に、 Paul の プロセスが a2 を 守る 直列 化された 手続に 入りました。 さて 
Peter は （ひ 2 を 守って いる 直列 化された 手続に 入る こと） を 進める こと は Paul 
が ひ2 を 守る 直列 化された 手続から 抜ける まででき ません。 同様に、 Paul もま 
た Peter が al を 守る 直列 化 された 手続 を 抜ける まで 進める こと がで きません。 
この 状況 は deadtocfc (デッ ド ロック） と 呼ばれます。 デッ ド ロック は 並行な ァク 
セスを 複数の 共有 リソースに 対し 提供す る システム では 常に 存在す る危 険性 
です。 

この 状況に おける デッ ド ロック を 防ぐ 1 つの 方法 は 各 口座に 固有の 識別 番 
号 を 与え、 serialized-exchange を 書き換える ことで プロセスが 常に 最も 小さ 
な 番号の 口座 を 守る 手続 を 最初に 入る よう 試みる ようにし ます。 この 方法 は 交 
換 問題に 対してう まく 行きます が、 より 洗練され たデッ ド ロック 防止 技術 を必 
要と する 他の 状況が 存在し ます。 または デッ ド ロックが 全く 防げない 状況 も存 
在し ます。 （Exercise  3.48 と Exercise  3.49 を 参照）48 

Exercise  3.48: なぜ 上で 説明され たデッ ド ロック 防止 手法 （fiP ち 
口座に 番号 を 付け 各 プロセスが 最も 小さな 番号の 口座 を 最初に 
獲得す る） が 交換 問題の デッ ド ロック を 防 ぐの か 詳細に 説明せ 
よ。 serialized-exchange を この 考え を 組 込む ように 書き直せ。 
(make-account も 変更す る 必要が あり、 そうする ことで 各 口座が 
番号と 共に 作られ、 その 番号が 適切な メッセージ を 送る ことによ 
リ アクセス できる ようにし な ければ な ら ない。 ) 

Exercise  3.49: 上で 説明され たデッ ド 口 ック 防止の 仕組みが う ま く 
行かない 場合の シナリオ を 示せ。 

並行 性、 時間と 通信 

並行 システムの プロ グ ラミン グが異 なる プロセス が 共有 状態 に アクセスす 
る 時に イベントの 順序 をコン トロール する こと を どう して 必要と する かにつ い 

48 デッ ド ロック を 共有 リ ソースに 番号 を 付け、 順に 獲得す る 一般的な テクニック 
は Havender  (1968) によ リ ます。 デッ ド ロックが 防げない 状況で は dea^oc/s-reccmen/ (デ 
ッド ロック リカ バリ （復帰)） 手法 を 必要と し、 それ は プロセスに デッドロック 状態の 
"back  out" (取消） と 再 試行 を 引 き 起します。 デッ ド ロック リ カバ リ の 仕組み は 広 く デー 
タ ベース 管理 システム にて 使用され、 Gray  and  Reuter  1993 に 詳細が 取り上げられ てい 
ます。 
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て 学びました。 そして 賢明な シリア ライザの 使用 を 通して この コントロール を 
どのように 達成す るかに ついても 学びました。 しかし 根本的な 視点から、 常に 
"共有 状態" が 何 を 意味す るの かが 明らかで ないた めに、 並行 性の 問題 は それよ 
リも 深く 位置し ます。 

test-and-set  ！ のよう な 仕組み は プロ セ ス に 対し 任意の 時間 に グローバル 
な 共有 フラグの 試験 を 要求し ます。 これ は 解決が 難しく、 現在の 高速な CPU 
において 実装す るのに 非 効率的です。 パイ プライン や キヤ ッ シュ メモリ の 様な 
最適化の 仕組みの ため メモリの 中身 は 各 瞬間 において 静的な 状態 に はあり ませ 
ん。 現代の マルチ プロセス システム において は、 従って シリア ライザの パ ラダ 
ィ ム は 並行 性 コント ロールの 新 し い 取 リ 組みに より 取って代わられ てきて いま 
す。 49 

共有 状態の 問題 となる 側面 は 巨大な 分散 システムに おいても 生じます。 例 
として、 分散 銀行 システム を 想像して 下さい。 個別の 銀行 支店 は 銀行 残高の 口 
一 カル 値 を 保持し 繰リ 返し それら を 他の 支店に ょリ 保存され ている 値と 比較し 
ます。 そのような システム において は "口座 残高" は 同期 直後 を 除いて 不確定 
になる でしよう。 もし Peter がお 金 を Paul と 連結す る 口座に 預け入れした 時 
に、 いつ 口座 残高が 変更され たと 言うべき か-一地 元の 支店が 残高 を 変更した 時 
か、 または 同期の 後まで は 言えない のか？ そしても し Paul が 異なる 支店から 口 
座に アクセスし た 場合、 振舞が "正しい" 銀行 システム 上 に 設置す る 妥当 な 制 
約と は 何 か？ 正確 性に 対し 問題と なる もの は Peter と Paul が 独立して 観察す 
る 振舞と 同期 直後の 口座の" 状態" のみでしょう。 "本当の" 口座 残高に 関わる 
質問 や 同期の 間の イベントの 順 は 準用で はない か、 意味がない でしよう。 50 

ここでの 基本的な 現象 は 異なる プロセスの 同期、 共有 状態の 設置、 または 
イベントの 順 を 強いる こと は プロセス 間 通信 を 必要と します。 本質的に、 並行 
性 コント 口 ールに お ける 任意の 時間の 概念 は 緊密に 通信に 結びつ け ら れ ねばな 


49 そのよう な 直列 化の 代替 法の 1 つ は；) arrier  synchronization リく リ ァ 同期;） と 呼ばれ 
ます。 プログラマ は 並行 プロセスに それらが 気に入る よう に 実行す る こと を 許可し ま 
す。 しかし どの プロセス も 全ての プロセスが バリ ァに 着く まで は 先に 進む ことができな 
いいく つかの 同期 点 （"バリ ァ"） を 設置し ます。 現代の プロセッサ は プログラマに 一貫 
性が 要求され る 場所に 同期 点 を 設置す る こと を 可能に する 機械語 命令 を 提供し ます。 例 
；! ば POWERPC  (よこの 目的の ため SYNC(I  口」 期) と ElElO(Enforced  In-order  Execution  of 
Input/Output,  I/O の 強制 順序 実行） と 呼ばれる 2 つの 命令 を 含んで います。 

50 これ はお かしな 見方の ように 見える かもしれ ません。 しかし このように 動く シス テ 
ムは 存在し ます。 例えば ク レジ ッ ト カードの 口座への 国際 課金 は 通常 国 毎の 拠点 上で 精 
算 され 異な る 国での 課金 は 繰 り 返し 消し 込みされ ます。 従って 口座 残高 は 異な る 国で は 
異なり ます。 
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りません。 51 面白い ことに 似た ような 時間と 通信の 間の 繋がりが 相対論に も 生 
じています。 光速 （イベントの 同期に 使用可能な 最も 高速な 信号） は 基本的に 時 
間 と 空間 に 関連して 一定です。 私達の 計算 モ デルの 時間 と 状態 を 取 リ 扱うた め 
に 遭遇 し た 複雑 性 は 実際に 物理的 宇宙の 根本的な 複雑 性 を 映して いるの かもし 
れ ません。 


3.5 ストリーム 

モ デリ ング における ツールと しての 代入に ついて、 また 代入が 生じる 複雑 
な 問題の 認識に ついても 良い 理解 を 得る ことができました。 次 は 我々 が 行 つ て 
きた こと を 異なる 方法で 行えた のか、 そうする ことで これらの 問題 を 回避で き 
たの かにつ いて 尋ねる 番 です。 こ の 節で は 状態 を モ デル 化す る 代替と なる 取 リ 

組み方に ついて、 streams (ストリーム） と 呼ばれる データ 構造 を 基に して 探求 
します。 私達が 学ぶ につれ て、 ストリーム は 状態の モデル 化の 複雑 性の いくら 
か を 和らげる ことができます。 

一旦 戻って、 この 複雑 性が どこから 来たの か 再検討して みましょう。 実際 
の 世界の 現象 を モ デル 化す る 試みに おいて、 私達 は 幾 ら かの 恐らく 適切な 決定 
をし ました。 私達 は 実際の 世界の オブジェクト を 局所 状態 を 用いて、 ローカル 
変数 を 持つ 計算 オブジェ ク ト によって モデル 化しました。 私達 は コンピュータ 
内の 時間 変化に よ リ 実際の 世界の 時間 変化 を 判断し まし た。 私達 は コン ピュー 
タ 内の モデル オブジェ ク トの 状態の 時系列 変化 を モデル オブジェ ク トの ロー 力 
ル 変数への 代入 を 用いて 実装し ました。 

他に 取り組み 方が あるでしょう 力、？ コンピュータ 内の 時間 を モデル 化され 
た 世界の 時間 を 用いて 判断す る こと を 避けられる でしよう カリ 変わ リ 行く 世界 
の 事象 をモ デル 化す るた めに モ デル を 時間と 共に 変化 させ な ければ な らな いの 
でしよう か？ 問題 を 数学の 関数 を 用いて 考えましょう。 数量： e の 時間 的に 変化 
する 振舞 を 時間の 関数 として 説明で きます。 もし 瞬間 毎に に 集中 すれ 
ば 変化す る 数量 だと 考える こと がで きます。 けれども もし 値の 歴史 全体の 時間 
集中 すれば 私達 は 変化 を 重要視し ません。 関数 それ 自体 は 変化し ません。 52 


51 分散 システム に対する この 視点 は Lamport  (1978) により 追求され ました。 彼 は 分散 
システム において イベントの 順序 付け を 成立させる のに 使用で きる "グローバルな 時計" 
を 設立す るた めに どのように 通信 を 用いる かにつ いて 示しました。 

52 物理学者 は 時折 粒子の "world  lines" (世界 線） を 運動に 関する 推測の ための 手段と し 
て 導入す る ことで この 見方 を 受け入れます。 私達 もまた 既に （Section  2.2.3) において こ 
れが 信号 処理 システム について 考える 自然な 方法で あると 説明し ました。 Section  3.5.3 に 
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も し 時間が 不連続な ステップ により 測られる ので あれば、 （無限に 成り う 
る） 列と して 時間 関数 を モデル 化で きます。 この 節で は 変化 を モデル 化された 

システムの 時刻 歴 （time  history) を 表す 列 を 用いて どのように 変化 を モデル 化 
する かにつ いて 学びます。 これ を 達成す るた めに、 sfreams (ストリーム） と 呼ば 
れる 新しい データ 構造 を 導入し ます。 抽象的な 視点から はス ト リーム は 単に 列 
です。 しかし 私達 は ストリームの （Section  2.2.1 にある ような） リストに よる 簡 
単な 実装 はス ト リーム 処理の 力 を 完全に 明かす ことができな いこと を 知る でし 
よう。 代替 法と して、 ddai/ed  ewifeafion (遅延 評価） の テクニック を 導入し ます。 
遅延 評価 は 巨大な （例え 無限で も） 列 を スト リ ーム して 表現す る こ と を 可能に 
します。 

ストリーム 処理 は 状態 を 持つ システム を 代入 や ミュー タ ブルな データ を 用 
いずに モデル 化する こと を 可能に します。 これ は 重要な 意味合い を 倫理的、 物 
理的 両方で 持ち ま す。 なぜな ら 代入の 導入に よる 固有の 欠陥 を 防 ぐ モ デル を 構 
築で きる ためです。 一方で、 ストリーム フレームワーク は それ 自身の 困難 を 持 
ちます。 そして どの モ デリ ン グテ ク ニックが より モジュラ でより 簡単に シス テ 
ム を 保守で き る かの 疑問が 残 リ ま す。 

3.5.1 ストリームと は 遅延 化 リスト 

Section  2.2.3 で 学んだ よう に、 列 は プログラム モジュール を 組み合わせ るた 
めの 標準 的な インターフェイスの 役割 を 果たす ことができます。 列 を 操作す る 
ための 強力な 抽象化 を 形式 化しました。 例えば map,  filter,  accumulate であ 
リ、 簡潔で あり、 かつ 洗練され た 作法に て 広範囲の 操作 を 獲得し ます。 

残念な ことに、 列 を リストと して 表現す る と こ の 洗練 さは 演算に よ リ 必要 
とされる 時間と 記憶 域に 関する 深刻な 非 効率 性 を 犠牲に して 得る ことにな リ ま 
す。 列 上の 操作 を リストの 変形と して 表現した 時、 私達の プログラム は （大き 
くな りえる） データ 構造 を 処理の 各ス テツ プに おいて 構築と コピー を せねば な 
リ ません。 

なぜ これが 正しい のか 知る ために、 ある 区間の 全ての 素数の 和 を 求める た 
めの 2 つの プログラム を 比較して みましょう。 最初の プロ ダラ ム は 標準 的な 繰 
リ 返しの スタイル を 用います。 53 

(, del ine    (  sum-primes   a  b; 


て 信号 処理に 対する スト リームの 適用に ついて 探求し ます。 
53 素数 性 を テストす る （Section  1.2.6 のよう な） 述語 prime? を 持って いると 仮定し ま 

す。 


338 


(define    ( iter   count   accum ) 
( cond   ((>   count  b)  accum) 
( (prime?   count ) 

( iter    (+   count 1) (+   count  accum))) 
(else    ( iter    (+   count 1) accum)))) 
(iter  a  0) ) 

2 つ 目の プログラム は 同じ 演算 を Section  2.2.3 の 列 命令 を 用いて 実行し ます。 

dei ine    (  sum-primes   a  b; 
( accumulate  + 

0 

(ェ liter  prime? 

(enumerate - interval a  b) ) ) ) 

演算の 実行に おいて、 最初の プログラム は 蓄積され る 合計の み を 格納す る 必要 

力 《あります。 逆に、 2 つ 目の プログラムの フィルタ は enumerate-interval が 
区間の 数の 完全な リスト を 構築す るまで 一度 も テスト を 行う ことができ ませ 
ん。 フィルタ は 別の リスト を 生成し、 合計 を 形成す るた め 畳み込まれる 前に 順 
に accumulate に 渡されます。 そのような 大きな 中間 ス ト レー ジは 最初の プロ 
グラムで は 必要ありません。 最初の プログラム は 区間 を 昇順に 列挙し、 各 素数 
が 生成され るに つれ 合計に 足して いく と 考える ことができます。 

リ ス ト 使用に おける 非 効率 性 は、 以下の 式 を 評価して 10,000 から 1,000,000 
の 区間に て 2 つ 目の 素数 を 求める のに 列 パラダイム を 用いる と、 悲痛な 程、 明 
ら かです。 

1, car    (,  cdr  、； filter  prime? 

(enumerate- interval   10000  1000000)))) 

この 式 は 2 つ 目の 素数 を 確かに 見つけました。 しかし 計算 上の コスト は 酷 過ぎ 
ます。 ほとんど 百万の 整数の リスト を 構築し、 この リスト を 各 要素の 素数 性 を 
テストす る ことで 選別し、 ほとんど 全ての 結果 を 無視し ます。 より 伝統的な プ 
ログ ラ ミ ング スタイル において は 列挙と フィルタ リ ングを 交互に 配置し、 2 つ 
目の 素数 を 見つけたら 停止し ます。 

ス トリ 一 ムは列 を リストと して 扱う コス トを 負担す る ことなく 列 操作 を 用 
いる ことが 可能な 賢明な 考えです。 ス ト リーム を 用いる と 2 つの 世界の 良い 所 
取りが できます。 プログラム を 列 操作の ように 優雅に 定式化で きます。 繰リ返 
し 演算の 効率 も 獲得で きます。 基本的な アイデア はス ト リーム を 部分的に のみ 
構築す る 準備 を 行い、 部分的な 構築物 をス ト リーム を 消費す る プログラムに 渡 
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します。 も し 消費 プログラムが まだ 構築され ていない ス ト リームの 部分に ァク 
セス しょうと 試みた 場合、 ス トリ ームは 要求され た 部分 を 生成す るた めに 自動 
的に それ 自身の 十分な 追加 を 構築し ます。 従って ストリーム 全体が 存在す る と 
いう 錯覚 を 維持す る ことができます。 言い替えれば、 私達 は 完全な 列 を 処理す 
るよう な プログラム を 書きます が、 私達の ストリーム 実装に 自動的に、 透過 的 
にス ト リームの 構築と その 使用 を 相互 配置す るよう に 設計し ます。 
表面上で は、 ス ト リーム は それ を 操作す るた めの 異なった 名前 を 持った だ 

の リストです。 コンストラクタ cons-stream と 以下の 制約 を 満たす 2 つの セレ 
クタ stream-car  C  stream-cdr 力 つ チイ 生します。 

(, stream-car  (cons-stream  x  y; )  =  x 
(stream-cdr  (cons-stream  x  y) )  =  y 

判別 可能な ォブ ジヱク ト the-empty-stream が 存在し、 これ は どんな cons- 
stream  命令の 結果に はなり  えず、  述語 stream-null? にて 識別で きます。 54 従 
つて ストリーム を 作成し、 使用して、 リストの 作成と 使用と 同様に、 準備され 
た 列の データの 集約 を 表現す る ことができます。 具体的に は、 Chapter  2 から ス 
ト リーム 用の リス ト 命令の 類似 手続、 例えば list-ref,  map,  for-each を 構築 
できます。 55 

dei ine    、stream - re ェ s  n; 
(if    (=  n  0) 

( stream- car   s ) 

(stream - ref    ( stream-cdr  s)    (-  n 1)))) 
( dei ine    ( stream-map  proc   s ) 
(if    ( stream-null?   s ) 
the-empty- stream 

( cons-stream    (proc    ( stream-car   s ) ) 

( stream-map  proc    ( stream-cdr  s))))) 
( dei ine    ( stream -: for - each  proc   s ) 


54mit の 実装で は the-empty-stream は 空の リスト' 0 と 同じで、 stream-null? は 
null? と 同じです。 

55 これ は あなた を 困惑させる でしよう。 そのような 似た 手続 を スト リームと リストに 
定義 するとい う 事実 は、 私達が その 根底に ある 抽象 を 見逃して いる こと を 示します。 残 
念な ことに、 この 抽象 を 利用す るた めに は、 現在 可能な ものより より 細かな 評価 過程に 
対する コン トロ一 ルを 行使す る 必要が あり ます。 この 点に ついては Section  3.5.4 の 終わ 
りに てより 詳細に 議論し ます。 Section  4.2 では リス トと スト リーム を 統合す る フレーム 
ワーク を 開発し ます。 
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(if    ( stream-null?   s ) 
' done 

(begin   (proc    ( stream-car   s ) ) 

(stream-for-each  proc    ( stream- cdr   s ) ) ) ) ) 

stream- for-each はス ト リ 一ムを 見る のに 便利です。 

(define    (display-stream  s ) 

に stream -ェ or - each  disp 丄 av - line   s ) ) 
(define    (display-line  x)    (newline )    (di splay  x) ) 

ス ト リームの 実装に 自動的、 かつ 透過 的に ス ト リームの 構築と その 使用 を 相互 

配置させる ために は、 ストリームの cdr 力、 ストリーム 力 《 cons-stream により 
構築 された 時で なく、  stream-cdr 手続に より アクセス された 時に 評価 される 
ように 手 害 を 整えます。 この 実装の 選択 は Section  2.1. 2 での 分数の 議論 を 思い 
出させます。 その 場合 は 分子 と 分母の 最小の 項への 約分 を 構築 時 ま た は 選択 時 
に 実行され るよう 実装 を 選択で きる こと を 学びました。 2 つの 分数 実装 は 同じ 
データ 抽象化 を 生成し ますが、 選択が 効率に 影響 を 与えました。 似た 関係が ス 
ト リームと 通常の リストの 間に も 存在し ます。 データ 抽象化と して は、 ス トリ 
ームは リストと 同じです。 違い は 要素が 評価され る タイミングです。 通常の リ 
ス ト では car と cdr の 両方 は 構築 時に 評価され ます。 ス トリ ーム では cdr は 選 
択 時に 評価され ます。 

私達の ス ト リームの 実装 は delay (遅延） と 呼ばれる 特殊 形式 を 基に しま 
す。 （delay  <exp>) の 評価 は 式く  exp〉 を 評価し ません。 しかし その代わりに 
所謂 ddayed  object (遅延 オブジェ ク 卜） を 返します。 これ は ある 将来の 時点で 
(exp) を 評価す る "promise" (プロ ミス、 約束） として 考える ことができます。 
delay の 相 方と して force (強いる） と 呼ばれる 手続が 存在し、 遅延 オブジェ ク 
トを 引数と して 取り、 評価 を 実行し ます。 実際に delay に その 約束 を 果たさせ 
る こと を 強要し ます。 以下で delay と force が どのよう に 実装で きる かにつ い 
て 学びます が、 最初に これら を 用いて ス ト リーム を 構築し ましょう。 
cons-stream は 特殊 开$ 式で、 

(, cons-stream  [a)  (b) ) 

上が 以下 と 同じになる よう 設計され ています。 
(, cons  (a)   i, delay  (d>  ) ) 

これの 意味す る 所 は、 私達 は ペア を 用いて ストリーム を 構築し ます。 しかし、 
ペアの cdr に ストリームの 残りの 値 を 置く ので はなく、 そこに プロ ミス を 置き 
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要求され た 時点で 残リ を 計算し ます。 
続と して 定義で きます。 

、deiine  ( stream-car  stream) 
、deiine    ( stream-cdr  stream) 


しれで stream-car と stream-cdr 力 ミ 手 


(car   stream ) ) 

(force    ( cdr   stream ) ) ) 


stream-car は ペアの car を 選択し ます。 stream-cdr は ペアの cdr を 選択し、 
そこに 見つかった 遅延 表現 を 評価し、 ストリームの 残り を 得ます。 56 

ス トリ ーム 実装の 実践 

この 実装が どのように 振る舞う のか を 見る ために、 先に 見た "法外な" 素数 
演算 をス ト リーム を 用いて 再 定式化し たもの を 分析して みましょう。 

に stream-car 
( stream-cdr 
、 stream -ェ liter  prime  r 

、 stream-enumerate- interval 

10000  1000000)))) 

こ れが 本当 に 効率的に 働 くこと を 見る でしよう。 

stream-enumerate-interval を 引数 10,000 と 1,000,000 と共に 呼び出す こ 
と 力、 り 始め ま 9。  Stream-enumerate-interval (3-  enumerate-interval  (Sec- 
tion 2.2.3) のス ト リ 一ム版 同等 品です。 

def ine    (stream 一 enumerate 一 interval   low  high) 
、if    (> low  high ) 

the-empty- stream 
( cons-stream 
low 

(stream-enumerate-interval (+ low 1) high)))) 


56 stream-car  t  stream-cdr 力 《手続と して 定義で きる にも 係わらず、 cons-stream  (ま 
特殊 形式で なければ なりません。 もし cons-stream が 手続で あるの ならば、 私達の 評価 
モデルに 従い、 （cons- stream  <a>  <b>) の 評価 は 自動的に 〈t>〉 の 評価 を 起こします。 こ 
れは 明らかに 私たちに とって 起こって 欲しくな いこ とです。 同じ 理由から delay も 特殊 
形式で なければ なり ません。 しかし force は 通常の 手続に なり ます。 
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従って stream-enumerate- interval で 返される 結果 は、 cons  -  stream で 形成 

された57 

(cons  10000 

(delay   ( stream-enumerate- interval   10001    1000000) ) ) 

つまり stream-enumerate-interval は ペアと して 表現され たス ト リ 一ムを 返 
しその car は 10,000 で、 その cdr は プロ ミ ス であ リ も し 要求 されれば 区間の 
よ り 多く を 列挙し ます。 この スト リーム はこ こで フィルタ を かけ 素数 を 残し ま 
す。 filter 手続 （Section  2.2.3) のス ト リーム 版 同等 品 を 用います。 

dei ine    (stream -: filter  pred   stream ) 
( cond   ( ( stream-null?   stream)    the- empty- stream) 
( (pred    ( stream-car   stream ) ) 
( cons- stream    ( stream-car  stream) 
(stream -ェ liter 
pred 

( stream- cdr  stream)))) 
(else    (stream-filter  pred    ( stream - cdr   stream) ) ) ) ) 

stream-filter は ストリームの stream-car (ペアの car であ り 10,000) をテ 
ストし ます。 これ は 素数で はない ので stream-filter は 入 カス ト リーム 
の stream-cdr を 調査し ます。 stream-cdr の 呼 出 は 遅延 化された stream - 
enumerate-interval の 評価 を 強制し ます。 これ は 今、 以下 を 返します。 

(cons  10001 

(delay   ( stream-enumerate- interval   10002   1000000) ) ) 

stream-filter は 今 この ス ト リ 一ムの stream-car である 10,001 を 見て、 これ 
もまた 素数で はない こと を 確認し、 もう 一度 stream-cdr を 強制し ます。 これ 
を stream-enumerate- interval が 素数 10,007 を 生じる まで 繰り返し、 すると 
直ぐに stream- filter は その 定義に 従い 以下 を 返します。 

に cons - stream    ( stream-car  stream) 

( stream 一： E liter  pred    ( stream 一 cdr  stream)); 

これ はこの 場合 以下の ようになり ます。 
57 ここで 示されて いる 数値 は 遅延 オブジェ ク 卜の 中には 実際に は 現れません。 実際に 

現れる の は 元の 式で あり、 環境の 中で 変数 は 適切な 数値に 束縛され ています。 例えば low 
が 10,000 に 束縛され ながら （+ low 1) が 10001 が 表示され ている 場所に 現れます。 
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( cons  10007 

(delay  (stream-filter 
prime? 
( cons  10008 

(delay   ( stream-enumerate- interval 
10009 

1000000)))))) 

これで この結果 は 元の 式の stream-cdr に 渡されます。 これによ リ 遅延され 
た stream-filter 力 《弓虽 $!J され、 それ 力 《I 頃に 遅延され た stream— enumerate— 
interval を 次の 素数、 10,009 を 見つける まで 強制し ます。 最終的に、 結果が 私 
達の 元の 式の stream-car に 渡された 物が 以下です。 

( cons  10009 

(delay  (stream-filter 
prime? 
(cons  10010 

(delay   ( stream-enumerate- interval 
10011 

1000000) ) ) ) ) ) 

stream-car が 10,009 を 返し 計算が 完了し ます。 2 つ 目の 素数 を 見つける のに 
必要な だ けの 整数が 素数 性の テス トを 受け、 区間 は 素数 フィルタに 入力す るの 
に 必要な だけ 列挙され ました。 

一般的に、 遅延 評価 は "demand- driven" (要求 駆動） プロ グラ ミ ング だと 考 
える ことができ、 ス ト リーム 処理の 各 ステージ は 次の ステージ を 満たす のに + 
分な 場合に のみ 稼動され ます。 私達が ここで 行った こと は 手続の 見掛け 上の 構 
造から 実際の イベントの 順 を 分 断す る ことです。 手続 をス ト リームが" 一度に 
揃って" 存在す るかの ように 書く 力 \ 実際に は 演算 は 漸増 的に 伝統的な プロ グ 
ラミング スタイル のよう に 実行され ま す。 

delay と force の 実装 

delay と force は ミステリ ァスな 命令に 見える かも しれません 力5'、 それら 
の 実装 は 本当に とても 簡単です。 delay は 式 を 梱包して 要求に 応じて 評価で き 
るよう にせねば なり ません。 私達 はこれ を 手続の ボディの ように 式 を 扱う こと 
で 簡単に 達成で きます。 delay は 以下の よう な 特殊 形式です。 

、 delay  {exp) ) 
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これ は 以下の 構文 糖に なり ます。 

、上 ambda   ( )    (exp) ) 

force は 単純に delay により 生成され た （引数 無しの） 手続 を 呼び出します。 従 
つて force は 手続と して 実装 可能です。 

def ine    (force   delayed  -  ob  ，  e  ct )    (  delayed  -  obj  ect  ) ) 

こ の 実装 は delay と f  oixe が 広報 通 りに 動く 程度に は 十分です。 し かし 導入 可 
能な 重要な 最適化 が 存在 します。 多くの アプリケーション において は 同じ 遅延 
オブジェ ク ト を 何度も 強制す る ことにな り ます。 これが ス ト リ ームを 利用す る 
再帰 プロ グラムに おいて 深刻な 非 効率の 原因 となります （Exercise  3.57 参照)。 
解決 方法 は 遅延 ォブジ ェクト が 初 め て 強制 された 時 に 計算 された 値 を 保存す る 
ように 遅延 オブジェクト を 構築し ます。 続く 強制 は 格納され た 値の 計算 を繰リ 
返さずに、 単純に 格納され た 値 を 返します。 言い替えれば、 delay を 特別な 目 
的の メモ 化 手続と して Exercise  3.27 にて 説明され た 物と 同様に 実装し ます。 こ 
れを 達成す る 1 つの 方法 は 以下の 手続 を 用います。 これ は 引数と して （引数の 
無い） 手続 を取リ その 手続の メモ 化された 版 を 返します。 メモ 化された 手続が 
最初に 実行され る 時、 計算 結果 を 格納し ます。 以降の 評価で は 単純に 結果 を 返 
します。 

def  ine    (memo - proc  proc  ) 
、丄 et    、 、 a 丄: readv 一： run r   false )    (result   false ) ) 
( lambda  () 

(if    (not   already-run? ) 

(begin   (set!    result    (proc ) ) 

(set!    already-run?   true ) 
re  suit ) 
result)))) 

delay はする と （delay  <exp» が 以下と 等価になる ように 定義され ます。 

(memo - proc    (lambda    ()    {exp) ) ) 

そして； force は 以前の 定義と 同じです。 M 

58 この 節で 説明され た 物 以外に も 多くの ス ト リームの 実装が 存在し ます。 遅延 評価 は 
ストリーム を 現実的に する 鍵です が、 Algol 60 の リ -name (コール バイ ネーム、 名前 
による 呼 出） パラメタ パッシング 法 固有の 物でした。 ス トリ ームの 実装に この 仕組み を 
使用す る こと は 最初に Landin  (1965) により 説明され ました。 ス ト リームに 対する 遅延 評 
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Exercise  3.50: 以下の 定義 を 完成 させよ。 これ は stream- map を 

複数の 引数 を 取る こ とがで きる よ う にす る Section  2.2.1 の map, 
Footnote 12 の 同等 品で ある 

def ine    (  stream-map  proc    .    argstr earns  ) 
( if    ( {??)    (  car   argstreams  ) ) 
the - empty - stream 

(〈？ ？〉 

( apply  proc    (map  {??)   argstreams ) ) 
( apply  stream-map 

( cons  proc    (map  {??)  argstreams)))))) 

Exercise  3.51: 遅延 評価の よ リ 詳細 を 見る ために、 単純に 引数 を 表 
示した 後に 引数 を 返す だけの 以下の 手続 を 使用す る。 

def  me    (  show  x; 
^disDlay-lme  x) 

x) 

ィ ンタ プリ タが 以下の 一連の 式の それぞれ を 評価した 時に 何 を 表 
示す るだろう 力、?59 

def  ine  x 

stream-map  show 

( str earn -enumerate -interval 0 10))) 


価 は Friedman  and  Wise  (1976) によ リ Lisp に 導入され ました。 彼等の 実装で は cons は 
常に その 引数の 評価 を 遅延す るので、 リスト は 自動的に ストリーム として 振舞いました。 
メモ 化 最適化 は c ひ ZZ- & y-need  (コール バイ ニード、 必要に よる 呼 出） としても 知られて い 
ます。 Alogol コミュニティ は 私達の 元の 遅延 オブジェクト を call-by-name  thunks (コ一 
ルバ イネ一 ムサン ク） と 呼び 最適化 された 版 を cal レ by-need 仏 wifcs (コール バイ 二一 ドサ 
ンク） と 呼ぶ でしよ う。 

59Exercise  3.51 や Exercise  3. 52 のよう な 課題 は delay が どのよう に 働く かにつ いての 
私達の 理解 を 試す ために 価値有る ものです。 一方で、 遅延 評価 を 表示 一 そして さらに 悪 
いこと に 代入と 一 混ぜる こと は 大きな 混乱 要因で あり、 コンピュータ 言語の 授業の ィ ン 
ス トラクタ 達 はこの 節に あるよう な 試験問題で 学生 達 を 苦しめて きました。 言う まで も 
あ リ ません が、 そのよう な 微妙 さ に 依存す る プロ グラム を 書く こと は 醜悪な プロ ダラ ミ 
ング スタイルです。 ス ト リーム 処理の 力の一 部 は 私達に イベントが 実際に プログラムの 
中で 起こる 順につ いて 忘れさせて くれる ことです。 残念な ことに これ は 明らかに 代入が 
存在す る 場合に はでき ない 事です。 代入 は 私達に 時間と 変更に 関して 心配す る こと を 強 
いるので す。 
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( stream-ref  x  5) 
( stream-ref   x  7) 


Exercise  3.52: 以下の 一連の 式に ついて 考える。 

( def  ine   sum  0) 

(define    ( accum  x)    (set!    sum   (+  x   sum) )  sum) 
( def  ine  seq 

( stream-map  accum 

( str earn -enumerate -interval 1 20))) 
( def  ine  y   (stream-filter   even?   seq) ) 
( def  ine  z 

( stream - filter    ( lambda   (x)    (=   (remainder  x  5)    0) ) 
seq) ) 

( stream-ref   y  7) 
(display-stream  z) 

上記の 各 式が 評価され た 後の sum の 値 はいくつ か？ 式 stream-ref 
と display- stream を 評価した 時 表示され る 応答 は 何 か？ これらの 
応答 はもし （delay  <exp» を 単純に （lambda  ()  <exp» と 実装 
し memo-proc により 提供され る 最適化 を 使用し なかった 場合に 異 
なる だろう か？ 説明せ よ。 

3.5.2 無限 ス 卜 リーム 

実際に は アクセスに 必要な 分の ス ト リームし か 計算して いないのに ス ト リ 
—ムを 完全な 要素の 集合と して 扱う イリュージョン を どのように サポート する 
のかに ついて 学びました。 この テクニック を 利用して 例え 列が 実際に はとても 
長くても 列 を 効率的に ストリーム として 表現す る ことができます。 より 印象的 
な ことに、 スト リーム を 無限に 長い 列 を 表現す るた めに 使用す る ことができ ま 
す。 例と して 以下の 正の 整数の ス ト リ 一ムの 定義に ついて 考えて みま しょう。 

、deiine    (integers -start mg-f rom  n ソ 

( cons-stream  n     integers -starting- from    (+  n 1)))) 
( dei me   integers    ^ integers -starting- from 1) ) 

integers が car が 1 で cdr が 2 で始 まる 整数 を 生成す る プロ ミスになる ため 
これ は理 にかな つてい ます。 これ は 無限に 長い ストリームです。 しかし 任意の 
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与えれ た 時間に は その 有限な 一部し か 検討す る こと はでき ません。 従って 私達 
の プログラム は 無限の ス ト リーム 全体が そこに ある こと を 知る こと はでき ま 
せん。 

integers を 用いて 他の 無限の ス ト リーム を 定義で きます。 例えば 7 で 割る 
ことので きない 整数の ス ト リ ーム です。 

(, def ine    (divisible?  x  y j    (,=   (remainder  x  y )   0; ) 
(define  no-sevens 

(stream-i liter    (lambda   (x)    (not    (divisible?  x  7) ) ) 
integers ) ) 

すると 7 で割リ 切れない 整数 を この ス ト リームの 要素に アクセス する だけで 見 
つける ことができます。 

V  stream-ref   no-sevens  100) 
117 

integers と 同様に、 フィボナッチ 数の 無限 ストリーム も 定義で きます。 

(, def  ine    (f lDgen  a  b)    (  cons-  stream  a   ( f lbgen  b   (+  a  b) ) ) ) 
(define  fibs   (f ibgen  0 1)) 

fibs は その car が 0 で、 その cdr は （f ibgen 1 1) を 評価す る プロ ミ ス であ 
る ペアです。 この 遅延 化した （f ibgen 1 1) を 評価す ると、 car が 1 で cdr が 
(fibgen 1 2) を 評価す る プロ ミスで ある ペア を 生成し ます。 以下、 その 繰り 
返しです。 

よ リ 刺激的な 無限 ス ト リームの 調査の ために、 no-sevens の 例 を 一般化し、 
素数の 無限 ス ト リ ームを sieve  of  Eratosthenes  、エラ 卜ステ ネスの 篩） と して 知 
られる 手法 を 用いて 構築し ます。 6Q 私達 は 整数 を 最初の 素数で ある 2 で 始め ま 
す。 残りの 素数 を 得る ために、 整数の 残りから 2 の 倍数 を フィルタリング する 
ことから 始めます。 これ は 3 で 始まる ストリーム を 残し、 3 は 次の 素数です。 こ 
こで 3 の 倍数 を この ス ト リームの 残りから フィルタ リ ング します。 これ は 5 で 
始まる ストリーム を 残し、 5 は 次の 素数です。 以下 これ を繰リ 返します。 言い 

so エラ トス テ ネス は 紀元前 3 世紀の ァレキ サンド リア 学派の ギリシャ 人 哲学者で、 地 
球の 外周 を 最初に 正しく 推測した として 有名です。 彼 は 夏至の 日の 正午の 影 を 観察す る 
ことで これ を 求めました。 エラト ステ ネスの 篩 は 古典です が、 特殊 用途の ハードウェア 
"篩" の 基礎 をな してお リ、 最近まで 巨大な 素数 を 突き止める 最も 強力な ツールでした。 
しかし 70 年代から これらの 手法 は Section  1.2.6 で 議論され た 確率 的な 技術の 成長に よ リ 
取って代わられました。 
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換えれば、 素数 を 次の 様に 説明す る 篩に かける 処理に より 構築し ます。 まず ス 

ト リーム S に 篩 を かける ために、 最初の 要素が S の 最初の 要素で あり、 残り は 
S の 残りから S の 最初の 要素の 倍数 を フィル タリ ング する ことで 得られる ス ト 

リーム を 形成し ます。 そして 結果 を さらに 篩に かけます。 この 処理 は 容易に ス 
ト リーム 命令 を 用いて 記述で きます。 

^define    ( sieve  stream) 
、 cons-stream 
( stream-car  stream) 
( sieve  (stream-filter 
(lambda  (x) 

(not    (divisible?  x    ( stream-car  stream)))) 
( stream- cdr  stream))))) 
(define  primes    (  sieve     integers -starting- from  2) ) ) 

これで 特定の 素数 を 見つける のに は 以下の ように 尋ねる だけです。 

、 stream- ref   primes  50) 

233 

Figure  3.31 の "ヘンダーソン 図" に 示される ように sieve により 設定され た 信 
号 処理 システム を 熟考す る こと は 面白いです。 61 入 カス ト リ ームは "unconser" 
に 流し込まれ、 ス ト リームの 最初の 要素 を スト リームの 残りから 分離し ます。 
最初の 要素 は 可分性 フィルタ を 構築す るのに 用いられ、 残リは それに 渡され 通 
ります。 フィルタの 出力 はもう 1 つの 篩の 箱に 流し込まれます。 次に 元の 最初 
の 用途 は 内側の 篩の 出力 上に cons され 出 カス ト リーム を 形成し ます。 従って 
ス トリ ーム のみが 無限で はな く  、 信号 処理 器 もまた 無限です。 なぜな ら篩 がそ 
の 中に 篩 を 持って いるから です。 

暗黙 的ス ト リーム 定義 

上記の integers と fibs のス ト リ ームは 明示的に ス ト リ ーム 要素 を 1 つづ 

つ 計算す る "生成" 手続 を 指定す る ことにより 定義され ました。 ストリーム を 
指定す る 代替 法と して 遅延 評価の 利点 を 用いて 暗黙 的に ス ト リ ームを 定義す る 


61 私達 は これらの 図 を Peter  Henderson にち なんで 名付けました。 彼 はこの 種の 図 を 
ス ト リーム 処理に ついて 考える 方法と して 示した 最初の 人物です。 各 実線 は 送信され る 
値の ス ト リ ームを 表して います。 car から cons と filter への 点線 はこれ がス ト リ ーム 
ではなく 単一の 値で ある こと を 示します。 
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divisible? 


V.  J 

Figure  3.31: 信号 処理 システム と して 見た 素数の 篩 


ことが 上げられます。 例えば 以下の 式はス ト リ ーム ones を 1 の 無限 ス トリー 
ム として 定義し ます。 

dei ine   ones    (  cons-stream 1 ones) ソ 

これ は 再帰 手続の 定義 そつ く リ に 動きます。 ones は ペアで その car は 1 で そ 
の cdr は ones を 評価す る プロ ミ ス です。 cdr の 評価 は 再び 1 と ones を 評価す 
る プロ ミス を 与えます。 以下、 繰り返しです。 

よ リ 面白い こと と して ス ト リーム を add-streams のよう な 命令で 操作す る 
ことができます。 add-streams は 2 つの 与えら えた ス ト リームの エレ メ ント同 
士の和 を 生成し ます。 

、deiine    (add— streams   si s2)    ( stream-map  +  si s2) ; 

これで 整数 を 以下の ように 定義で きます。 

(, dei  ine  integers 

i, cons-stream 1 、 add- streams   ones   integers  ；)) 

これ は integers が 最初の 要素 は 1 で 残り は ones と integers の 和に な り ます。 
従って integers の 2 つ 目の 要素 は 1 足す integers の 最初の 要素、 つまり 2 
になります。 integers の 3 つ 目の 要素 は 1 足す integers の 2 つ 目の 要素、 つ 
まり 3 です。 以下 繰り返しです。 この 定義 は 任意の 時点で 十分な integers ス 
ト リ ームが 生成され ている ので 次の 整数 を 生成す るた めに 定義に フィード バッ 
ク する ことができる ためう まく 行く のです。 

フィボナッチ 数 も 同じ ス タイ ルで 定義で きます。 


350 


(define  fibs 
( cons-stream 

0 

( cons-stream 1 ( add - streams    ( stream-cdr  fibs)  fibs)))) 

この 定義 は fibs は 0 と 1 で 始まる ス ト リームで あり 残りの ス ト リーム は fibs 
を 自身に 1 つず らして 足す ことで 生成す る ことができ ると 述べて います。 


0 


2 

3 

5 

8 

13 

21 

= (stream-cdr 

0 

2 

3 

5 

8 

13 

= fibs 

2 

3 

5 

8 

13 

21 

34 … 

= fibs 

scale-stream はまた 別の、 そのような ス ト リーム 定義 を 形成す るのに 便利な 
手続です。 これ はス ト リームの 各 要素に 与えられた 定数 を 掛けます。 

(, del ine    (.scale-stream   stream  factor) 
( stream-map    ( lambda   (x)    (*  x  factor) ) 


(define   double    ( cons-stream 1 ( scale-stream  double  2))) 


は 2 の 冪乗の ス ト リ ームを 生成し ます ： 1, 2,  4,  8, 16,  32, ... 

素数 ス ト リームの 代替 定義 は 整数で 始まり、 それらの 素数 性 を テス ト する 
ことで フィルタリング する ことで も 与えられます。 最初の 素数、 2 を 開始に 必 
要と します。 


(define  primes 
( cons-stream 

2 

V  stream -i liter  prime?    (integers-start mg-f rom  3) ; ) ) 


この 定義 は あまり 見かけ ほど 簡単で はあり ません。 n 力5 '(任意の 整数で なく）  # 
以下の 素数で 割 り 切れる かどう か を チェック する ことによ リ数 n が 素数で ある 
か を 決める ためです。 


stream ； ) 


例と して 


(define    vpr ime?  n) 
(define    ( iter  ps ) 

( cond   ( (>    ( square    ( stream-car  ps))  n) 
( ( divisible?  n   ( stream-car  ps)) 


true ) 
false ) 
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(else    (  iter    ( stream-cdr  ps ) ) ) ) ) 
( iter  primes ) ) 

これ は 再帰 定義で ぁリ、 primes が primes を 用いる prime? 述語 を 用いて 定義 
されて います。 この 手続が うまく 行く 訳 は、 任意の 時点で、 十分な primes ス 
ト リームが 生成され ており、 次に チェックす るのに 必要な 数の 素数 性 を テス ト 
できる からです。 全ての n に対して 素数 性 を テストし ます。 例え n が 素数で な 
くても （この場合、 それ を 割り切れる 素数が 既に 生成され ています。 ）， 例え n 
が 素数 （この場合、 素数が 既に 生成され ています 一言い 換えれば、 # より 大 
きく  n 未満の 素数） であって もです。 62 

Exercise  3.53: プログラム を 実行す る こと 無しに 以下に よ リ 定義 さ 

れたス ト リ ームの 要素に ついて 説明せ よ。 

(define   s   ( cons-stream 1 (add - streams   s  s ) ; ) 

Exercise  3.54:  add—streams と 類似の 手続 mul-streams を 定義せ 

よ。 これ は 2 つの 入力 ストリームの 要素 同士の 積 を 生成す る。 こ 
れを integers ス トリ ーム と共に 用いて 以下の ス ト リ ームの 定義 
を 完成 させよ。 これの n 番目の 要素 （0 で 開始） は n+1 の 階乗で 
ある。 

(, define  factorials  (,  cons- stream 1 (mul-streams  〈？〉  (？ }) ) ； 

Exercise  3.55: 手続 partial- sums を 定義せ よ。 これ はス 卜 リ ーム 

5* を 引数と して 取り、 要素が 5*0,  5*0  +  &，  5*0  +  &  +  S2, . . . である 
ス 卜つ ームを 返す。 例えば (partial-sums  integers) は 1, 3,  6, 
10, 15， ... の スト リームに ならねば ならない。 

Exercise  3.56:  R.  Hamming  ( リチャード ハ ミン グ） に よ リ 取 リ 上 げ 

られた 有名な 問題に、 昇順に、 重複 無く、  2,  3,  5 以外の 素因数 を 持 
たない 正の 整数 を 列挙せ よ というものがある。 これ を 行う 1 つの 

62 この 最後の 点 はとても 微妙で？) „+1 <  pi という 事実に 依存して います。 （ここで Pfc 
は fc 番目の 素数 を 示します)。 このような 予測 を 立証す るの はとても 難しいです。 ユー ク リ 
ッ ド による 太古の 証明に よる、 ある 素数が 無限に 存在す る ことが さ贝ぬ…れ+ェ 
を 示して います。 そして 実質的に はよ リ 良い 結果が 証明され る こと は 1851 年まで あり 
ませんで した。 この 年、 ロシア 人の 数学者 P.  L.  Chebyshev (パフ ヌ ティ' チェ ピシェ 
フ） は 全ての ri に 対し <  2p„ である こと を 証明し ました。 最初に 1845 年に 予想 さ 
れ たこの 結果 は Bertrand's  ftj/po^esis (ベルトランの 仮説） として 知られて います。 証明 
は Hardy  and  Wright  1960 の 節 22.3 に 見つかり ます。 
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明らかな 方法 は 単純に 各 整数 を 順に 2,  3,  5 以外の 素因数 を 持つ か 
どうか テストす る 方法です。 しかし これ はとても 非 効率です。 整 
数が 大きく なる 程に 要求に 合う 数 はよ り 少な く なる ためです。 代 
替法 として、 要求され た 数の ストリーム を S と 呼び、 以下の 事実 
について 注目して みましょう。 

. S は 1 で 始まる。 

. (scale-stream  S  2) の 要素 もまた S の 要素で ある。 

• 同じ v_ とか、 scale  -  stream  S  3) ご (scale-stream  5  S) に 

対しても 真で ある。 

• これら は 全て S の 要素で ある。 

さて 私達が 行わなければ ならない こと 全て は これらの 情報から 要 

素 を 結合す る ことで ある。 このために 2 つの 順序 有 リスト リーム 
を 重複 を 省き 1 つの 順序 付けられた 結果の ス ト リームに 結合す る 
-^hi  merge を & 我 一 9  0。 

V dei ine    (merge   si s2 ; 

( cond  ( ( stream-null?  si) s2 ) 
( ( stream-null?  s2)  si) 
(else 

(let   ( ( s lcar   ( stream- car  si ) ) 
( s2car    ( stream-car   s2 ) ) ) 
( cond   ((<   s lcar   s2car ) 
( cons-stream 
s lcar 

(merge    ( stream-cdr   si) s2 ) ) ) 
( (>   s lcar   s2car ) 
( cons-stream 
s2car 

(merge   si ( stream-cdr   s2 ) ) ) ) 
( else 
( cons-stream 
s lcar 

(merge    ( stream-cdr  si) 

(stream-cdr  s2) ))))))) ) 
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次に 要求され たス ト リームが merge を 用いて 以下の よう 構築され 
るだろう。 


(define   S   ( cons-stream 1 (merge   (？?)   (  r?) ) ) ； 

上で 〈？ ？〉 と マーク された 箇所の 欠けた 式 を 埋めよ。 

Exercise  3.57:  n 番目の フィボナッチ 数 を add-streams 手続 を 基 
にした fibs の 定義 を 用いて 計算した 場合に 加算 は 何回 実行され る 
力、？ 加算 回数が （delay  <exp» を 単純に Section  3.5.1 で 説明した 
memo-proc 手続に ょリ 提供され る 最適化 を 用いずに、 （lambda  () 
<exp» と して 実装した 場合に 指数関数 的に 増加す る こと を 示せ。 

63 

Exercise  3.58: 以下の 手続に よ リ 計算され る スト リ ームの 解説 を 与 

えよ。 

(define    (, expand  num  den  radix ； 
( cons- stream 
(quotient    ( *  num  radix )  den) 

( expand   (remainder    (*  num  radix)    den)    den  radix ) ) ) 

(quotient は プリ ミ ティ ブ であり、 2 つの 整数の、 整数の 商 を 返す)。 
(expand 1 7 10) により 生成され る 一連の 要素 は 何 か？  （expand  3 
8 10) では 何が 生成され るか？ 

Exercise  3.59:  Section  2.5.3 にて 多項式 を 項の リストと して 表現す 
る 多項式 数値 演算 システム を どのよう に 実装す るかに ついて 学ん 
だ。 同様な 方法で 以下のような power  series (べき 級数） についても 
扱う ことができる。 

x     ,  x2       xs  x4 

1 x2  x4 

cos  x  — 1  1  . . . , 

2      4-3-2  ' 

63 この 課題 は call-by-need が Exercise  3.27 で 説明され た 通常の メモ 化に 密接に 関係し 
ている こと を 示します。 その 課題で は 代入 を 明示的に ローカルの 表の 構築に 用いました。 
私達の call-by-need ス トリ ームの 最適化 は 効果的に そのような テーブル を 自動的に 構築 
し、 ス トリ ームの 以前に 強制され た 部分の 値 を 格納し ます。 
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x3  x5 

smI  =  a;__  +  ___... 

これら は 無限 ス ト リームと して 表現され ている。 数列 a0  +  ai:r  + 
a2x2  +  a3x3  +  ... を 要素が 係数 a0,  aly  a2,  a3, . . . のス ト リ ーム と 
して 表す ことにする。 

a 級数 ao+a1;r  +  (x2:r2  +  a3:C3  +  ... の 積分 は 次の 級数になる。 

1 2 1 s 1 a 

c  +  aox  +  -aix  +  -^a2X  +  -^a-3X  +..., 

ここで c は 任意の 定数で ある。 羃 級数 を 表す ス ト リ ーム a0, 
ai, a2, ... を 入力と して 取り、 その 級数の 積分の 非 定数 項の 
係数の ス ト リーム a0,  |ai,  |a2,  ... を 返す 手続 integrate- 
series  を 定義せ よ。 （結果が 定数 項 を 持たない ため、 それ は 
羃 級数で は 無い。 integrate-series を 使う 時、 後で 適切な 
定数 を cons する。 ) 

b 関数: r け^ は それ 自身 導関数で ある。 これ は e31 と ビ の不 
定 積分 が 定数 項 を 除いて 同じ 級数に なること を 暗示す る。 定 
数 項 は eQ  =  l である。 結果 的に、 e21 の 級数 を 次のように 生 
成で きる。 

、 define   exp - series 

( cons-stream 1 (integrate- series   exp - series ) ソ) 

sin と cos の 級数 を どのよう に 生成す るか 示せ。 sin の 導関数 
が cos であり、 cos の 導関数が 負の sin である こと から 始めよ。 

、define   cos  me-  ser ie  s    (  cons-stream 1 (？ r) ) ) 
(define   sine-series    ( cons-stream  0  〈？？〉)) 

Exercise  3.60:  Exercise  3.59 における 係数 ス ト リ ーム として 表現 さ 

れた羃 級数 を 用いて、 級数の 加算 は add-streams によ リ 実装され 
る。 級数 を 乗算す るた めの 以下の 手続の 定義 を 完成 させよ。 

(, def ine    (mul  - series   si s2  ； 

( cons-stream  {??)    (add-streams   {??)  {??))) ) 

手続が できたら Exercise  3.59 の 級数 を 用いて sin2  x  +  cos2  a; = 1 を 
確認せ よ。 
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Exercise  3.61: S が 定数 項が 1 の羃 級数 （Exercise  3.59) であると 
する。 羃 級数 1/S を 見つけた いとする。 つまり = 1 となる 
よ う な 級数 X である。 SR が S の 定数 項の 後の 部分で ある 場合に 
S^I  +  Sr を 書け。 そうすれば X を 以下の ようにして 求める こと 

がで きる。 

S-X  =1, 
(l  +  SR)-X  =  l, 
X  +  SR-  X  ^ 1, 

X^l~SR-X. 

言い換えれば、 X は 定数 項が 1 であ リ 高次 項が 負の Sfl と X の 積 

によ リ 与えられる 羃 級数で ある。 この 考え を 用いて 定数 項 1 を 持 

っ羃 級数 S に対する 1/5" を 求める 手続 invert-unit-series を 書 
け。 Exercise  3.60 の mul-series を 用いる 必要が ある。 

Exercise  3.62:  Exercise  3.60 と Exercise  3.61 の 結果 を 用いて 2 つの 
羃 級数 を 割る 手続 div-series を 定義せ よ。 div-series は 任意の 2 

つの 級数に 対して 利用で きねば ならず 分母の 級数 は 非 ゼロな 定数 
項で 始 ま ら ねばな ら ない。 （もし 分母が ゼ 口 の 定数 項 を 持つなら ば 
div-series は エフ 一 を 発すし と)。 div-series を Exercise  3. 59 の 
結果と 一緒に どのように 用いて tan の羃 級数 を 生成す る か 示せ。 

3.5.3 ストリーム パラダイムの 利用 

遅延 評価 を 伴な ぅス ト リ ームは 強力な モ デリ ング ツールに する ことができ、 
局所 状態と 代入の 利点の 多く を 提供す る。 さらに プロ グラ ミ ング 言語への 代入 
の 導入に 伴う、 いくつ かの 理論的な 混乱 を 防ぎ ま す。 

ス ト リームの アプローチ は 私達に、 状態 変数への 代入の 周り に 体系化され 
た システムよりも、 異なる モジュール 境界 を 伴な う システム を 構築す る こと を 
可能に する ため、 啓発 的です。 例えば 私達 は 個別の 瞬間に おける 状態 変数の 値 
としてで はなく、 時系列 （または 信号） 全体 を 興味の 中心として 考える ことが で 
きます。 この ことが 異なる 瞬間の 状態の コ ン ポー ネ ン トの 比較と 接続 を 行う の 
により 便利に します。 

反復 をス ト リーム プロセス として 定式化す る 

Section  1.2.1 において、 反復 プロセス を 紹介し ました。 これ は 状態 変数 を更 
新す る ことで 進行され ます。 私達 は 今、 状態 を 更新され る 変数の 集合と してで 
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はなく、 "水 遠" の 値の ストリーム として 表す ことができます。 Section  1.1.7 の 
平方根 手続への 再訪 問に この 視点 を 導入し ましょう。 考え方 は 推測 値 を 改善す 
る 手続 を 何度も 適用す る ことで: r の 平方根の 推測 値 をより 良い値の 列 を 生成す 
ると いう こと を 思い出して 下さい。 

(define    (, sart-improve   guess  xj 
( average   guess    (/  x  guess))) 

私達の 元の sqrt 手続で は、 これらの 推測 値 を 状態 変数の 一連の 値に しました。 
代わ り に 推測 値の 無限 ス ト リーム を 作る ことができ ま す。 推測 値の 初期値 は 1 
で 始めます。 64 

(define    、 sqrt - stream  x ) 
(define  guesses 
( cons-stream 
1.0 

( stream-map    (lambda   (guess )    ( sqrt - improve   guess  x) ) 
guesses ) ) ) 

gues  ses ) 

(display- stream    ( sqrt- stream  2) ) 
1.5 

1 .4166666666666665 
1 .4142156862745097 
1 .4142135623746899 

よ り 多くの ス ト リームの 項 を 生成す る ことで よ リ 良い 推測 値 を 得る ことができ 
ます。 もし 望むなら、 解答が 十分に 良くなる まで 項の 生成 を 続ける 手続 を 書く 
こと も 可能です。 （Exercise  3.64 参照）。 

同じ 方法で 扱える もう 1 つの 反復 は tt の 近似値 を Section  1.3.1 で 見た 交 項 
級数 （交代 級数） を 基に して 生成す る ことが 可能です。 

+  .... 


64let を ローカル 変数 guesses を 束縛す るのに 使う こと はでき ません。 guesses の 値 
は guesses 自身に 依存す るた めです。 Exercise  3.63 は なぜ ここで 局所 変数 を 欲しがる の 
か を 扱います。 


十 
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最初に 級数の 加数 （符号が 交互に 代わる 奇数の 逆数） のス ト リ 一ムを 生成し ま 

す。 次に （； Exercise  3.55©  partial  一 sums 手 fec^a: 用いて より 多く の 項の 禾 口の ス 卜 
リーム を 取り、 結果 を 4 倍し ます。 


^define    (pi-summands  n) 

、 cons — stream   、l l . 0  n; 

( stream-map  -   (pi-summands    (+  n  2))))) 
(define  pi-stream 

( scale-stream    (partial-sums    (pi-summands 1) ) 4) ) 

(display- stream  pi-stream) 

4- 

2.666666666666667 

3.466666666666667 

2.8952380952380956 

3.3396825396825403 

2.9760461760461765 

3 . 2837384837384844 

3.017071817071818 

これ はより 良い TT の 近似値の ストリーム を 提供し ます。 しかし、 近似値の 収束 

はとても 遅いです。 列の 8 個の 項 は 7T の 値 を 3.284 から 3.017 の 間に 束縛され 
ます。 

今の所、 状態の ス ト リーム を 使用す る 取り組み は 状態 変数 を 更新す る 物 か 
ら 大きく は 異なり ません。 しかし ストリーム は ある 面白い トリ ックを 行う 機会 
を 提供し ます。 例えば、 近似値の 列 を、 同じ 値に、 ただしより 速く 収束す る 列 
に 変換す る sequence  accelerator (列 ァクセ ラレータ） を 用いて ストリーム を 変 
換 する ことができます。 

18 世紀の スイスの 数学者 Leonhard  Euler (レオン ハル ト オイラー） による そ 
のよう な ァクセ ラレータの 1 つ は 交 項 級数 （符号 を 互い違いに する 項の 列） の 
部分 和で ある 列とう まく 働きます。 オイラーの 手法に おいて は、 もし S„ が 元 
の 和の 列の n 番目の 項であるなら、 加速され た 列 は 以下の 項 を 持ちます。 

S  、Jn  +  l ― On) 

— 1 ― 2on  + リ n+1 

従って 元の 列が 値の ス ト リームと して 表現 されるならば、 変換され た 列 は 以下 
によ リ 与えられる。 
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(define    (euler -" transform  s ) 

(let    "sO    (stream - ref   s   0))  ；  Sn-i 

(si    (stream - ref   s 1))  ； Sn 

( s2   ( stream-ref   s   2)  )  )  ；  Sn-{-i 

( cons- stream    (-   s2   (/    ( square  (-   s2  si)) 

(+  sO    (*  - 2   si)  s2))) 

(euler -" transform  ( stream-cdr  s 

オイラー による 加速 を 私達の 7T の 近似値の 列 を 用いて 実演で きます。 

display- stream    (euler-transiorm  pi - stream)  ノ 
3.166666666666667 
3. 1 333333333333337 
3. 1452380952380956 
3.13968253968254 
3. 1427128427128435 
3.1408813408813416 
3.142071817071818 
3. 1412548236077655 


さらに 良くなる よう、 加速され た 列 を 加速で き、 そして 再帰 的に それの 加速 を 
繰り返す ことが 可能です。 すなわち、 ストリームの ストリーム ひひ Weaw (タブ 口 
-) と 呼ぶ 構造） を 作り、 その 中で は 各 ストリーム は 1 つ 前の 変換です。 

dei ine    (make-taoleau  transform  s ； 
( cons-stream  s    (make -tableau  transform    (transform  s ) ) ) ) 

タブ 口一 は 以下の 形 を 取り ます。 

S00      Sol S02      S03      S〇4      ■  •  ■ 
SlO      Sll 512      S13      ■  •  ■ 
S20      S21 S22 … 

最後に タブ 口一 の 各行の 最初の 項 を 取る ことで 列 を 形成し ます。 

、deiine    (acce 丄 erated - sequence   transiorm  s) 

stream-map   stream-car     make -tableau  transform  s  ; ) ) 

7T の 列の こ の 種の "超 加速" を 実演す る こ と がで きます。 
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(display- stream 
( accelerated- sequence   euler-transform  pi-stream) ) 

4- 

3 . 166666666666667 
3.142105263157895 
3 . 141599357319005 
3. 1415927140337785 
3. 1415926539752927 
3 . 141592653591 1 765 
3.141592653589778 

結果 は 感動 的です。 列の 8 つの 項 を 得る ことで 7T の 小数点 以下 14 桁の 正しい 
値が もたらせられ ます。 もし 元の 7T の 列の み を 使用したなら、 1013 の オーダー 

の 演算 をす る 必要が （すなわち 列の 個々 の 項が 1(T13 よ リも 小さ くなる まで + 

分に 長く 展開す る 必要が） 同じ 程度の 正確さ を 得る ために は 必要です ！ 

これらの 加速 テクニック をス ト リーム を 用いずに 実装す る こと もで きまし 
た。 しかし ストリーム による 定式化 はとり わけ エレガントで 便利です。 状態の 
列 全体が 統一され た 命令の 集合に よ り 操作 可能な データ 構造と して 使用で きる 
からです。 

Exercise  3.DJ:  Louis  Reasoner  (i なせ sqrt-stream 手 ®e カミ以 ドの 

よ り 簡単な 方法で、 局所 変数 guesses 無しで 実装され ていないの 
か 尋ねた。 

(define    (,  sqrt-stream  x) 

( cons-  stream 1.0   (,  stream-map 

(lambda    (guess ) 

( sqrt-improve   guess  x) ) 
(sqrt-stream  x) ) ) ) 

Alyssa  P.  Hacker が 問題の 手続の この 版 は 冗長な 演算 を 行うた め、 
かな リ非 効率で あるから と 答えた。 Alyssa の 答 を 説明せ よ。 もし 
delay の 実装が memo-proc  (Section  3.5.1) で 提供され た 最適化 を 
用いずに （lambda  ()  <exp>) のみ を 使用したならば 2 つの 版の 間 
に 依然として 効率 上の 違い は 存在す るだろう か？ 

Exercise  3.64: 引数と して スト リ ームと 許容 値の 数値 を 取る 手続 
stream-limit を 書け。 差の 絶対値が 許容 値 未満で ある 2 つの 連続 
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65Section  2.2.3 にも ある 通り、 私達 は 整数の ペア を Lisp の ペアで はなく、 リストに て 
表現し ます。 


する 要素 を 見つける まで ス ト リーム を 検査し、 その 2 つの 要素の 2 
番目 を 返す。 これ を 用いて 与えられた 許容誤差 以内の 平方根 を 求 
める ことができ るだろう。 

(define    (,  sqrt  x  tolerance) 

( stream-limit に sqrt — stream  x)    to 丄 erance リ) 

Exercise  3.65: 以下の 級数 を 用いて、 
In  2  = 1 — 

n に対して 上で 行った のと 同様に、 2 の 自然対数の 近似値 を 3 種の 
近似値の 列 を 求めよ。 これらの 列 は どれ だ け 早 く 収束す るか？ 


ペアの 無限 ス 卜 リーム 

Section2.2.3 において 列 パラダイムが どのように 伝統的な 入れ子 ループ を 
ペアの 列 上に 定義され た 手続と して 扱う かにつ いて 学びました。 もし この テク 
ニック を 無限 ストリームに 対しても 一般化 すれば 簡単 に は 繰 り 返しと して は 表 
現されない プログラム を 書く ことができます。 なぜなら "ループ" を 無限集合 
の 範囲に も 渡らせなければ なり ません。 

例えば Section  2.2.3 の prime-sum-pairs 手続 を 一般化して、 整数 全ての ぺ 
了  (i,j)、 但し i  ^  j で i  +  j が 素数で ある 場合の ス ト リーム を 生成し ます。 もし 
int-pairs 力" ^  j における 全ての 整数の ペア （ん j) の 列で あるの ならば、 私達 
が 必要と する ス ト リーム は 単純に 以下の ように 定義され ます。 65 

(stream-f liter 

lambda   (pair  ； に prime 了    (+    (  car  pair)    v.  cadr  Dair  ) ；)) 
int-pairs ) 

すると 問題 は int-pairs ス トリ 一ムを 生成す る ことになります。 よ り 一般的に 
は、 2 つの ストリーム、 5(=(&) と ァ=(乃'） を 持って いると した 場合に、 無限 
の 長方形の 配列 を 想像 してみ て 下さい。 

(%，7\)  (50,T2)  ... 
(51!,  Ti) (5i,T2) … 
(52，7\)    (S2,T2)  ... 


十 

1 14 

1 13 

1 12 


，o 1 2 

^  s  s 
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配列 内の、 対角線 上 かその 上部の 全ての ペア を 含む ス ト リ ームを 生成した いと 
考えます。 つまり、 以下の ペアです。 


{So,  To)    (So,^)  (S0,T2) 

(s^n)  (Si,r2) 

(S2,T2) 


(もし s と r の 両方 を 整数の ス ト リームと して 取るなら、 これが 望んだ ス ト リ 

一 ム int-cairs です。 I 

一般的な ペアの ストリーム を （pairs  S  T) と 呼び、 それが 3 つの 部分から 

組み立てられて いると 考えます。 ペア （s0,r0)、 最初の 行の 残りの ペア、 残リ 

の ペアです。 66 


(So,  T0) 

(50,T!) 

(S0,T2)  ... 

(5i,r!) 

(Si,T2)  ... 

(S2,T2)  ... 

この 分解の 3 つ 目の 断片 （最初の 行に ない ペア） は （再帰 的に） （stream-cdr  S) 
と （ stream- cdr  T) から 形成され る ことに 注意して 下さい。 また 2 番目の 断片 
(最初の 行の 残り） は 以下に より 求められます。 

^  stream-map    、丄 ambda   、x) ( list    ^stream-car  s;   x) ) 
( stream-cdr  t ) ) 

従って 私達の ペアの ス ト リーム は 以下に より 形成で きます。 

dei ine    (pairs   s  t ； 
( cons-stream 
(list    ( stream-car   s )    ( stream-car  t ) ) 
( {combine-insome-way) 

( stream-map    (lambda   (x) ( list    ( stream-car   s)   x) ) 

( stream-cdr  t ) ) 
(pairs    ( stream-cdr   s )    ( stream-cdr  t ) ) ) ) ) 

手続 を 完成させる ために は、 2 つの 内部 ス ト リ ームを 接続す る 何ら かの 方法 を 
選択せ ねばな リ ません。 アイデアの 1 つ は Section  2.2.1 の append 手続の 類似 ス 
ト リーム を 用いる 方法です。 

66 なぜ 私達が 分解 を 選ぶ のかに ついての 見識に ついて は Exercise  3.68 を 参照して 下さ 
い。 
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(define    ( stream -append  si s2 ) 
(if    ( stream-null?  si) 
s2 

( cons-stream    ( stream-car  si) 

( stream-append    ( stream-cdr   si) s2 ) ) ) ) 

しかし、 これ は 無限 ストリームに は 不適切です。 なぜならば これ は 最初の スト 

リームからの 要素 を 全て、 2 つ 目の ストリームとの 合併 前に 取ります。 具体的 
に は、 もし 全ての 正の 整数の ペア を 以下の ようにして 生成しょう とすると、 

に" pairs   integers   integers ) 

結果の ス ト リーム は 最初に 1 番目の 整数が 1 の 場合の 全ての ペア を 通して 実行 
しょうと します。 そして それ故に 1 番目の 整数が 他の 値の ペア を 全く 生成す る 
ことができません。 

無限 ス ト リーム を 扱うた めに は、 プログラム を 十分に 長く 実行したならば 
全ての 要素が いっか は 得られる こと を 保証す る 組み合わせの 順 を 工夫す る 必要 

が あ リ ます。 これ を 達成す る 洗練され た 方法 は 以下の interleave (相互 配置) 
手続 を 用います。 67 

、deiine    ( interleave   si s2 ノ 
if    (  stream - im 丄 17  si) 
s2 

( cons-stream    ( stream-car  si) 

( interleave   s2    ( stream-cdr  si))))) 

interleave は 2 つの ス ト リ 一ム から 交代に 要素 を 得る ため、 2 つ 目の ス トリ一 
ムの各 要素が いっか は 相互 配置 ス ト リ 一ムへ 入る ことが、 例え 最初の ス トリ一 
ムが 無限で も わかり ます。 

従って 要求され た ペアの ス ト リーム を 以下の ように 生成で きます。 

dei ine    (pairs   s  t ； 
( cons-stream 
(list    ( stream-car  s )    ( stream-car  t ) ) 


67 組み合わせの 順に 要求され た 属性 を 正しく 上げる と 次に よう にな リ ます。 2 つの 引数 
を 取る 関数が 必須で あり、 最初の ス ト リームの 要素 i と 2 つ 目の ス ト リ 一ムの 要素 j に 
対応す る ペア は 出 カス ト リ 一ムの 番目 と して 現れます。 interleave を 用いて こ 
れを 達成す る ト リ ック は、 KRC 言語に これ を 採用した David  Turner により 示され ま し 
た。 (Turner  1981) 
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( interleave 

( stream-map    ( lambda   (x) (list    (stream-car  s)   x) ) 

( stream - cdr  t ) ) 
(pairs    ( stream- cdr   s)    ( stream-cdr  t  ) ) ) ) ) 

Exercise  3.66: ス トリ 一 ム (pairs  integers  integers) を E 式' 験せ 

よ。 pairs がス ト リ 一ム 内に 配置す る 順につ いて 全体 的な コメント 
を 行え。 例えば ペア （1, 100) の 前に はおよ そ どれ だけの 数の ペアが 
先行す るか？  （99，  100) と （100,  100) の 場合に ついても 答えよ。 （も 
し 正確な 数学 上の 説明が できるなら、 なおさら 良い。 しかし 行き 
詰まった と 感じる のなら ばよ リ 程度 的な 回答 を 気楽に 上げて 欲し 
い。 ） 

Exercise  3.x>l:  pairs 手& を变更 し、 、pairs  integers  integers) 

が 全ての 整数の ペア （ん を ひ 仑 j という 条件 無しで） 生成す るよ 
うにせ よ。 ヒント ： 追加の ストリーム を 混ぜ合わせる 必要が ある。 

Exercise  3.68:  Louis  Reasoner は 3 つの 部分から ペア ス ト リ ーム 
を 構築す る こと は 不必要に 複雑な ので はない かと 考えた。 最初の 

行の ペア （s^ro) を 残りの ペアから 分離す る 代わ リ に、 以下の よ 
うに 最初の 行 全体 を 用いて 行う こと を 提案した。 


(define ゆ airs   s  t ) 
( interleave 
V  stream-map    ( lambda 

t) 

(pairs    ( stream-cdr  s 


(x) ( list    ( stream- car   s)   x ) ) 


) ( stream-cdr  t ) ) ) ) 


これ はう まく  ff  くだろ つ 力、？  (pairs  integers  integers) を Louis 
の pairs の 定義 を 用いて 評価した 場合に 何が 起こる か 考えよ。 

Exercise  3.69:  3 つの 無限 ス ト リーム、 S,  ひ を 取り、 三つ組 
{Si,Tj,Uk) のス ト リーム を 生成す る 手続 triples を 書け。 但し 
i<j<k とする。 triples を 用いて 全ての 正の 整数の ピタゴ ラス 
数の 3 つ 組の ストリーム を 生成せ よ。 すなわち 三つ組 （i,j'，fc) は 
i  <  j、 かつ i2  +  j2  =  k2 である。 

Exercise  3.70: ァ ド ホック （その 場 その 場） な 相互 配置 処理の 結果 

の 順で はなく、 ペアが 何ら かの 便利な 順で 現れる ス ト リ 一 ムを生 
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成で きれば 便利だろう。 も し 整数の 1 つの ペアが 別の ペアよ リも 

"小さい" と言える 方法 を 定義で きるならば Exercise  3.56 の merge 
手続に 似た テクニック を 用いる ことができる。 これ を 行う 1 つの 
方法 は" 重み 関数" を 定義し W(ii,ji) く  W(i2,j2) である 
なら （んム ） は &2，j2) 未満で ある と 取り決める。 merge に 似た 手 
merge—weighted を 書け。 たた し merge—weighted ほ 追 カロの 弓 I 数 
weight を 取り、 weight は ペアの 重み を 計る 手続で あり マージされ 
た 結果の ス ト リームの 中で どの 要素が 現れるべき かの 順 を 決定す 
るのに 利用され る。 68 重み 関数 を 計算す る 手続と 一緒に これ を 用 
いて、 pairs を 2 つの スト リ ームを 取る 手続 weighted-pairs に 一 
般 化し、 重みに 従った 順の ペアの ストリーム を 生成す る。 作成し 
た 手続 を 用いて 以下 を 生成せ よ。 

a 全ての 正の 整数の ペア ひ， j) のス ト リーム を i  ^  の 条件で、 
禾ロ  i  +  j に 従った 順で 生成す る 

b 全ての 正の 整数の ペア （i,j) のス ト リ ームを i  <  j かつ i と 
mathj が どち らも 2,  3,  5 で 割 リ 切れない 条件で、 和 2i+3j+5 み 
に 従う 順序で 生成す る 

Exercise  3.71: 2 つの 立方 数の 和で 表す 方法が 複数 ある 数 は 時 

折 Ramanujan  numbers 、ラマヌジャン 数) と 呼ばれる。 これ は 数学 
者 Srinivasa  Ramanujan (シ ユリ ニヴ アーサ • ラマヌジャン） に 敬 
意 を 表して いる。 69 ペアの 順序 有り スト リーム は これらの 数 を 計 
算 する 問題に 対し 洗練され た 解法 を 提供す る。 2 つの 立方 数の 和 
として 表現す る 方法が 2 つ ある 数 を 見付ける ために は、 i3  +  f の 
和に 従い 重み 付けられた 整数の ペア （i,j) のス ト リーム を 生成し 
(Exercise  3.70 参照)、 次に ス ト リ ーム から 同じ 重み を 持つ 連続した 

68 ペアの 重みが ペアの 配列の 中で 行に 沿って 外へ 動く 力 \ 列に 沿って 下った 場合に 増 
える ように 重み 関数に 対して 要求す るだろう。 

69G.  H.  Hardy (ゴッ ド フレイ • ハロルド • ハーディ） による ラマヌジャンの 死亡 告知 
(Hardy  1921) から 引用 すれば、 "Mr.  Littlewood こそが' 全ての 自然数が 彼の 友達で あつ 
た' と 述べられた （私が 信じる） 人 だ。 私 は 彼が Putney で 病気で 倒れた 時に 1 度 会いに 
行った。 その 時 私 は車番 1729 の タクシーに乗 つたので とてもつ まらない 数に 見えた と 
告げ、 それが 良くない 前触れで ない こと を 祈る と 伝えた。 'いいえ' と 彼が 答えた。 'それ 
はとても 面白い 数です。 それ は 2 つの 立方 数の 和に ょリ 表現す る 方法が 2 つ 有る 最小の 
数です'" ラマヌジャン 数 を 生成す る 重み 付けられた ペアの ト リ ックは Charles  Leiserson 
により 私達に 示されました。 
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ペア を 探す だけで 良い。 ラマヌジャン 数 を 生成す る 手続 を 書け。 そ 

のよう な 最初の 数 は 1,729 である。 次の 5 つ は 何 か？ 

Exercise  3.72:  Exercise  3.71 と 同様な 方法で 2 つの 平方 数の 和と し 

て 3 つの 異なる 方法で 書け る 全ての 数の ス ト リ ームを 生成せ よ。 
(それらが どのよう にして、 そう 書け るの か 示せ)。 

信号と しての ス 卜 リーム 

ス トリ ームの 議論 を 信号 処理 システム における "信号" の 計算 可能な 同類で 
あると 説明す る ことから 始めました。 実際に、 ストリーム を 用いて 信号 処理 シ 
ス テム を とても 直接的な 方法で モデル 化する こ と がで き、 連続す る 時間 区間の 
信号の 値をス ト リ ームの 連続す る 要素と して 表現し ます。 例えば integrator (積 
分 器)、 つま リ srnnmer (アナログ 加算器） を 実装し、 入力 ストリーム i  = (れ） と 
初期値 C、 小さな 増分 dt に 対し、 以下の 合計 を 累算し、 

Si  =  C*  +  〉  Xndt 

値 S  =  (Si) のス ト リ 一ムを 返します。 以下の integral 手続 は （Section  3.5.2) 
の 整数 ス ト リ 一ムの "暗黙 的な スタイル" の 定義 を 思い出させます。 

^define    ( integral   integrand   initial - va 上 ue  dt ) 
( dei  me  int 

( cons- stream   initial -value 

(add - streams    ( scale-stream   integrand  dt ) 
int))) 

int) 

Figure  3.32 は integral 手続に 相当す る 信号 処理 システムの 絵です。 入力 スト 
リーム は^により スケール （拡大） され 加算器 を 通して 渡され、 その 出力 は 同 
じ 加算器に 戻されます。 int の 定義 内の 自己 参照が 図で は 加算器の 出力が 入力 
の 1 つに 接続され る フィードバック ループに よ リ 反映され ています。 

Exercise  3.73: 電子回路 を スト リ ームを 用いて 一連の 時間の 時系列 

電流 や 電圧の 値 を 表す ことで モデル 化で きる。 例えば、 抵抗 値 7? 
の 抵抗と 静電容量 C の コンデンサから 成る 7?C  circuit(RC 回路） 
を 連続して 持って いると する。 入力され た 電流 i に対する 回路の 
電圧 レスポンス v は Figure  3.33 の 式に より 決定し、 その 構造 は 添 
付の 信号 フロー 図に より 示される。 
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initial-value 


input 


scale :  dt 


integral 


Figure  3.32: 信号 処理 システム と して 見た integral 手続 
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V 


Figure  3.33:  RC 回路と 対応す る 信号 処理 図 


この 回路 を モデル 化する 手続 RC を 書け。 RC は 入力 ヒして R,C,dt 
を 取り、 手続 を 返さねば ならない。 返り 値の 手続 は 入力と して 電流 
i を 表す ス ト リームと コンデンサの 初期 電圧 "0 を 取リ、 出力と し 
て 電圧 w のス ト リーム を 生成す る。 例えば RC を 用いて 7? が 5[fi]、 
C 力 《1[F]、 タイム ステップが 0.5 秒の RC 回路 を （define  RC1 (RC 
5 1 0.5)) を 評価す る ことで モデル 化で きなければ ならない。 こ 
れは RC1 を 電流の 時系列 を 表す ス ト リームと コ ンデン ザの 初期 電 
圧 を 取り 電圧の 出 カス ト リーム を 生成す る。 

Exercise  3.74:  Alyssa  P.  Hacker は 物理 センサから 来る 信号 を 処理 
する システム を 設計して いる。 彼女が 作 リ た い 重要な 機能 は 入力 
信号の2 ero  crossin が (ゼロ 交差） を 記録す る 信号で ある。 結果の 信 
号 は 入力信号が 負から 正に 変わった 時に +1、 正から 負に 変わった 
時に— 1、 その他の 場合 は 0 である。 （入力が 0 の 場合の 符号 は 正 
とする)。 例え ば 典型的な 入力信号 とその 関連す る ゼロ 交差 信号 は 
以下の ようになる。 

... 1 2 1.5 1 0.5  -0.1 -2  -3  -2  -0.5   0.2  3  4 
...0  0     0     0     0       -1 0     0     0       0 1 0  0  ... 
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Alyssa の システム では センサからの 信号 はス ト リ ーム sense-data 
で 表され、 ストリーム zero-crossings が 関連す る ゼロ 交差の ス ト 
リ 一 ムで ある。 Alyssa  (3~取初 に 中 lm  sign-change-detector  書 
いた。 これ は 2 つの 値 を 引数と して 取り 値の 符号 を 比べ 値に 対応 
した 0, 1,-1 を 生成す る。 次に ゼロ 交差 ストリーム を 以下の ように 
構築した。 

、 def ine    (make-zero- crossings 

input-stream   last-value ) 
( cons- stream 
(sign-change-detector 
( stream- car   input- stream ) 
last-value ) 
(make-zero-crossings 
( stream- cdr   input- stream ) 
( stream- car   input -stream)))) 
( def ine   zero - crossings 

(make - zero - crossings   sense-data  0) ) 

Alyssa の 上司、 Eva  Lu  Ator が 歩み寄り、 この プログラム は 以下 
の、 Exercise  3.50 の stream-map を 一般化した 版 を 使用した 物と ほ 
ぼ 同じで あると 提案した。 

(, def  ine   zero -crossings 

stream-map   s ign-  change-dete  ctor 
sense-data 

(expression) ) ) 

(expression) で 示された 部分 を 与えて プログラム を 完成 させよ。 

Exercise  3.75: 残念な こと に、 Exercise  3.74 の Alyssa の ゼロ 交差 判 
別 器 は 十分で ない こ と が 証明 さ れた。 セ ンサか ら のノィ ズの 多い 信 
号が 誤った ゼロ 交差へ と 導く ためで ある。 ハー ドウ エアの スぺシ 
ャ リスト、 Lem  E.  Tweakit は Alyssa に ゼロ 交差 を 試験す る 前に ノ 
ィズを 排除す るた めに 信号 を 滑らかに する こと を 提案した。 Alyssa 
は 彼の ァ ド バイス を 受け入れ、 センサの データの 各 値 を 前の 値と 
の 平均 を 取る こと で 構築 された 信号から ゼロ 交差 を 抽出す る こと 
を 決めた。 彼女 は 問題 を 彼女の アシスタント、 Louis  Reasoner に 
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伝えた。 彼 は その 考え を 実装し ようと 試み、 Alyssa の プログラム 
を 以下の ように 変更した。 


def ine    (make-zero- crossings 

input-stream   last-value ； 
(let    ( ( avpt    (/    (+    ( stream-car   input -stream) 
last-value ) 

2))) 

( cons-stream 
( sign-change-detector   avpt   last-value ) 
(make-zero-crossings 
( stream-cdr   input- stream)  avpt)))) 

これ は Alyssa の 計画 を 正しく 実装 していない。 Louis が 入れて し 
まった バグ を 見つけ プログラムの 構造 を 変更せ ずに 直せ。 （ヒント ： 
make-zero-crossings の 弓 I 数の 数 を 増やす 必要 力 《ある。 ) 

Exercise  3.76:  Eva  Lu  Ator は Exercise  3.75 における Louis の 取り 
組み方 を 批判 し た。 彼が 書いた プログラム は モジュラ 化されて い 
ない。 滑らかに する 操作と ゼロ 交差 抽出が 混ざって しまって いる 
ためで ある。 例えば 抽出 器 は Alyssa が 入力信号 を 調整す るより 良 
い 手段 を 見つければ 変更す る 必要が 無かった。 Louis を 手助けし、 
入力と して ス ト リーム を 取り、 2 つの 連続す る 入 カス ト リームの 要 
素の 平均 を 要素と する ス ト リーム を 生成す る 手続 smooth を 書け。 
次に smooth を ゼロ 交差 判定 機 を 実装す るた めの コンポーネントと 
してより モジュラー 化 スタイル にて 用いよ。 


3.5.4 ストリームと 遅延 評価 

先の 節の 終わりの integral 手続 は どのように ス ト リーム を 用いて フィー 
ド バック ループ を 持つ 信号 処理 シ ス テム を モデル 化で きる か を 示して います。 
Figure  3.32 に 示される 加算器の フィー ド バック ループ は integral の 内部 ス ト 
リ ーム int がそれ 自身 を 用いて 定義され ている 事実に よ リ モデル 化されて い 
ます。 

v.  def  ine  mt 
、 cons-stream 
initial - 丄 ue 
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上 


map:  f 

dy 

■  、 
integral 

y 

Figure  3.34: 方程式 dy/dt  =  f(y) を 解く  "アナログ 演算 回路" 


(add - streams    ( scale-stream   integrand  dt ) 
int))) 

暗黙 的 定義の ような 物 を 扱う インタ プリ タの 能力 は cons-stream に 組 込まれ 
ている delay に 依存して いる。 この delay 無しで は インタプリタ は、 int が 
既に 定義され ている こと を 要件と する cons-stream への 引数 両方 を 評価す る 
前に は int を 構築す る ことができませんでした。 一般的に、 delay はス トリ 
ームを 用いて ループ を 含む 信号 処理 システム を モデル 化する のに 不可欠です。 
delay 無しで は 任意の 信号 処理 コンポ ーネン ト への 入力が、 出力 を 生成す る 前 
に 完全に 評価され るよう に、 私達の モデルが 定式化され なければ なり ません。 

残念な ことに、 ループ を 伴う システムの ス ト リーム モデル は cons-stream 
により 提供され る "隠れた" delay を 越えて、 delay の 使用 を 要求し ます。 例え 
ば Figure  3.34 は / が 与えられた 関数で ある 場合に 微分方程式 信号 dy/dt  =  f{y) 
を 解く 処理 システム を 示して います。 図 は/を その 入力信号に 適用す る マツ ピ 
ング コンポーネント （map) を 示して います。 map は フィードバック ループの 
中に 積分 器へ 向けて 実際に そのような 方程式 を 解く ために 利用され ている アナ 
口 グ 計算機 回路に とても 似た 作法で 接続 されて います。 

y に 対し 初期値 J/0 を 与えられた とした 時、 この システム を 以下の 手続 を 用 
いて モデル 化 を 試みる ことができる でしよう。 

(, def ine   (solve  f  yO  dt ) 

( del ine  y   i, integral  dy  yO  dt)) 
( del ine  dy    (  stream-map  f  y ) ) 

y) 

この 手続 はう まく 行きません。 solve の 最初の 行に て integral の 呼 出 は 入力 
dy が 定義され てること を 要求し ます。 これ は solve の 二 行 目 ま で は 起 こ り 得 
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ません。 

一方で、 私達の 定義の 意図 も つじつまが 合いません。 原理 上 は、 y スト リー 
ムを dy を 知らずに 生成し 始める ことができます。 再に integral や 他の 多く 
のス ト リ ーム 命令 は cons-stream に、 引数に 関する 部分的な 情報 を 与え られた 
だ け で 応答の 部分 を 生成で きる という 点で 似た 性質 を 持って います。 integral 
では 出 カス ト リームの 最初の 要素 は initial-value で 与えられます。 従って 出 
カス ト リームの 最初の 要素 を 被 積分 関数 dy を 評価せ ずに 生成す る ことができ 
ます。 一度 y の 最初の 要素 を 知る ことができれば、 solve の 2 行 目の stream- 
map  は  dy  の 最初の 要素  を  生成す  る  仕事  を  開始で  きます。  これにより y の 次の 
要素 を 生成す る こと もで き、 以下 繰り返し となります。 

この 考えの 利点 を 得る ために、 integral を 再定義し、 被 積分 関数 スト リー 
ムカ 《 delayed  argMmen 力 (遅延 引数) を 要求す る ようにし ます。 Integral は 出力 
ス トリ ームの 最初の 要素よ リ 多く を 生成す る こ と を 要求され た 時の み、 被 積分 
関数 を force し 評価させます。 

V def ine    ( integral de 丄 ayed - integrand   initial - value   dt ) 
( dei ine  int 
( cons- stream 
initial-value 

( let    ( ( integrand   (force   delayed- integrand) ) ) 
( add- streams    ( s cale- stream   integrand  dt) 
int)))) 

int) 

これで solve 手続の 実装が、 y の 定義 内で dy を 遅延 させれば できます。 70 

、 def  ine    (solve  f  yO  dt ； 

( def  ine  y   ( integral    (delay  dy )    yO  dt ) ) 
( dei ine  dy    ( stream-map  f  y ) ) 

y) 

全体 的に、 integral を 呼び出す 者 は 今では 被 積分 関数 を delay しなければ な 
リ ません。 e た 2.718 の 近似値 を 微分方程式 dj//dt  =  y に対する 解が y  = 1 の 場 
合の 値 を 初期 条件 リ(0) = 1 で 求める ことで solve 手続が う まく 働く こと を 実 
演 できます。 

70 この 手続 は 全ての Scheme 実装で 動く ことが 保証され ていません。 とはいえ、 任意の 
実装に 対して 簡単な 変更で 動作し ます。 問題 は Scheme 実装の 内部 定義の 扱い方に 関係 
が あ リ ます。 （Section  4.1.6 参照;） 
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(stream - ref    ( solve    (lambda   (y)   y) 1 0.001)  1000) 
2.716924 

Exercise  3.77: 上で 使用され た integral 手続 は Section  3.5.2 の 整 
数 無限 ストリームの" 暗示 的" 定義 に似てい る。 代替 的に、 より 
integers-start  ing-from に 似た integral の 疋義ヒ 与え こと 力、 

できない。 （これ も Section  3.5.2 参照） 

、def ine    ( integral   integrand  initial-value  dt ) 
( cons-stream 
initial-value 

(if    ( stream-null?  integrand) 
the - empty - stream 

C  integral C stream-cdr  integrand) 

(+    (*  dt    ( stream-car   integrand ) ) 

init  ial- value ) 
dt)))) 

ループ を 持つ システム 内で 利用され た 場合、 この 手続 は integral 
の 元の 版が 抱えた 問題と 同じ 問題 を 持つ。 手続 を 変更して integrand 
に 対し 遅延され た 引数 を 要求す るよう にし、 それ故に 上で 示され 
たように solve 手続で 利用で きる よう にせよ。 

Exercise  3.78: 単項 二次 線形 微分方程式 を 学ぶ ための 信号 処理 シス 

テムの 設計 問題に ついて 考えよ。 

y を モデル 化する 出 カス ト リ ームは ループ を 含む ネッ ト ワークに 
より 生成され る。 これ は d2j//dt2 の 値が お と 勿/^ の 値に 依存し、 
これらの 両方が d2y/dt2 を 積分す る ことによ リ 決定され るからで 
ある。 Figure  3.35 に 示される 図の 符号化 を 行いたい。 定数 a,  b,  dt 
と 初期値、 2 /に対する 如 と dj/o を 引数と して 取り、 y の 一連の 値 
のス ト リ ームを 生成す る 手続 solve-2nd を 書け。 

Exercise  3.79:  Exercise  3.78 の solve- 2nd 手続 を 一般化し、 一般的 
な 二次 微分方程式 d2j//dt2  =  f(dy/dt,y) を 解く のに 使用で きる よ 
うにせ よ。 
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dy0  y0 


ddy 

integral 

dy 

integral 

y 

~ C^add 

scale :  a 
scale :  b 

Figure  3.35:  二次 線形 微分方程式の 解の ための 信号 フロー 図 


Exercise  3.80:  series  RLC  circwi 《連続 RLC 回路） は 抵抗、 コンデ 

ンサ、 イン ダ クタ ンスカ figure  3.36 に 示される ように 連結され て 
いる。 J?, 丄， C が 抵抗、 イン ダク タン ス、 コンデンサ である 場合、 3 
つの コンポ ーネン ト に対する 電圧 0) と 電流 ひ） の 間の 関係 は 以下 
の 方程式に より 説明され る。 

. „  T  dih  .  „dvc 

at  at 

そして 回路の 接続が 以下の 関係 を 決定す る。 

in  ~  ih  =  —ic  ,  vc  =  vl  +  vr  . 

これらの 方程式の 組み合わせ は （コンデンサに 渡る 電圧 uc と イン 
ダク タ ンスの 電流 ^にて まと めれば） 回路の 状態が 以下の 微分 方 
程 式の ペアで 説明され る こと を 示して いる。 

avc         il  dih       1  R  . 

~dF  ^~c'        ~dt    ：  lvc~  1lL' 

この 微分方程式の システム を 表す 信号 フロー 図 は Figure  3.37 に 示 
される。 
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Figure  3.36: 連続 RLC 回路 


引数と して 回路の パラメタ R,  L,  C と 時間の 増分 dt を 取る 手続 
RLC を 書け。 ある 意味で は Exercise  3.73 の RC 手続の それ に似てい 
るが、 RLC は 状態 変数の 初期値 "c。 と 吐。 を 取り、 （cons を 用いて） 
vc と iL の 状態の ス ト リ ームの ペア を 生成す る 手続 を 生成せ ねば 
ならない。 RLC を 用いて、 連結 RLC 回路の 振舞 を モデル 化する ス 
ト リームの ペア を 生成せ よ。 ただし R  = C  =  0.2[F],  L  = 1 
henry,  dt  =  0.1[s],  soreni 初期値 iLn  =  0[A],  vCo  = 10[V] とする。 


正規 順 評価 

この 節の 例 は 明示的な delay と force の 使用が どのよう にして 大きな プロ 
グ ラミン グの 柔軟性 を 与える かにつ いて 説明し ます。 しかし 同じ 例が また この 
こ と が どの よ う にして 私達の プロ グラ ム をより 複雑に する かにつ いても 示 し ま 
す。 例と して 私達の 新しい integral 手続 は ループ を 伴う システム を モデル 化 
する ための 力 を 与えます。 しかし 今では integral が 遅延 化 さ れた被 積分 関数 
と共に 呼び出されなければ ならない こと を 忘れて はなら なくなりました。 そし 
て integral を 使用す る 全ての 手続 はこの ことにつ いて 注意し なければ な リ ま 
せん。 実際に は、 手続の 2 つの 組 を 作りました。 通常の 手続と 遅延 化された 引 
数 を 取る 手続です。 一般的に、 分離され た 手続の 組 を 作る こと は 私達に 分離 さ 
れた高 階 手続の 組 もまた 作る こと を 強います。 71 


71 これ は Pascal の 様な 旧来の 強い 方の 言語が 高 階 手続 を こなす 場合に 持つ 困難 さの 
(Lisp に とって は） 小さ な 反射です。 そのよう な 言語で は プロ グラマ は 必ず 各 手続の 引数 
と 結果の データ 型 を 指定せ ねばな りません。 数値、 論理 値、 配列、 等です。 その 結果と 
して "与えられた 手続 proc を 列の 全ての 要素に map する" ような 抽象化 を stream-map 
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scale ： 1 /L 


integral 


dvr 


、― —― v に 


scale : -1 /C 


scale : -R/L 


Figure  3.37: 連続 RLC 回路の 解の ための 信号 フロー 図 


2 つの 異なる 手続の 組の 必要性 を 防ぐ 1 つの 方法 は 全ての 手続に 対し 遅延 
引数 を 取らせる ことです。 手続に 対する 全ての 引数が 自動的に 遅延 化され、 引 
数が 実際に 必要と される 時 （例 え ば プリミティブ 命令に 要求され た 時） 強制 さ 
れる 評価の モデル を 受け入れる ことができる でしよう。 これ は 私達の 言語 を 正 


のよう な 単一の 高 階 手続に て 表す ことができませんでした。 それ どころ か proc に 対し 
て 指定され るか も しれない 異なる 引数と 結果の データ 型の 組み合わせ 全てに 対して 異な 
る マツ ビング 手続 を 必要と しました。 高 階 手続の 存在に おける "データ 型" の 実用的な 概 
念 を 維持す る こと は 多くの 困難な 問題 を 提起し ました。 この 問題 を 処理す る 1 つの 方法 
は 言語 ML(Gordon  et  al. 1979) によ リ 説明され、 その "多層 データ 型" は データ 型 間の 
高 階 変換の ための テンプレート を 含んで います。 さらに ML の ほとんどの 手続 データ 型 
は 明示的に プログラマ により 宣言され る こと はあり ません。 その代わり に ML は type- 
化/ erencinff( 型 推論） メカニズム を 含み、 環境の 情報 を 用いて 新しく 定義され た 手続の デ 
一 タ型を 推論し ます。 
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規順 評価 を 用いる ように 変形し ます。 これ は 私達が Section  1.1. 5 の 評価の 置換 
モデル を 紹介した 時、 最初に 説明し ました。 正規 順 評価への 変換 は 統一、 洗練 
された 方法で 遅延 評価の 利用 を 簡易 化します。 そして これ はス ト リーム 処理の 
みに ついて 考慮す るの ならば 受け入れるべき 自然な 戦略です。 Section  4. 2 では 
評価 機 を 学んだ 後に、 私達の 言語 を どのよう にして このよう に 変形す るの かに 
ついて 学びます。 残念な ことに 手続 呼 出に 遅延 を 導入す る こと はィ ベン ト 順に 
依存す る プログラム を 設計す る 能力 に 混乱 を もたらします。 例え ば 代入 を 利用 
する、 データ を 変更す る、 入出力 を 実行す る プログラムです。 例え 1 つの ccms- 
stream 内の delay でも Exercise  3.51 や Exercise  3.52 で 説明され た 大きな 混乱 
を 招きます。 誰もが 知っている ように、 変更 可能性と 遅延 評価 はプ ログ ラミン 
グ 言語の 中で うまく 混ざりません。 そして これらの 両方 を 一度に 取り扱う 方法 
の 発明 は 活発な 研究領域で す。 

3.5.5 関数 型 プログラムの モジュール 化と オブジェ ク 卜の 
モジュール 化 

Section  3.1. 2 で 学んだ よう に、 代入の 導入の 主な 利点の 1 つ は 巨大 シス テ 
ムの 状態の 一部 を ローカル 変数の 中に カプセル 化、 または" 隠す" ことによ リ 
システムの モジュール 化の 容易 性 を 増す ことができます。 ス トリ 一 ムモジ ユー 

ルは 同等な モジュールの 容易 性 を 代入の 使用 成しに 提供 可能です。 例と して 7T 

の モンテカルロ 推定 を 再 実装して みま しょう。 Section  3.1.2 にて これ をス ト リ 
ーム 処理の 視点から 試しました。 

モ ジ ユール 化 容易 性の 鍵 となる 問題 は、 乱数 生成 器の 内部 状態 を 乱数 を 使 
用す る プログラムから 隠したい と 願った ことです。 手続！ ■and-update から 始め 
ました。 これの 連続す る 値が 私達の 乱数 を 供給し、 そして これ を 乱数 生成 器 を 
作り出す のに 使用し ました。 

dei ine  rand 
、丄 et に、 x  random-mit  ) ； 
( lambda  () 

(set!    x    (rand-uDdate  x; ) 

x))) 

ス ト リームの 定式化に おいて は 乱数 生成 器が 単体で は 存在し ません。 乱数の ス 

ト リ ーム がた だ rand-update を 連続して 呼ぶ ことで 生成され ます。 
(, dei  ine  random-numbers 
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( cons-stream  random - in it 

( stream-map  rand-update   random-numbers ) ) ) 

これ を 用いて 乱数 ス ト リームに おける 連続した ペア 上で 行われた CesMo (チェ 
ザ 口） の 実験の 結果の ス ト リーム を 構築し ます。 

v.  dei ine  cesaro-stream 
(map -successive-pairs 
(lambda   (rl r2)    (=    (gcd  rl r2) 1)) 
random-numbers ) ) 
( dei ine    (map -successive-pairs  f   s ) 
( cons-stream 
(f    ( stream-car  s)    ( stream-car    ( stream-cdr   s ) ) ) 
(map -successive-pairs   f    ( stream-cdr    ( stream-cdr   s ) ) ) ) ) 

cesaro-stream が 次に monte- carlo 手続に 与えられます。 これ は 確率の 推測の 
ス ト リーム を 生成し ます。 すると その 結果 は 7T の 推測 値の ス ト リームへ と 変換 
されます。 この プログラム のこの 版 は 何回 試行 を 行う かの パラメタが 必要 あり 

ません。 よ リ 良い 7T の 推測 値 （よ リ 多く の 試行からの） はより 多くの pi ス トリ 
—ムを 見る ことで 得られます。 

dei  ine    (monte  -  carlo   experiment  -  stream  passed  failed) 
( dei ine    (next  passed  failed) 
( cons-stream 
(/  passed   (+  passed  failed)) 
(monte-carlo 

( stream-cdr   experiment -stream)   passed  failed) ) ) 
、if    ( stream- car   experiment -stream) 
(next    (+  passed 1) failed) 
(next  passed    (+  failed  1)))) 
( dei ine  pi 
( stream-map 
(lambda   (p)    (sqrt    (/  6  p) ) ) 
(monte-carlo   cesaro-stream  0  0))) 

考慮す ベ きモジ ユール 化 容易 性が この 取り 組み方 に は 存在 します。 なぜな ら依 

然として 任意の 実験 を 取り扱う ことが 可能な 一般的な mcmte-carlo 手続 を定 
式 化で きる ためです。 その上、 代入 や ローカル 変数が 存在し ません。 
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Exercise  3.81:  Exercise  3.6 は 乱数 生成 器に 乱数 列の リセット を 許 
可す る ことで" ランダム" な 数の 列 を 繰り返し 生成させる 一般化 
について 議論した。 入 カス ト リームの 要求に 従い 操作す る これと 
同じ 生成 器の ス ト リ ーム 定式化 を 実現せ ょス ト リ ームの 要素が 
generate なら 新し レ 、乱数 を 生成し、 また！ ■eset なら 指定され た 値 
に 列 を リセ ッ ト する ことで 希望の 乱数 列 を 生成す る。 代入 は 使用 
しない こと。 

Exercise  3.82:  Exercise  3.5 の モンテカルロ 積分 をス トリー ムを用 
いて 再度 行え。 ス トリ ーム 版の estimate-integral は 何度 試行 を 

行う の か 伝 える 引数 は 持たない。 その代わり 連続す るより 多くの 
試行 を 基に 推測 値の ス ト リーム を 生成す る。 

時間の 関数 型 プロ グラ ミ ン グ的 視点 

さて、 この 章の 始めに 提起され たォ ブジェク トと 状態の 問題に 戻り 新しい 
光の 下で 調査し ましょう。 私達 は 代入と ミュー タブ ルォ ブジェク トを 導入し 状 
態 を 持つ システムの モデル 化 を 行う プログラムの モジュラー 方式の 構築の ため 
の 仕組み を 提供し ました。 ローカル 状態 変数 を 持つ 計算 オブジェクト を 構築し、 
代入 を 用いて これらの 変数 を 変更し ました。 世界の オブジェ ク トの 一時的な 振 
舞 を 相当す る 計算 ォ ブジ ェクト の 一時的な 振舞に より モ デル 化 しました。 

今まで ス ト リームが 局所 状態 を 持つ オブジェ ク トの モデル 化する 代替 法 を 
提供す る こと を 学んで きました。 何ら かの オブジェ ク トの 局所 状態の ような 変 
化する 数量 を、 連続す る 状態の 時刻 歴を 表現す るス ト リーム を 用いて モデル 化 
できます。 本質的に、 私達 は ストリーム を 用いる ことで 時間 を 明示的に 表現し 
ています。 そうする こと で 私達の シミュレート さ れた 世界の 時間 を 評価の 間 に 
現れる 一連の イベントから 分 断して います。 実際に、 delay の 存在の ため、 モ 
デルの シミュレート された 時間と 評価 中の ィ ベン トの 順の 間に は 何の 関係 も 無 
いでし よ う。 

これらの 2 つの モデル 化の 取り組み 方 を 対比す るた めに、 "銀行の 引き出し 
機" の 実装に ついて 再考して みましょう。 これ は 銀行口座の 残高 を 監視し ます。 
Section  3.1.3 では そのよう な 処理 機の 単純化 された 版 を 実装し ました。 

def ine    (make - simp 丄 1ェ ied-withdraw  balance  ) 
( lambda   ( amount ) 

(set!    balance    (-  balance   amount ) ) 
balance ) ) 
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make-simplified-withdraw への 呼 出 は 計算 オブジェ ク トを 生成し ます。 各 計 
算ォ ブジェク トは 局所 状態 変数 balance を 個別に 持ち、 その オブジェクト を 続 
けて 呼ぶ と balance は 減少し ます。 銀行口座の ユーザが 連続した そのような ォ 
ブジェク ト に対する 入力 を 打ち、 ディスプレイの 画面に 表われる 一連の 返り 値 
を 観察す るの を 想像で きます。 

代替 的に、 引き出し 処理 機 を 入力と して 残高と 引き出す 金額の ス ト リーム 
を 取り 口座の 一連の 残高の ス ト リ ームを 生成す る 手続と して モデル 化する こと 
が 可能です。 

V def ine    ( stream- withdraw  balance   amount -stream) 
( cons-stream 
balance 

( stream -withdraw    (-  balance    ( stream-car   amount-stream) ) 
( stream-cdr   amount- stream ) ) ) ) 

stream-withdraw は 明確な 数学 上の 関数 を 実装し、 関数の 出力 は その 入力の み 
により 完全に 決定し ます。 しかし 入力 amount-stream が ユーザに ょリ 打鍵され 
た 一連の 値の ス ト リームで あり 結果の 残高 ス ト リームが 表示され たと 考えて み 
て 下さい。 すると、 値 を 入力し 結果 を 見て いる ユーザの 視点から は ストリーム 
処理が make-simplif  ied-withdraw に よ リ 作成され たかの よう に、 同 じ 振舞 を 
しています。 しかし ストリーム 版で は 代入が 無く、 局所 状態 変数が 無く、 それ 
故に Section  3.1.3 で 遭遇した 論理的な 困難に 存在し ません。 それに も かかわら 
ず システム は 状態 を 持って います ！ 

これ は 本当に 驚くべき ことです。 stream-withdraw は 明確な 数学 上の 関数 
を 実装し その 振舞 は 代わらな いのに、 ここでの ユーザの 知覚 は システムとの 相 
互 作用の 1 つで あり 変化す る 状態 を 持ちます。 この パラ ドック スを 解決す る 1 
つの 方法 は ユーザの 一時的な 存在が システムに 状態 を 与えて いると 認識す る こ 
とです。 もし ユーザが 相互作用から 一歩 離れて 個々 の 取引で なく、 残高の スト 
リームに 関して 考えれば、 システム は ステートレス （状態が 無く） として 現われ 
るでしょう。 72 

複雑な 処理の ある 部分の 視点から は、 他の 部分 は 時間と 共に 変化す るよう 
に 見えます。 それら は 隠された 時間と 伴に 変化す る 局所 状態 を 持ちます。 もし 
私達が この種の 自然な 分解 を 私達の 世界に おいて （世界の 一部で ある 私達の 視 
点から 見た ままに） 計算機 内の モデル 化した プログラム を 計算機 内の 構造 を 用 
いて 書きたい のなら ば、 関数 型で ない 計算 オブジェクト を 作成し ます。 それら 


72 物理で も 同様に、 私達が 移動 点 を 観察す る 時、 点の 位置 （状態） は 変化して いると 
えます。 しかし、 移動 点の 時空の 世界 線の 視点から は 何の 変化 も 起こって はいません。 
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は 時間と 共に 変化し ます。 状態 を 局所 状態 変数で モデル 化し、 そして 状態の 変 
化 を それら の 変数への 代入 を 用いて モ デル 化 します。 これ を 行う ことによ リ計 
算の 実行時 間 を、 私達が その 一部で ある 世界の 時間の モデルと し、 従って 私達 
は "ォ ブジ ェクト "を 計算機の 中に 得る ことにな リま す。 

オブジェクト を 用いる モデリング は 強力、 かつ 直感的です。 その 理由の 多 
く はこれ が 私達が その 一部で ある 世界との 相互作用の 視点に 合うた めです。 し 
かしこの 章 を 通して 繰り返し 学んで きた 様に、 これらの モデル は 悩ましい ィべ 
ン ト 順の 制約 と と 複数の 処理 間の 同期の 問題 を 提起 します。 これらの 問題 を 

防 ぐ 可 會き性 か ら functional  programming  ton タ リ es (関数 型 プロ グラ ミ ン グ 言語) 
の 開発が 促進 されて きました。 これ は 代入 や 変更 可能な デー タを 提供し ません。 
そのよう な 言語で は 全ての 手続 は 引数の 明確な 数学の 関数 を 実装し、 その 振舞 
は 変化し ません。 関数 型の 取り組み 方 は 並行 システム を 扱う のに とても 魅力的 

です。 73 

一方で、 もしき つちり と 見て みれば 時間に 関係す る 問題が 関数 型の モデル 
にも 潜んで いる ことが 見えます。 あ る 特に 厄介な 領域が ィ ン タラ ク ティ ブシ ス 
テム （応答 システム） を 設計したい 時に、 特に 独立した 要素の 間で 相互作用 を 
行う システム において 提起され ます。 例と して、 もう 1 度 連結 銀行口座 を 許可 
する 銀行 システム について 考えて みましょう。 代入と オブジェ ク トを 用いる 保 
守 的な システム では、 Peter と Paul が 口座 を 共有して いると いう 事実 を モデル 
化します。 共有 は Section  3.1.3 で 見た よう に、 Peter と Paul の 両者が 彼等の 取 
引 要求 を 同じ 銀行口座 オブジェ ク トに 送る ことにより 行われます。 ストリーム 
の 視点から は、 "オブジェクト" それ 自身 は 無いた め、 銀行口座 を 取引 要求の 
操作 を 行う 処理と して モデル 化し、 応答の ス ト リーム を 生成で きる ことが 既に 
示されて います。 従って、 Peter と Paul が 連結 銀行 口座 を 持つ こと 力 尺 Figure 
3.38 で 示す よう に Peter の 取引 要求 ス ト リ ームと Paul の 取引 要求 リ ク エス ト 
を マージし、 その 結果 を 銀行口座 ス ト リーム 処理へ 渡す という 事実 を モデル 化 
する ことができる でしよう。 

この 定式化に 伴う 問題 は merge (マージ） という 概念に あります。 これ は 2 つ 
のス ト リーム を 単純に 交互に Peter の 要求 を 1 つ、 Paul の 要求 を 1 つと 取 リマ 
ージ する こと はしません。 Paul が 口座に とても 稀に しか アクセス しないと 考え 
てみ ましょう。 Peter に 対し、 彼が 2 つ 目の 取引 を 発行で きる 前に Paul が 口座 
に アクセスす るの を 待つ よう 強いる こと はでき ません。 しかし そのような マー 


"Fortran の 開発 者で ある John  Backus は 1978 年に ACM の チューリ ング賞 を 授与 さ 
れた 時に 関数 型 プロ ダラ ミ ングに 高い 知名度 を 与えました。 彼の 受賞 スピーチ （Backus 
1978) は 関数 型の アプローチ を 強く 支持し ました。 関数 型 プロ グラ ミ ングの 良い 概観 
は Henderson  1980 と Darlington  et  al. 1982 で 与えられます。 
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Figure  3.38: 取引 要求 リク エス トの 2 つの ス トリー ムをマ 

ージ する ことで モデル 化した 連結 銀行口座 


ジが 実装され た 場合、 Peter と Paul によ リ 知覚され る "実時間" に 制約され た 
何ら かの 方法で 2 つの 取引 ス ト リーム を 相互 配置し なければ なリ ません。 何ら 
かの 方法と はも し Peter と Paul が 会えば、 いくつかの 取引が 会う 前に 処理 さ 
れ、 他の 取引が 会った 後に 処理され る ことに 合意で きる という 意味で です。 74 
これ は 正確に、 Section  3.4.1 で 扱わねば ならなかった のと 同じ 制約です。 そこ 
で は 状態 を 持つ オブジェクト の 並行 処理 における イベントの" 正しい" 順 を 保 
証す る 明示的な 同期の 導入の 必要性が 見つかりました。 従って、 関数 型の スタ 
ィルを サポート する 取り組み において、 異なる 要因からの 入力の マージの 必要 
性 は 関数 型の ス タ ィ ルが 排除す る はずだった 同じ 問題 を 再び 導入 します。 

私達 はこの 章 を、 私達が モデル 化しよう とする 実際の 世界の 私達の 視点に 
合う 構造 を 持つ 計算 モデルの 構築 を ゴール として 始めました。 世界 を 分離した、 
時間 制約の ある、 相互 応答す る、 状態 を 持つ オブジェクトで モデル 化で きます。 
または 世界 を 単一の、 時間 制約の ない、 状態の 無い、 個体に より モデル 化で き 
ます。 それぞれの 視点が 強力な 利点 を 持ちます が、 どちらの 視点 も 単独で は+ 
分ではありません。 大統 一は 未だ 現われて はいません。 75 


74 任意の 2 つの ス ト リ ームに 対し 一般的に 複数の 受け入れ 可能な 相互 配; S の 順が 存在 
する ことに 注意して 下さい。 従って 技術的に は" マージ" は 関数で はなく 関係です。 その 
答 は 入力の 決定的な 関数で はあり ません。 私達 は 既に （Footnote  39) で 非 決定論が 並行 
の 扱いの 本質で あると 述べました。 マージの 関係 は 同じ 本質的な 非 決定論 を 関数 型の 視 
点から 説明 し ます。 Section  4.3 では 非 決定論 を また 別の 視点から 見る こ と にな リ ます。 

75 オブジェ ク トモ デル は 世界 を 分割し 分離した 部分に する ことで 近似し ます。 関数 型 
モデル はォ ブジェク 卜 境界に 従って モジュラ 化 はしません。 オブジェ ク トモ デル は" ォ 
ブジェク ト" の 非 共有 下の 状態が 共有され ている 状態よ リ もとても 大きい 場合に 便利で 
す。 オブジェクトの 視点が 失敗す る 場合の 例 は 量子力学です。 そこで は 物 を 個別の 点と 
して 考える こと は 逆説 と 混乱 を 招きます。 ォ ブジ ェク卜 の 視点 を 関数 型の 視点 と 統一す 
る こと は プロ グラ ミ ングと は あまり 関係が 無い かも しれません。 しかしより 根本的な 認 
識 論の 問題と 関係す るので す。 
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メタ 言語 抽象化 


-.. 魔法と は 言葉の 中に ある 一 アブ ラカダ ブラ、 開け ゴマ、 その他 
もろもろ 一し かし あるお 話の 魔法の 言葉 は 次のお 話で は 魔法で は 
ない。 真の 魔法と は どの 言葉が、 いつ、 何に 対して 働く か を 知る こ 
と だ。 ト リ ッ クを 学ぶ こ と が トリック なんだ。 
... そして それらの 言葉 は 私達の アルファべ ッ トの 文字から 出来て 

いる。 ペンで 書け る 2、  3 ダースの 走り書き だ。 これが 鍵なん だ！ 
そして 宝で も ある、 もし それに 手 をつ ける こと さえで きれば ！ そ 
れ はまる で 一 まるで 宝の 鍵 こそが 宝の よう だ ！ 
— John  Barth,  Chimera 


プログラム 設計の 学習に おいて、 エキスパートな プログラマが 設計の 複雑さ を 
全ての 複雑な システムの 設計者が 用いる のと 同じ 一般的な 技術 を 用いて コント 
ロールす る こと を 学んで きました。 彼等 は プリ ミ ティ ブな 要素 を 接続して 複合 
オブジェ ク トを 形成し、 複合 オブジェ ク トを 抽象化す る ことで より 高い レベル 
の 建築 プロ ックを 形成 し そして 適切な 大規模の システム 構造の 見方 を 受け入れ 
る ことで モ ジュール 化 方式 は 維持 しました。 これらの テクニック の 説明に おい 
て、 私達 は Lisp を プロセス を 記述す るた めの 言語と して 用い、 また 計算 データ 
ォ ブジ ェクト と 実 世界の 複雑な 現象 をモ デル 化す る 処理 を 構築す るた めに も 用 
いてきました。 しかし、 複雑さ を 増す 問題に 取り組む につれ、 Lisp、 または ど 
のよう な 固定された プロ ダラ ミ ング 言語 も、 我々 の 必要に は 十分で ない こと を 
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知る ことでしょう。 私達 は、 私達の 考え をより 効果的に 表現す るた めに、 耐え 
ず 新しい 言語に 向かわねば なり ません。 新しい 言語 を 定める こと は 工学 上の 設 
計の 複雑さ を コントロール する ための 強力な 戦略です。 私達 は 良く、 問題 を異 
な つ た 方法で 記述で きる （そして それ故に 考える ことができる） 新しい 言語 を 
受け入れる ことで、 複雑な 問題への 対処 能力 を 拡張する ことができます。 プリ 
ミ ティブな、 組み合わせの 手段 や 抽象化の 手段 を、 目前の 問題に 特によ く 合つ 
たもの を 用います。 1 

プログラミング は 数多くの 言語に より 生じます。 特定の コンピュータ のた 
めの 機械語の ような 物理 言語 も 存在し ます。 これらの 言語 は 個別の ス ト レー ジ 
の 断片と プリミティブな 機械 命令 を 用いて データと コントロールの 表現に 関係 
します。 機械語 プログラマ は 与えられた ハードウェアの 使用に 関心 を 持つ こと 
でリ ソースに 限り ある 演算の 効率的な 実装の ための システムと ユー ティ リ ティ 
を 組み立てます。 高級 言語 は 機械語の 素地の 上に あります が、 データ を ビット 
の 集合と して 表した リ、 プログラム を プリ ミ ティ ブな 命令の 列で 表すと いう 懸 
念 を 隠します。 これらの 言語 は 手続 定義の ような 組み合わせと 抽象化の 手段 を 
持ち 大規模な システム 構成に 適して" ます。 

Metalinguistic  abstraction  、ス タ 言語 抽象化) 一新し い 言語 を 構築す る こ と 
一が 工学 設計の 全ての 部門 に て 重要な 役割 を 果たします。 こ れは 計算機 プロ グ 
ラ ミ ングで とても 重要です。 プロ グラ ミ ング では 新しい 言語 を 形成す る だけで 
なく、 これらの 言語 を 評価 機 を 構築す る ことで 実装す る こと もで きる からです。 
プロ グラ ミ ング 言語の emfotator  (評価 機) （または interpreter!^ ンタプ リタ）） は 
手続で あり、 言語の 式に 対して 適用され た 時、 その 式 を 評価す るた めに 要求 さ 
れる 行動 を 実行し ます。 


1 同じ 考えが 工学 全てに 渡り 普及して います。 例えば 電子工学 は 多くの 異なる 言語 を 
回路の 記述に 用います。 これらの 内 2 つ は 電子 ネッ 卜 ワークの 言語と 電子 システムの 言 
語です。 ネッ ト ワーク 言語 は 別個の 電子素子 に関する 装置の 物理 モデリング を 重視し ま 
す。 ネットワーク 言語の プリミティブな オブジェクト は プリミティブな 抵抗 や、 キャパ 
シタ （コンデンサ)、 コイル や トランジスタ 等の 電子 コンポ ーネン ト であり 電圧と 電流と 
呼ばれる 物理的 変数 を 用いて 特徴 付けられます。 回路 をネッ 卜 ワーク 言語で 記述す る 時、 
技術者 は 設計の 物理 特性に 関心 を 持ちます。 逆に、 システム 言語の プリミティブな ォブ 
ジェク 卜 は フィルタ や アンプの ような 信号 処理 モジュールです。 モジュールの 機能 上の 
振舞の みが 関係し、 信号 は それらの 電圧 や 電流の よう な 物理的な 認識に 関心 を 持ち ませ 
ん。 信号 処理 システムの 要素が 電子 ネッ ト ワークから 構築され る 意味の 上で は システム 
言語 はネッ ト ワーク 言語の 上に 組み立てられます。 しかし ここで は 関心事 は 与えられた 
応用問題 を 解く ための 大規模な 電子 装置の 編成に あり ます。 パーツの 物理的 実現 可能性 
は 当然と 考えられ ています。 この 階層 化された 言語の 集合 は Section  2.2.4 の ピクチャー 
言語に て 説明 さ れた 階層 化された 設計 テ ク ニックの ま た 別の 例に な り ま す。 
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プログラミング における 考えで 最も 根本的な 物と 見做す こと に 何の 誇張 も 
あり ません。 

評価 機 は プロ グラ ミ ング 言語の 評価 手段 を 決定す るが、 それ 自体 
は 別の プログラム である。 

この 点 を 理解す る こと は プログラマ としての 私達 自身の イメージ を 変更す る こ 
とです。 私達 は 私達 自身 を、 他人が 設計した 言語の ユーザと しての みで はなく、 
言語の 設計者と して 見る 時点に 迪 りつきました。 
実際に、 私達 は ほ と ん ど 全ての プログラム を ある 言語の 評価 機 だ と 見做す 

ことができます。 例えば、 Section  2.5.3 の 多項式 操作 システム は 多項式の 数値 
演算の ルール を 具象 化し、 リスト 構造 データ 上の 命令 を 用いて 実装し ました。 
も し 私達が この システム を 多項式 を 読み込み、 表示す る 手続と 共に 拡張した 
なら、 記号 数学の 問題 を 扱う 特定 目的 言語の コア （核） を 持つ ことにな リ ます。 
Section  3.3.4 の デジタル 論理 シ ミュレ ータ と Section  3.3.5 の 制約 伝播 は それら 
自身の 正し さに おける 論理的 言語で あり、 それぞれ がそれ 自身の プリ ミ ティブ 
と 組み合わせの 手段、 抽象化の 手段 を 持ちます。 この 視点から 見れば 大規模 計 
算機 システム を こなす 技術 は 新 し レ 、計算機 言語 を 構築す る 技術と 結合し、 計算 
機 科学 それ 自身 が 適切 な 記述 言語 を 構築す る 分野 それ 以上で も 以下で もな く な 
リ ます。 

私達 は 今 か ら他 言語 を 用 いて 言語が 構築 される 技術 を巡リ 始めます。 この 
章で は Lisp を 基盤と して 用い、 評価 機 を Lisp の 手続と して 実装し ます。 Lisp 
はこの 任務に とても 良く 合います。 記号 式 を 表現し、 操作す る 能力が その 理由 
です。 私達 は Lisp 自身の 評価 機 を 構築す る ことで 言語が どのように 実装され 
ている か を 理解す る ことから 最初の 一歩 を 踏み出します。 私達の 評価 機に より 
実装され る 言語 はこの 本で 用いる Lips の Scheme 方言の 部分集合 となり ます。 
この 章で 説明され る 評価 機が Lisp の 特定の 方言に 向けて 書かれて いても、 逐 
次式 計算機の プログラム を 書く ために 設計され た 任意の 式 指向 言語の ための 評 
価 機の 本質的な 構造 を 含みます。 （実際に、 多くの 言語 処理 機が それらの 奥深く 
に 小さな "Lisp" 評価 機 を 含んで いるので す。 ) 評価 機 は 説明と 議論の ために 簡 
略 化されて おり、 製品 品質の Lisp システムに 含まれるべき 重要な 機能が 省略 
されて います。 それ にもかかわらず、 この 単純な 評価 機 はこの 本に 現われる 多 
くの プログラム を 実行す るのに 適して います。 2 


2 私達の 評価 機が 取 り 除いた 最も 重要な 機能 は エラ 一 を 扱う 仕組み と デバ ッ グの サボ 
ート です。 評価 機の よ リ 広範囲の 議論に ついては Friedman  et  al. 1992 を 参照して 下さ 
い。 これ は Scheme で 書かれた 一連の 評価 機 を 通して 進められた プログラミング 言語の 
解説 を 与えます。 
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評価 機 を Lisp プログラム として 利用 可能に する 重要な 利点 は 代替と なる 評 
価 ルール を 評価 機 プログラムへの 変更と して 記述す る ことで 実装で きる こと 
です。 この 力 を 良い 効果と して 用いる ことが 可能な 箇所と して、 Chapter  3 の 
議論の まさに 中心で あつ た、 計算 モデルが 時間の 概念 を 統合す る 方法に 対し 特 
別な コントロール を 得る ことです。 そこで はス ト リーム を 用いて 世界の 時間表 
現 を 計算機の 時間から 分離す る ことで、 状態と 代入の 複雑さの いく らかを 緩 
和し ました。 しかし、 私達の ストリーム プログラム は 時々 扱いに くい 物で し 
た。 Scheme の 評価の 適用 順により 制約され ていたた めです。 Section  4.2 ではよ 
リ 洗練され た 取 リ 組み方 を 準備す るた めに、 normal-order  em ん dfion (正規 順 評 
価） に 対応す る 様に 評価 機 を 変更す る ことで 基盤と なる 言語 を 変更し ます。 

Section  4.3 では 式が 単一の 値 のみでな く 多く の 値 を 持つ 場合に おいて、 よ 
リ野 心的な 言語の 変更 を 実装し ます。 この nondeterministic  computing($ 卜 決定 
的 演算） の 言語に おいて は、 式の 全ての 可能な 値 を 生成す る 過程 を 生成し、 次 
に それらの 値から いくつかの 制約 を 充足す る 値 を 探索す る ことが 自然に 表現で 
きます。。 計算と 時間の モデルに を 用いれば、 これ は" 可能な 未来" の 集合 を 成 
す 時間の 分岐 を 持ち、 次に 適切な 時系列 を 探す ような 物です。 私達の 非 決定的 
評価 機 を 用いる 複数の 値の 追跡と 探索の 実行 は、 根底に 存在す る 言語の 仕組み 
によ リ 自動的に 取り扱われます。 

Section  4.4 では toffic-proffrarraminff (論理 プロ グラミ ング） 言語 を 実装し ます。 
それにより 知識が 入出力 を 伴な う 計算 を 用いて ではなく、 関係 性 を 用いて 表現 
されます。 これ は 言語 を Lisp から、 または 本当に 全ての 従来の 言語から 大幅に 
異なる 物に します が、 論理 プロ ダラ ミ ン グ 評価 機が Lisp 評価 機の 本質的な 構 
造 を 共有す る こと を 学びます。 


4.1 メタ 循環 評価 機 

私達の Lisp 評価 機 は Lisp プロ グラムと して 実装され ます。 Lisp プロ ダラ 
ムを Lisp で 実装され た 評価 機 を 用いて 評価す る こ と について 考える こと は循 
環 論に 見える かもしれ ません。 しかし 評価 は プロセス （処理、 過程） であ リ、 従 
つて 評価 過程 を Lisp を 用いて 説明す る こ と は 適切です。 Lisp は 結局の 所、 プ 
口 セスを 記述す るた めの ツールな のです。 3 評価す る 対象と 同じ 言語で 書かれ 


3 例えそう だとしても、 私達の 評価 機に よ り 説明 さ れな い 評価 プロ セ スの 重要な 側面 
が 残ります。 これらの 最も 重要な こと は 手続が 他の 手続 を 呼び出し、 そして それら を 呼 
び 出した 物に 値 を 返す 原因と なる 詳細な 仕組みです。 これらの 問題 は Chapter  5 で 解明し 
ます。 そこで 私達 は 評価 機 を 簡^な レジスタ マシンと して 実装す る ことで 評価 プロセス 
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た 評価 機 は metacircMZdr (メタ 循環） と 呼ばれます。 

メ タ 循環 評価 機 は 本質的に は Section  3.2 で 説明され た 評価の 環境 モデルの 
Scheme 形式 化です。 モデルに は 以下の 2 つの 基本的 パーツが ある こと を 思い 
出して 下さい 

1.  組み合わせ （特殊な 形式 を 除く 複合 式） を 評価す るた めに は、 部分 式 を 評 
価し、 次に オペレータ 部分 式 を オペ ラン ド 部分 式の 値に 適用す る。 

2.  複合 手続 を 引数の 集合に 適用す るた めに は、 手続の ボディ を 新しい 環境 
で 評価す る。 この 環境 を 構築す るた めに は、 手続 オブジェクトの 環境 部 
分 を フレーム によ リ 拡張する。 フレームの 中で は その 手続の 形式 パラメ 
タカ 尺 その 手続が 適用され る 引数に 対して 束縛され る 

これら 2 つの ルールが 評価 プロセスの 本質 を 説明し ます。 環境の 中で 式が 評価 
される 基本的な サイクル は 引数に 適用され る 手続に 簡約され、 引数 は 順に 新し 
い 環境で 評価され る 新しい 式へ と 簡約され、 以下、 値が その 環境の 中で 見つか 
る シンボル か 直接 適用され る プリ ミ ティ ブな 手続 （Figure  4.1 参照） に迪リ 着く 
まで 繰り返されます。 4 

この 評価 サイクル は 評価 機内の 2 つの 重大な 手続、 eval と apply の 間の 相 
互 作用に より 具体化 されます。 これら の 手続 は Section  4.1.1 にて 説明され ます。 
(Figure  4.1 参照） 

により 詳細に 調べます。 

4 も し 私達 自身に プリ ミ ティ ブを 適用す る 能力 を 与える ので あれば、 評価 機の 実装に 
は 何が 残って いるので しょうか？ 評価 機の 仕事 は 言語の プリ ミ ティブ を 指定す る ことで 
はなく、 結合組織 一組み 合わせと 抽象化の 手段 一 を 提供す る ことで あり、 それが プリ ミ 
ティ ブの 集合 を 言語 を 形成す るた めに 束縛し ます。 具体的に は、 

• 評価 機 は 入れ子の 式の 取扱 を 許可し ます。 例えば 単純に プリ ミ ティ ブを 適用す る こ 
と は 式 （+ 1 6) を 評価す るのに は 十分です が、 （+ 1 (*  2  3)) を 取り扱う に は 十分で は 
ありません。 プリミティブな 手続 + が 対象で ある 限り、 その 引数 は 数値で なければ なら 
なず、 もし 式 （*  2  3) を 引数と して 渡せば 失敗し ます。 評価 機の 重要な 役割の 1 つ は 手 
続 合成 を 演出す る ことで、 （*  2  3) を + に 引数と して 渡す 前に 6 に 簡約し ます。 

• 評価 機 は 変数の 使用 を 許可し ます。 例えば 加算の ための プリ ミ ティ ブな 手続 は （+  x 
1) のよう な 式に 対応す る 手段 を 持ちません。 私達 は 評価 機に 変数 を 追跡し その 値 を プリ 
ミ ティ ブな 手続 を 実行す る 前に 得る ようにす る 必要が あり ます。 

• 評価 機 は 複合 手続の 定義 を 許可し ます。 これ は 手続 定義の 追跡 を 含み、 これらの 手 
続 を 式 評価に おいて どのように 使用す るか を 知っています。 そして 手続に 引数 を 受け 入 
れる こと を 許可す る 仕組み を 提供し ま す。 

• 評価 機 は 特殊 形式 を 提供し ます。 これ は 手続 呼 出と 異なった 形で 評価され ねばな リ 
ません。 
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Procedure. 
Argument: 


Expression, 
Environment 


Figure  4.1:  eval- apply サイクルが コンピュータ 言語の 本質 
を 顕在 化させる 


評価 機の 実装 は 評価され る 式の Synta< 構文 、 を 定義す る 手続に 依存し ま 
す。 私達 は データ 抽象化 を 用いて 評価 機 を 言語の 表現に 非 依存に します。 例 
え ば 代入 は シ ン ボル set  ！ で 始まる リストに ょリ 表現され るべき という 選択 に 
委ねる ので はなく、 代入の ための テストに 抽象 述語 assignment? を 用い、 そ 
して 代入の 部品に アクセス する ために 抽象 セレクタ assignment-variable と 
assignment- value を 用います。 式の 実装に ついては Section  4.1. 2 で 詳細に 説 
明され ます。 また Section  4.1.3 で 説明され る" 命令" も あり、 これ は 手続と 環境 
の 表現 を 指定し ます。 例えば make-procedure は 複合 手続 を 構築し、 lookup- 
variable- value  (ま 変数の ィ [k に / クセス し、 apply-primitive-procedure  t ょノ 

リ ミ ティ ブな 手続 を 与えられた 引数の リストに 対し 適用し ます。 

4.1.1 評価 機の 核 

評価 プロセス は 2 つの 手続 eval と apply の 相互作用 であると 説明 可能 
です。 


Eval 

eval は 引数と して 式と 環境 を 取り ます。 これ は 式と 分類し その 評価 を 監督 
します。 eval は 評価され る 式の 構文 上の 方の 事例 分析と して 構造 化されます。 
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手続の 一般性 を 保った め、 式の 型の 決定 を 抽象的に 表現し、 多種の 式に 対する 
どんな 特定の 表現に も 委託し ません。 式の 各 型 は それ を テストす る 述語と、 そ 

の 部分 を 選択す る 抽象 手段 を 持ちます。 この abstract  sj/ntax (抽象 構文） は 同じ 
評価 機 を 用いつつ、 異なる 構文 手続の 集合と 合わせる ことで、 言語の 文法 を ど 
のようにして 変更で きる かにつ いて 知る こと を 簡単に します。 
プリ ミ ティ ブな式 

• 数値の ような 自己 評価 式に 対して は eval は 式 それ 自身 を 返す。 

•  eval は 環境の 中で 変数 を その 値 を 見つける ために 探さなければ なら 
ない。 

特殊 形式 

. クオート された 式に 対して は eval は クオート された 式 を 返す。 

• 変数への 代入 （または 定義） は 再帰 的に eval を 呼び出し 変数に 関連 付け 
られる 新しい 値 を 計算し な ければ な ら ない。 環境 は 変数の 束縛 を 変更 （ま 
たは 作成） しなければ ならない。 

. if 式 は その 部品に 対し 特別な 処理 を 要求す る。 もし 述語が 真で あれば 
consequent (結果） を 評価 し、 そうでな ければ alternative (代替） を 評価す 
るた めで ある。 

• lambda (ラムダ） 式 は 適用 可能な 手続に 変形し なければ ならない。 変形 は 
ラ ム ダ 式に より 指定され た パラメタと ボディ を 評価の 環境 と共に パッケ 
ージ 化する ことによ リ 行う。 

•  begin 式 は その 一連の 式 を それらが 現れる 順で 評価す る 必要が ある。 
• 事例 分析 （cond) は 入れ子の if 式に 変形し、 それから 評価す る。 

組み合わせ 

• 手続の 適用に 対して、 eval は 再帰 的に 組み合わせの 演算子と オペランド 
の 部分 を 評価し なければ ならない。 結果と なる 手続と 引数 は apply に 渡 
す。 これ は 実際の 手続 適用 を 取り扱う。 

以下に eval の 定義 を 示します。 

(, der ine   (eval exp  env) 

( cond   ( ( self -evaluating?   exp)  exp) 

( ( variable?   exp) ( lookup- variable -value   exp  env)) 
( ( quoted?   exp)    (text -of- quotation  exp)) 
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( ( assignment?   exp)    (eval - assignment   exp  env ) ) 
( (definition?   exp)    (eval-dennition  exp  env)) 
((if?   exp )    ( eval-if   exp  env) ) 
( (lambda?   exp ) 
(make -procedure    (lambda-parameters  exp) 
(lambda-body  exp) 
env) ) 

( (begin?  exp) 

( eval - sequence    (begin - actions   exp)    env) ) 
( ( cond?   exp)    ( eval ( cond->if   exp)    env) ) 
( ( application?  exp) 

( apply   (eval ( operator  exp )    env ) 

(list -of -value s    ( operands   exp)  env))) 

(else 

( error   " Unknown  expression  type :    EVAL "  exp)))) 

明快 さの ために、 eval は cond を 用いた 条件 分岐と して 実装され ています。 こ 
れの 欠点 は 手続が いくつかの 判別 可能な 式の 型の み を 取り扱い、 eval の 定義 を 
編集す る こと 無しに 新し い 式が 定義で きない こと です。 多くの Lisp 実装で は 
式の 型に 従う 呼 出 は データ 適 従 スタイル により 行われて います。 これ は ユーザ 
に eval が 判別 可能な 新しい 式の 型の 追加 を 許可し ます。 eval 自身の 定義の 変 
更は 必要 有り ません。 （Exercise  43 参照） 


Apply 

apply は 2 つの 引数、 手続と 手続が 適用され るべき 引数の リスト を 取り ま 
す。 apply は 手続 を 2 つ 種類に 分類し ます。 プリミティブの 適用に は apply- 
primitive-procedure を 呼びます。 複合 手続の 適用に は 手続の ボディ を 作る 式 
を 連続して 評価す る こ と によ リ 行います。 複合 手続の ボディ の 評価の ための 環 
境 は 手続に ょリ 運ばれた 基礎 環境 を 拡張する ことで 構築し、 手続の パラメタ を 
手続が 適用され る 引数に 束縛す る フレーム を 含めます。 以下が apply の 定義 
です。 

v. def ine    ( applv  procedure   arguments  ) 

( cond   ((primitive-procedure?  procedure ) 

( apply-pr imit ive -procedure   procedure   arguments ) ) 
( ( compound-procedure?  procedure ) 
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(eval - sequence 

(procedure -body  procedure ) 
( extend- environment 

(procedure-parameters  procedure ) 
arguments 

(procedure -environment   procedure ) ) ) ) 

(else 
( error 

"Unknown  procedure   type :    APPLY "  procedure)))) 

手続の 引数 

eval が 手続 適用 を 処理す る 時、 list-of-values を 用いて 手続が 適用され 
る 引数の リス トを 生成し ます。 list-of -values は 引数と して 組み合わせの ォ 
ぺ ランド を 取ります。 各 オペランド を 評価し 対応す る 値の リスト を 返します。 5 

、deiine    (list— 01 - values   exes  env) 
v.  if    (no -ope rands?   exps  ) 

, () 

( cons    ( eval ( f irst -operand  exps )  env) 

( list - of - values    (rest -operands   exps )  env)))) 


条件文 

eval-if は 与えられた 環境に おいて if 式の 述語 部分 を 評価し ます。 も し 結果 
が 真なら eval-if は consequent  (結果） を 評価し、 そうでなければ alternative (代 
替） を 評価し ます。 

(, del ine i,eval-if   exp  env) 

(if    (true?    (eval ( if -predicate   exp)    env) ) 
(eval   (if-c on sequent   exp)  env) 


5  eval の application? 節 は 明示的に list-of -values 手続 を 書く ので はな く、  map を 

用いる ことで （そして operands が リスト を 返す よう 規定す る ことで） よ り 単純に する こ 
とがで きました。 ここで は map を 用いない こと を 選択す る ことで 高 階 手続 を 用いな く と 
も、 例え 評価 機が サポート する 言語が 高 階 手続 を サポート する ことにな つても、 評価 機 
が 実装で きる こと を 強調し ました。 （従って 高 階 手続 を 持たない 言語で 評価 機 を 書く こと 
も 可能です)。 
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( eval ( if - alternative   exp)    env) ) ) 

eval-if 内での true? の 使用 は 実装 言語と 被 実装 言語の 間の 接続の 問題 を 強調 
します。 if -predicate は 被 実装 言語に て 評価され るので その 言語の 値 を 生じ 
ます。 ィ ンタ プリ タの 述語 true? は その 値 を 実装 言語の if で テストで きる 値 
に 翻訳し ます。 真実性の メタ 循環 表現 は 根底 をな す Scheme の それと は 同じで 
はない かもしれ ません。 6 

列 

eval-sequence は apply によ リ 用いられ 手続の ボディの 中に ある 連続した 
式 を 評価し ます。 また eval でも 使用され begin 式の 中の 一連の 式 を 評価し ま 
す。 引数と して 一連の 式と 環境 を 取り、 式が 現われる 順で 評価し ます。 返り 値 
は 最後の 式の 値です。 

dei ine    (eval-sequence   exps   env ) 
( cond   ( ( last-exp?   exps ) 

(eval    (first - exp   exps )    env) ) 
(else 

(eval (f ir st-exp   exps )  env) 
(eval-sequence    (rest - exps   exps )  env)))) 

代入と 定義 

以下の 手続 は 変数への 代入 を 扱います。 eval を 呼び 代入され る 値 を 見つけ 
値と 結果と なる 変数 を set-variable-value! へ 転送す る ことで 指定され た 環 
境へ 設定され るよう にします。 

V dei ine    (eval- assignment   exp  env) 

(set-variable-value ！    ( assignment -variable  exp) 

(eval ( as  signment- value   exp )  env) 
env) 

•ok) 


6 今回 は 実装 言語と 被 実装 言語 は 同じです。 ここでの true? の 意味に 対する 熟考 は 本 
質 を 誤解す る ことなく 理解の 発展 を 促します。 


392 


変数の 定義 は 同様の 方法で 扱われます。 7 

(, def ine    (eval - definition  exp  env) 

(del lne - variable !    (definition-variable  exp) 

( eval ( def init ion-value   exp )  env) 
env) 

' ok) 

ここで 代入、 または 定義の 値と して シンボル ok を 返す こと を 選択し ました。 8 

Exercise  4.1: メタ 循環 評価 機が オペ ラン ドを 左から 右へ 評価す る 

の 力 \ 右から 左へ なのか 判断が 付かない ことに 注意せ よ。 評価 順 
は 下位に 横たわる Lisp から 継承す る。 も し list-of -values 内の 
cons の 引数が 左から 右へ 評価され るの なら、 list-of -values は 
オペランド を 左から 右へ と 評価す る。 もし cons の 引数が 右から 左 
へ 評価され るなら、 list-of -values は 右から 左へ 評価す る。 
オペランド を 左から 右へ と 下位に 横たわる Lisp の 評価 順 に 係らず 
評価す る list-of -values の 版 を 書け。 また オペ ラン ドを 右から 左 
へ 評価す る list-of-values の 版 も 書け。 

4.1.2 式の 表現 

評価 機 は Section  2.3.2 で 議論され た 記号 微分 プロ グラム を 思い出さ せま す。 
双方の プログラムが 記号 式 を 操作し ます。 両方の プログラム において、 複合 式 
上の 操作の 結果 は 式の 断片 を 再帰 的に 操作し、 式の 型に 依存した 方法で 結合す 
る ことにより 決定し ます。 両方の プログラム において、 私達 は データ 抽象化 を 
用いて 式が どのように 表現され るかの 詳細から 命令の 一般的な ルール を 分離し 
ます。 微分 プログラムで はこの ことが、 同じ 微分 手続が 接頭辞 形式、 接 中 辞 形 
式、 または いくつかの 他の 形式の 代数式 を 扱える こと を 意味し ました。 評価 機 
にと つて は、 これ は 評価され る 言語の 文法が もっぱら 式 を 分類し、 断片 を 抽出 
する 手続に よ リ 決定され る こと を 意味し ます。 

以下に 私達の 言語の 構文の 仕様 を 示します。 

7 この define の 実装 は 内部 定義の 扱いの 微妙な 問題 を 無視し ます。 しかし 多くの場合 
では 正しく 動きます。 問題が 何 か、 どのよう にし て 解決す るかに ついては Section  4. 1.6 で 
学びます。 

8define と set! を 導入した 時に 述べた ように、 これらの 値 は Scheme の 実装 依存で 
す 一つ まり、 実装 者が どんな 値 を 返す のか 選択で きます。 
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自 己 評価 アイテム は 数値 と 文字列の みです。 


(define    v se 丄 f 一 evaluating?  exp; 
( cond   v  number  r   exp;    true  ) 
( ( string?   exp)    true ) 
(else  false ) ) ) 


• 変数 は シンボル により 表現され ます。 

(define     variable?   exp)    (  s  vmb  o 1 r   exp  ； ) 


• 引用 は （quote  <text-o:f-quotatio:n>) の 形式 を 持ちます。 9 

(define     quoted?   exp )    (tagged-list?   exp    1  quote  ； ) 
(define    (text -of- quotation  exp)    ( cadr  exp)) 

quoted? は 手続 tagged-list? を 用いて 定義され ます。 これ は リス 卜が 
指定され た シンボルで 開始す るか を 判断し ます。 

(define    (.tagged-list?   exp  tag) 
(if     p a l r  r  exp; 

( eq?    (car   exp)  tag) 
false)) 

• 代入 は （set!  <var>  <value>) の 形式 を 取ります。 

(define    (assignment?   exp)    (tagged-list?   exp  'set!)) 
(define    ( as signment -variable   exp )    ( cadr  exp)) 
(define    ( as  signment -value   exp)    ( caddr  exp)) 


• 定義 は 以下の 形式 を 取ります。 

(define   (var)  (value) ) 

または 以下の 形式に な り ます。 

(define     (var)  (paramezeri)  +..  {parameter n)^) 
{body}) 


9  Section  2.3.1 で 述べた とおり、 評価 機 は 引用 （quote) された 式 を quote で 始まる リス 
ト だと 見ます。 例え 式が クォーテーションマークで 入力され ていても です。 例えば 式' a 
はこの 評価 機で は （quote  a) と 見られます。 Exercise  2.55 を 参照して 下さい。 
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後者の 形式 （標準 手続 定義） は 以下に 対する 構文 糖です。 


(define  (var) 

(lambda     (parameteri) . . . {parametern} ) 
(body))) 

対応す る 構文 手続 は 以下と なり ます。 

(define    (definition?   exp)    (tagged-list?   exp    ' del  me ) ； 
(define    (definit ion-variable   exp ) 
v.  if    (symbol?    ( cadr  exp)) 
( cadr  exp) 
( caadr  exp ) ) ) 
(define    (definit ion -value  exp) 
V if    (symbol?    ( cadr  exp)) 
( caddr  exp) 

(make-lambda    ( cdadr   exp)  ；  formal  parameters 

( cddr  exp ) ) ) )       ；  body 

• lambda 式はシ ン ボル lambda で始 まる リスト です。 

(define    (lambda?   exp ；    、tagged ー丄 1st?   exp    ' lambda ； ) 
(define    (lambda-parameters   exp)    ( cadr  exp)) 
(define    (lambda-body  exp)    ( cddr  exp) ) 

また lambda 式に 対する コンス トラクタ も 提供し ます。 これ は 上記の 
definition-value で 使用され ます。 

(define    (make-lambda  parameters  boav) 
乂 cons    1 lambda   ( cons  parameters  body; ) ) 

• 条件 式 は if で 始まり 述語、 結果 式 を 持ち、 （任意で） 代替 式 を 持ちます。 

も し 式が 代替 式の 部分 を 持たない ので あれば 代替 式と して false を 与え 

ます。 10 


10 述語が false にな リ 代替 式が 存在し ない 場合の if 式の 値 は Scheme では 未定義です。 
ここで は 私達 は false にす る こと を 選択し ました。 私達 は 変数 true と false の 式 内での 
利用 をサ ポー 卜 し、 グローバル 環境での それらの 束縛に より 評価され るよう にします。 
Section  4.1. 4 参照。 
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(define    (if?   exp)    (tagged-list?   exp  'if)) 
(define    ( if -predi cate   exp )    ( cadr  exp)) 
(define    (if -consequent   exp)    ( caddr  exp) ) 
(define    (if-alternative  exp) 
(if    (not    (null?    (cdddr  exp))) 

( cadddr  exp) 

' false)) 


また if 式に 対する コンストラクタ も 提供し ます。 
り cond 式 を if 式に 変換す るのに 用いられます。 


-れは cond->if によ 


(define    、make 一 if   credicate    consequent   a 上" ternat ive ソ 
(list    'if  predicate    consequent   alternative) ) 

begin は 一連の 式 を 1 つの 式へ とまとめ ます。 begin 式から 実際の 列 を 
取 り 出す 命令 と 同時に、 列の 最初の 式と その 残 リ の 式 を 返す セ レ クタ も 
含まれます。 11 

(define    (begin?   exp;    、tagged -丄 1st?   exp    1  begin) ) 
(define    (begin - actions   exp)    ( cdr  exp)) 
(define    ( last-exp?   seq)    (null?    ( cdr   seq) ) ) 
(define    (f irst-exp   seq)    (car   seq) ) 
(define    (rest-exps   seq)    ( cdr   seq) ) 

また cond->if で 用いる コンストラクタ sequence->exp も 含めます。 こ 
れは列 を 単一の 式に、 必要ならば begin を 用いて、 変換し ます。 


、 def  ine 
、 cond 


、 def  ine 


(sequence - >exp  seq) 
( (null?   seq)  seq) 

〔、丄 ast - exp?   seq)    (f irst-exp   seq) ) 
(else    (make-begin  seq)))) 
(make-begin  seq)    ( cons    '  begin   seq) ) 


手続の 適用 は 上記の 式の 型で はない 任意の 複合 式です。 その 式の car は 
オペレータ であり、 cdr は オペランドの リストです。 


11 式の リストに 対する これらの セレクタ 一 それに 対応す る オペ ラン ドの リスト 向けの 
もの も 含めて 一は データ 抽象化 を 意図す る もので はあり ません。 それら は 基本的な リス 
ト 命令の ための mnemonic (ニー モニック） 名と して Section  5. 4 にて 明示的 コ ン トロール 
評価 機 を 理解す る こと を 易しく する ために 導入され ます。 
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(define  (application?   exp )    (pair?   exp ) ) 

(define  ( operator  exp)    (car  exp)) 

(define  ( operands   exp)    ( cdr  exp)) 

( def ine  (no-operands?   ops )    (null?   ops ) ) 

(define  (first-operand  ops )    (car  ops)) 

(define  (rest-operands   ops )    (cdr  ops)) 


派生 式 

いくつかの 私達の 言語 内での 特殊 形式 は 直接 実装され るので なく、 他の 特 

殊 形式 を 含む 式 を 用いて 定義で きます。 例の 1 つ は cond です。 これ は 入れ子 
の if 式と して 実装で きます。 例えば 以下の 式の 評価 上の 問題 を、 

( cond    ((>  x  0)  x) 

( (,= x  0；    (.display    '  zero)  0) 
(else    (-  x))) 

次の if と begin の 式 を 含む 式の 評価 問題へ と 簡約す る ことができます。 
(if    (>  x  0) 


(if    (=  x  0) 

(begin   (display    '  zero ；  0) 
(- x))) 

cond の 評価 を このように 実装す る こと は 評価 機 を 簡略 化します。 評価 過程が 
明示的に 指定 さ れ ねばな ら な レ 、特殊 形式の 数 を 減らす こと がで きる からです。 

cond 式の 部分 を 抽出す る 構文 手続と cond 式 を if 式に 変形す る 式 cond->if 
を 含めます。 事例 分析 は cond で 始ま り 述語 -行動 節の リスト を 持ちます。 節 は 
もし その 述語が シンボル else ならば else 節です。 12 

dei ine    、conar   exp ；    、tagged —  丄 ist?   exp    1  cona ; ) 
( dei ine    ( cond - clause s   exp)    ( cdr  exp) ) 
( dei ine    ( c ond- else- clause  ?   clause ) 

( eq?    ( cond - predicate   clause )    1  else ) ) 
( dei ine    ( cond-predi  cate   clause )    (car   clause ) ) 

12 全ての 述語が false で else 節が 存在し ない 場合の cond 式の 値 は Scheme では 未定義 
です。 ここで は それ を false にしました。 
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(define    ( cond-actions   clause )    ( cdr   clause ) ) 

(define    ( cond->if   exp)    ( expand- clause s    ( cond-clauses   exp) ) ) 
(define    ( expand- clauses   clauses ) 
(if    (null?   clauses ) 

'false  ；  no  else  clause 

(let    ((first    (car  clauses)) 
( rest    (cdr  clauses))) 
V if    ( cond-else- clause?  first) 
(if    (null?  rest) 

(sequence - >exp    ( cond-actions   i lr st ) ) 
(error   "ELSE  clause   isn't   last :    CQND->IF " 
clauses)) 
(make - if    ( cond - predicate  first) 

(sequence - >exp    ( cond-act ions   i lr st ) ) 
( expand- clauses  rest)))))) 

文法 上の 変形 を 実装す る こ と を 選択した cond のよう な 式 は derived  expres- 
s^ns (派生 式） と 呼ばれます。 let 式 もまた 派生 式です。 （Exercise  4.6 参照)13 

Exercise  4.2:  Louis  Reasoner は eval の cond の 順 を 変えて 手続 適 

用の 節が 代入の ための 節の 前になる ようにす る 計画 を 立てた。 彼 
はこうす る ことで インタプリタ をより 効率 良くで きる と 主張した。 
プログラム は 通常 代入、 定義 等より 適用 を 含んで いるた めだ、 と。 

彼の 変更した eval は 元の eval よりも 通常よ り 少ない 節 を 式の 型 
が 判明す る 前に チェックす るだろう という 主張 だ 

a  Louis の 計画の 何が 間違って いるか？ （ヒント ： Louis の 評価 
機 は 式 （define  x  3) に 対し 何 を 行う か？） 

b  Louis は 彼の 計画が うまく 行かない ことに 激昂した。 彼 は 他 
の 多くの 型の 式 を チェック する 前に 彼の 評価 機 を いくらでも 
長く して 手続 適用 を 認識 させようと している。 評価され る 言 

13 実用的な Lisp システム は ユーザに 対し 新しい 派生 式 を 追加し、 評価 機の 変更 無し 
に 文法 上の 変形と しての 実装 を 指定で きる 仕組み を 提供し ます。 そのような ユーザ 定義 
変形 は macTOf マクロ） と 呼ばれます。 マクロ 定義の 初歩 的な 仕組み を 追加す る こと は簡 
単な のです が、 結果 的に その 言語 は 微妙な 名前 衝突の 問題 を 持ちます。 これらの 困難 を 
も た ら さない マクロ 定義の 仕組みに 関する 多く の 研究が 存在し ます。 例えば Kohlbecker 
1986,  Clinger  and  Rees  1991,  Hanson  1991 を 参照して 下さい。 
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語 を 変更し 手続 適用 が call で 始まる ようにす る こと で 彼の 
手助け をせ よ。 例えば （factorial 3) の 代わりに 変更 後 は 
(call  factorial 3) と 書 力、 ねばならず、 (+ 1 2) は (call + 
1 2) と 書かねば ならない。 

Exercise  4.3:  eval を 書き直し 呼 出が データ 適 従 スタイル にて 行わ 
れ るよう にせよ。 これ を Exercise  2.73 の データ 適 従 型 微分 手続と 
比較せ よ。 この 節で 実装され た 文法に 適切で あると ぉリ、 （複合 式 
の car を 式の 型と して 用いて よい。 

Exercise  4.4:  Chapter 1 の 特殊 形式 and と or の 定義 を 思い出せ。 

•  and: 式 は 左から 右へ と 評価され る。 もし 任意の 式が false と 
評価され るなら false が 返される。 残りの 式 全て は 評価され 
ない。 も し 全ての 式が true の 値に 評価され るなら 最後の 式の 
評価 値が 返される。 も し 式が 全く 存在し ないなら true が 返さ 
れる。 

•  or: 式 は 左から 右へ と 評価され る。 もし 任意の 式が true と 評 
価され るの なら その 値が 返 される。 残り の 式 全て は 評価され 
ない。 もし 全ての 式が false と 評価され るの なら、 または もし 
式が 全く 存在し ないなら、 false が 返される。 

and と or を 評価 機に 対する 新しい 特殊 形式と して 適切な 構文 手続 
と 評価 手続 eval-and と eval-or を 定義す る ことで 導入せ よ。 代替 
法と して、 and と or を 派生 式と して 実装す る 方法 を 示せ。 

Exercise  4.5:  Scheme は cond の 節に 追加の 文法、 （く tes わ => 
<recipient» を 認めて いる。 も し (test) 力 《 true と して 評価 さ 
れ るなら、 〈recipien(;〉 が 評価され る。 その 値 は 1 引数の 手続で な 
ければ ならない。 そして この 手続が 〈test〉 の 値で 起動され、 その 
結果が cond 式の 値と して 返される。 例えば、 

(, cond   (.  (assoc    1  b    '  {(.a l) (b  2)))    =>   cadr ) 
(else  false)) 

は 2 を 返す。 cond を 変更して この 拡張 文法 を サポート する ように 
せよ。 

Exercise  4.6:  let 式 は 派生 式で ある。 なぜな ら、 
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(let   ( ( (vari)  (expi))   ...   ({varn}  (expn}) ) 
{body}) 

は 以下と 等価で ある。 

( ( lambda   ( (vari)  ...  (varn) ) 
(body)) 
(exp!) 

(exp„)) 

文法 上の 変形 let->combination を 実装せ よ。 これ は let 式の 評 

価 を 上記で 示された 型の 組み合わせの 評価へ と 簡約す る。 そして 
let 式 を 扱うた めに eval に 適切な 節 を 追加す る。 

Exercise  4.7:  let* は let に似てい る；^、 let* の 変数の 束縛が 左 か 

ら右 へと 続けて 実行され、 全ての 先行す る 束縛が 可視と なる よう 
各 束縛が 環境へ 追加され ていく。 例えば、 

(let*    ((x  3)      (y   (+  x  2))      (z   (+  x  y  5))) 
(*  x  z)) 

は 39 を 返す。 let* 式が 入れ子の let 式の 集合と して どのよう に 
書き直す ことができ るか 説明せ よ。 そして この 変形 を 実行す る 手 
続 let*->neSted-letS を 書け。 も し 私達が 既に let を 実装して い 
て （Exercise  4.6)、 評価 機 を 拡張 し let* を 扱いたい としたら、 以 
下の 処理 を 行う 節 を eval に 追加す る こと は 十分であろう か？ 

V eval    (let*->nested-lets   exp ；  env; 

または 私達 は 明示的に let* を 非 派生 式 を 用いて 拡張するべき であ 
ろうか？ 

Exercise  4.8: "名前 付き let" は let の 変種で あり 以下の 形式 を 

持つ。 

"et   (var)  (bindings)  { body) ) 

(bindings) と 〈； ?od 力 は 通常の let と 同様で ある。 しかし 〈var〉 が 
(body) 内部で 束縛され る 手続で あ り 、 ボディ が 〈boc /力 であ リ 、 か 
つ パラメタが (findings") の 変数で ある 点が 異なる。 従って 〈var〉 
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で 名付けられた 手続 を 呼び出す ことで 繰り返し 〈bod 力 を 実行す 
る ことができる。 例えば、 反復 フィボナッチ 手続 （Section  1.2.2) は 
名前 付き let を 用いて 以下の ように 書き直す ことができる。 


(, def ine   (fib  n) 

(let   fib - iter    ( (a 1) 
(b  0) 

( count  n) ) 
(if    (=   count  0) 
b 

(fib - iter   (+  a  b)   a  (-  count  1))))) 

Exercise  4.6 の let->coinbination を 変更して 名前 付き let もサポ 
ート する ようにせ よ。 

Exercise  4.9: 多 く の 言語が do,  for,  while,  until のよう な 多様な 

反復 構造 をサ ポー 卜する。 Scheme では 反復 処理が 通常の 手続 呼 出 
を 用いて 表現で き る ため 特別な 反復 構造が 演算 能力 に 対し 本質的 
な 利益 を 与える こ と はない。 一方で そのよう な 構造 は 時折 便利で 
も ある。 いくつかの 反復 構造 を 設計せ よ。 それらの 使用の 例 を 与 
えどの よう に 派生 式と して 実装す るかに ついて 示せ。 

Exercise  4.10: データ 抽象化 を 用いる ことで、 評価され るべき 言語 
の 特定の 文法から 独立した eval 手続 を 書く ことができる。 これ を 
説明す るた めに eval と apply を 変更す る ことな く この 節の 手続 
を 変更す る ことで Scheme の 新しい 文法 を 設計し、 実装せ よ。 

4.1.3 評価 機の データ 構造 

式の 外側の 文法 を 定義す るのに 加えて、 評価 機の 実装 は 評価 機が 内部的に 
操作す る データ 構造 も プログラムの 実行の 一部と して、 手続と 環境の 表現 や 

true と false の 表現 を 定義し なければ な リ ません。 
述語の テス ト 

条件 節に 対して は 真になる もの は 全て 受け入れます。 真と は 明示的な false 
オブジェ ク ト では 無い ものです。 
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(define  (true?  x)  (not  ( eq?  x  false))) 
(define    (false?  x )    ( eq?  x  false)) 


手続の 表現 

プリ ミ ティ ブを 扱うた めに、 以下の 手続が 利用 可能で あると 仮定し ます。 

•  (apply - primitive - procedure  <proc>  <args>) 

与えられた プリ ミ ティ ブな 手続 を リスト 〈args〉 中の 引数の 値に 適用し、 
適用の 結果 を 返します。 

•  (primitive-procedure  r  <proc>) 

(proc) が プリ ミ ティ ブな 手続で あるか 確認し ます。 

プリ ミ ティ ブを 扱う これらの 仕組み は Section  4.1.4 でさら に 説明され ます。 

複合 手続 は パラメタ、 手続の ボディ、 環境から コンストラクタ make- 
procedure  を 用いて 構築され ます。 

def ine  (make-procedure   parameters  bodv  env) 

( list  1  procedure  parameters  body  env)) 

( def  ine  ( compound-procedure?  p) 

(tagged-list?  p    1  procedure ) ) 

( def  ine  ( pro c edur e -parameter s  p)    ( cadr  p) ) 

( def  ine  (procedure -body  p)    ( caddr  p) ) 

( def  ine  (procedure -environment  p )    ( cadddr  p) ) 

環境 上の 命令 

評価 機 は 環境 を 操作す る 命令 を 必要と します。 Section  3.2 で 説明され た 通 
リ、 環境 は 連続す る フレーム であり、 各 フレーム は 変数 を その 対応す る 値に 関 
連 付ける 束縛の テーブルです。 以下の 命令 を 用いて 環境 を 操作し ます。 

• (looKup- variable-value  <var>  <env>) 

環境く  env〉 内で シンボル 〈rar〉 に 束縛され た 値 を 返します。 または 変数 
が 束縛され ていない 場合 エラー を 発します。 

•  (extena - environment  <var "ュ afc> ヱ es>  <values>  <base-env> j 

新しい フレームから 成る 環境 を 返します。 フレームの 中で は リスト 

(variables) 中の シンボルが リ スト 中 〈vaJues〉 の 対応す る 要素に 束縛され 
ます。 取 リ 囲む 環境 は 環境 〈base-env) です。 
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•  (define - variable !  <var>  <value>  <env>) 

環境 く emA〉 の 最初の フレームに 変数 〈var〉 を 値 〈vaJue〉 に 関連 付ける 新 
しい 束縛 を 追加し ます。 

•  (set - variable - value ！  <var>  <value>  <env>) 

環境 〈eiiv〉 中の 変数 〈var〉 の 束縛 を 変更し、 その 変数が 新しく 値 〈val— 
に 束縛され るよう にします。 または もし 変数が 束縛 されて いない 場合に 
は エラー を 発します。 

これらの 命令 を 実装す るた めに は 環境 を フレームの リスト と して 表現し ます。 
環境 を 内包す る 環境 は リストの はでです。 空の 環境 は 単純に 空 リストです。 

dei ine    (enclosing-environment   env)    (  cdr  env) ； 
( dei ine    (first-frame   env)    (car  env) ) 
( dei ine   the -empty- environment  '()) 

環境の 各 フレーム はリ ス トの ペアと して 表現され ます。 フレームに 束縛され る 
変数の リストと 対応す る 値の リストです。 14 

dei  ine    (make-frame   variables   values ) 

( cons   variables   values ) ) 
( dei ine    (frame-variables   frame )    (car  frame)) 
( dei ine    (frame-values   frame )    ( cdr  frame ) ) 
( dei  me    (  add  -  binding -" to -： frame  !    var  val frame  ) 

( set-car ！    frame    ( cons  var    (car  frame))) 

( set-cdr ！    frame    ( cons  val ( cdr  frame ) ) ) ) 

環境 を 変数 を 値 に 関連 付 ける 新しい フレーム により 拡張する ために、 変数の リ 
ストと 値の リストから 成る フレーム を 作成し ます。 そして その 環境に 隣接 させ 
ます。 もし 変数の 数が 値の 数に 合わな い 場合に は エラー を 発します。 

dei  ine    (  extend- environment   vars   vals  base  -  env) 
v.  if    (= ( length  vars)    (length  vals)) 

( cons    (make-frame   vars  vals )   base - env) 
(if    (<    (length  vars ) (length  vals)) 

(error   " Too  many  arguments   supplied "   vars   vals ) 
(error   " Too  few  arguments   supplied "   vars  vals 


14 フレーム は 実際に は 以下の コ一 ド において データ 抽象化され ていません。 Set- 
variable  -  value  ！  と define - variable!  It  set-car! を 用いて 直接 フレームの 値 を 変更 
しています。 フレーム 手続の 目 的 は 環境 操作 手続 を 読み 易 くす る ことです。 
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環境 内の 変数 を 探す ために は、 最初の フレームの 変数の リスト を 走査し ます。 
希望の 変数 を 見つければ 対応す る 値 リスト 内の 要素 を 返します。 もし 現在の フ 
レーム 内に その 変数が 見つからなければ 内包す る 環境 を 探します。 以下、 繰り 
返しです。 も し 空 環境まで 迪リ 着いたならば" 束縛され ていない 変数" の エラ 
一 を 発します。 

dei ine    ( 1 ookup- van  able -value   var   env  ； 
( dei ine    (env - loop  env) 

(define    (scan  var s   vals ) 
( cond   "null?   var s  ) 

( env - loop    ( enclosing- environment   env) ) ) 
"eq?   var    ( car  var  s )  )    ( car  vals)) 
( else    (scan   ( cdr  vars )    ( cdr  vals ) ) ) ) ) 
(if    ( eq?   env  the -empty- environment ) 
(error   "Unbound  variable "  var) 
(let    ( (frame    (first-frame  env) ) ) 
(scan   (frame-variables   frame ) 
( frame-values  frame))))) 
(env - loop  env)) 

変数 に 新しい 値 を 指定 さ れた 環境 に て 設定す る に は、 lookup- variable-value 

と 同様に 変数 を 走査し、 対応す る 見つかった 場合に は 対応す る 値 を 変更し ます。 

dei  ine    (set-van  able-value  ！    var  val env) 
( dei ine    (env - loop  env) 

(define    (scan  vars   vals ) 
( cond   "null?   vars ) 

( env - loop    ( enclosing- environment   env) ) ) 
"eq?   var    (  car  vars  )  )    (  set-car  ！    vals   val ) ) 
( else    (scan   ( cdr  vars )    (cdr  vals))))) 
(if    ( eq?   env  the -empty- environment ) 

(error   "Unbound  variable :    SET ！ "   var ) 
(let    ( (frame    (first-frame  env) ) ) 
(scan   (frame-variables   frame ) 
(frame-values  frame))))) 
(env - loop   env) ) 

変数 を 定義す るに は、 最初に その 変数の 束縛 を 最初の フレーム にて 探します。 

束縛が 存在 すれば 変更 を 行います。 （set-variable-value! と 同様です)。 その 
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よ う な 束縛が な ければ 最初の フレーム に 追加 します。 

^define    (defme-variable  ！    var  val env) 
(let    ( (frame    (first-frame   env) ) ) 
(define    (scan  var s   vals ) 
( cond   ( (null?   var s ) 

( add - binding -" to -： frame !    var  val  frame ) ) 
( ( eq?   var    ( car  var s ) )    ( set-car ！    vals  val)) 
( else    (scan   ( cdr  vars )    ( cdr  vals ) ) ) ) ) 
(scan    (frame-variables   frame )    (frame-values   frame ) ) ) ) 

ここで 記述され た 手法 は 環境 を 表現す る 多くの もっともな 方法の 1 つで しか 
あり ません。 データ 抽象化 を 用いて 評価 機の 他の 部分 を 表現の 詳細な 選択から 

分離した ので、 もし 望めば 環境の 表現 を 変更す る ことが 可能です。 （Exercise 
4.11 参照)。 実 運用 品質の Lisp システム では 評価 機の 環境 向け 命令の ス ピー ド 
がー 特に 変数 探索の 物が 一 システムの パフォーマンスに 主に 影響 を 与えます。 
ここで 説明され た 表現 は 概念 上 シンプルで はあり ます 力 尺 効率的で はなく 通常 
は 実 運用 システム では 用いられません。 15 

Exercise  4.11: フレーム を リストの ペアと 表現す る 代わりに、 フレ 
ームを 束縛の リストと して 表現 可能で ある。 この場合、 各 束縛 は 
名前と 値の ペア だ。 環境の 命令 を 書き換え この 代替 表現 を 用いる 
ようにせ よ。 

Exercise  4.1z: キ fe;  set- variable- value  ！ ,  define  一  variable  ！ , lookup- 
variable-value は 環境の 構造 を 縦断す るた めの よ り 抽象的な 手続 
を 用いて 表現す る ことができる。 共通な パターン を 捕える 抽象化 
を 定義し、 3 つの 手続 を こられの 抽象化 を 用いて 再定義せ よ。 

Exercise  4.13:  Scheme は define を 用いて 新しい 束縛 を 作成す る 

ことができる。 しかし 束縛 を 取り除く 手段 は 提供し ない。 評価 機 
に 特殊 形式 make — unbound! を 実装せ よ。 これ (ま make — unbound! が 

評価 された 環境から 与えられた シン ボルの 束縛 を 削除す る。 この 
問題 は 完全 に は 指示され ていない。 例 え ば 環境の 最初 の フレーム 


15 この 表現の 欠点 は （Exercise  4.11 の 亜種 も 同様に） 評価 機が 与えられた 変数 を 見つけ 
るた めに 数多くの フレーム を 探索し なければ ならない かも しれない 点です。 （このような 
取り組み 方 は deep  MruKri3( 深い 束縛） と 参照され ます)。 この 非 効率 性 を 防ぐ 1 つの 方法 
は lexical  addressing (レ キシ： h ) レア ド レ ッ シン グ） と 呼ばれ Section  5.5.6 にて 議論され ま 
す。 
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の 束縛の み を 削除す るべき だろう か？ 仕様 を 完成 させ あなたが 行 
つた 選択に ついて 理由 を 述べよ。 

4.1.4 評価 機 を プログラム として 実行す る 

評価 機 を 与えられた ことで、 Lisp 式が 評価され る プロセスの （Lisp で 表現 
された） 記述 を 手中にしました。 評価 機 を プログラム として 表現す る ことの 利 
点の 1 つ は プログラム を 実行で きる ことです。 これにより Lisp の 中で 実行す 
る ことで Lisp 自身が どのよう に 式 を 評価す るの かにつ いての 実行 モデル を 得 
る ことができました。 こ れは 評価 ルール を 検証す る フレームワークの 役割 を果 
たします。 実際に この 章の 後の方で 行います。 

評価 機 プログラム は 式 を 究極 的に は プリ ミ ティ ブな 手続の 適用まで 簡約し 
ます。 従って 評価 機 を 実行す るのに 必要な もの 全て は 基盤 を 無す Lisp シス テ 
ムを 呼び出す 仕組み を 作成す る ことで プリ ミ ティ ブ 手続の 適用 を モデル 化する 
こ と です。 

各 プリ ミ ティ ブな 手続の 名前の 束縛が 存在し なければ な リ ません。 そのた 
め eval が プリ ミ ティ ブの 適用の 命令 を 評価す る 時、 apply に 渡す オブジェ ク 
トを 見つけます。 従って 私達 は 評価しょう とする 式の 中に 現れる ことが 可能な 
プリ ミ ティブな 手続の 名前と 独自の オブジェ ク トを 関連 付けす る グローバル 環 
境 を 設定し ます。 グローバル 環境 はまた シンボル true と false のた めの 束縛 
も 含めます。 そうする ことで それらが 評価され る 式の 中で 変数と して 利用す る 
ことができます。 

^define    ( setup -environment ) 
Viet    " initial - en v 

( extend- environment    (primitive-procedure-name s ) 

(primitive -; procedure - objects) 
the -empty- environment ) ) ) 
(define-variable ！    1  true   true   initial - env) 
(define-variable ！    1  false  false   initial - env) 
initial - env) ) 

( def ine   the -global- environment    ( setup- environment ) ) 

どのように プリ ミ ティブ 手続 オブジェ ク トを 評価す るか は、 apply が それら を 手 
続 primitive-procedure? と applv — primitive  —  procedure を 用レヽ ご 判別で さ 
る限リ 問題で はあり ません。 私達 は プリ ミ ティ ブな 手続 を シンボル primitive 
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で 始まり、 その プリ ミ ティブ を 実装す る 低層の Lisp の 手続 を 含む リストと し 
て 表現す る こと を 選択し ました。 

、 define    (primitive-procedure?  proc ) 

に" tagged - li st?  proc    ' primitive ) ) 
(define    (primitive- implement at  ion  proc )    ( cadr  proc)) 

setup-environment は プリ ミ ティ ブの 名前と 実装 手続 を リストから 得ます。 16 

v. def ine  primitive -procedures 
、丄 ist    (list    1  car   car ) 
(list    ' cdr   cdr ) 
(list    1  cons   cons ) 
(list    'mill?  null?) 
(more  primitives) ) ) 
( def  ine  (primitive-procedure-names) 

(map   car  primitive -procedures ) ) 
( def  ine  (primitive-procedure-objects) 

(map   ( lambda   (proc ) (list    1  primitive    ( cadr  proc))) 
primitive-procedures ) ) 

プリ ミ ティ ブ 手続 を 適用す るた めに は 単純に 実装 手続 を 引数に 対して 低層の 

Lisp システム を 用いて 適用し ます。 17 

(, def  ine    (  applv-primitive -procedure  proc   args  ) 


16 低層の Lisp で 定義され る 任意の 手続 はメ タ 循環 評価 機の プリ ミ ティブと して 使用で 
きます。 評価 機に インストール される プリ ミ ティ ブの 名前 は 低層の Lisp における 実装の 
名前と 同じで ある 必要 はあり ません。 こ こ で 名前が 同 じな の は メタ 循環 評価 機が Scheme 
それ 自身 を 実装す るた めです。 従って 例えば （list  'first  car) や （list  1  square 
(lambda  (x)   (*  x  x))) を primitive-procedures に 入れる こと もで きたでしょう。 

1 7 apply- in-under ly ing-s cheme は 前の 章で 使用した apply 手続です。 メ タ 循環 評価 
機の apply 手続 （Section  4.1.1) はこの プリ ミ ティブの 動き 方 を モデルに しています。 2 
つの 異なる apply と 呼ばれる 物 を 持つ こと は メタ 循環 評価 機 を 実行す るに おいて 問題へ 
と 導きます。 メタ 循環 評価 機の apply を 定義す る ことが プリミティブの 定義 を 隠して し 
まうた めです。 これ を 回避す る 1 つの 方法 はメ タ 循環の apply を リネーム する ことで プ 
リ ミ ティ ブ 手続の 名前との 衝突 を 避ける こ とです。 私達 は その 代わ リ に 下層の apply へ 
の 参照 をメ タ 循環の apply を 定義す る 前に 以下の よう にす る ことで 保存し ま した。 

t,  def  ine  applv-in-under lying- scheme  apply ) 

これで 元の 版の apply に 異なる 名前で アクセス できる ようにな リ ました。 
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( apply- in-underlying- scheme 
(primitive-implement at  ion  proc )    args ) ) 

メタ 循環 評価 機 実行時の 利便 性の ために、 低層の Lisp システムの read- eval- 
print  loop  (REPL: レ プル） を モデルに した dri"er  loop( ドライバ ループ） を 提供 
します。 これ は promjrf (プロンプト） を 表示し、 入力 式 を 読み込み、 この 式をグ 
ロー バル 環境の 中で 評価し、 結果 を 表示し ます。 私達 は 各 表示され た 結果の 前 
に output  prompt [出力 プ ノ プト) を 置きます。 そうする ことで 式の 値 を 他の 
表示され るか も しれない 出力から 判別す るた めです。 18 

dei ine input-prompt      "  ；  ；  ；    M-Eval   input  ： " ) 
dei ine   out uut -prompt    "  ;  ;  ;    M - Eval  value:1') 
( dei ine    (driver-loop ) 

(prompt-f or- input   input-prompt ) 
(let    ( ( input    (read) ) ) 

(let    ( ( output    (eval   input   the -global -environment ) ) ) 
( announce -output   output -prompt ) 
(user-print   output ) ) ) 
( driver-loop ) ) 
( dei ine    (prompt-f or- input  string) 

(newline )    (newline )    (display   string)    (newline ) ) 
( dei ine    ( announce -output  string) 

(newline )    (display   string)    (newline ) ) 

私達 は 特別な プリ ン ト 手続、 user-print を 使用し ます。 これ は 複合 手続の 環境 
部分 を 表示す るの を 防ぐ ためです。 これ はとても 長い リストに 成り 得ます。 （ま 
たは さらに ループ を 含んで いるか もしれ ません。 ） 

dei  ine    (user  -  print  object) 
v.  if    (  compound  -  procedure  r   object ソ 

(display   (list    1  compound-procedure 

(procedure -parameters   ob j  ect ) 
(procedure -body  ob j  ect ) 
' <procedure-env> ) ) 


18 プリ ミ ティ ブな 手続 read はュ一 ザからの 入力 を 待ち、 次の 入力され た 完全な 式 を 返 
します。 例えば もし ユーザが （+  23  x) と 入力した 場合、 read は 3 つの 要素、 シンボル 
+、 数値 23、 シンボル x を 含む リスト を 返します。 もし ユーザが 'x と 入力したなら！ "ead 
は 2 つの 要素、 シンボル quote と シンボル x を 含む リスト を 返します。 
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(display  object))) 


これで 評価 機 を 実行す るのに 必要な こと は グロ一 バル 環境の 初期化と ドライバ 
—ループの 開始の みです。 以下が サンプルの 応答です。 

def ine   the 一 global 一 environment    (  setup- environment  ) ) 
( driver-loop ) 
； ； ； M-Eva I  input : 
( def  ine    ( append  x  y ) 
(if    (null?  x) 

y 

( cons    ( car  x)    ( append   ( cdr  x)   y ) ) ) ) 
； ； ； M-Eval  value: 
ok 

； ； ； M - Eva  I  input : 

( append    ' (a  b  c)    ' (d  e  f ) ) 

； ； ； M  -  Eva  I  value: 

(a  b  c  d  e  f) 

Exercise  4.14:  Eva  Lu  Ator と Louis  Reasoner は それぞれ 言 平価 機 
を 検証して いる。 Eva は map の 定義 を 入力 しいくつ かそれ を 用い 
る テスト プログラム 実行して いる。 それら はう まく 動いた。 Louis 
は 逆に map の システム 版 を メタ 循環 評価 機の プリ ミ ティ ブと して 
導入した。 彼が それ を 確かめた 時、 全くう まく 動かなかった。 なぜ 
Eva はう まく 行った のに Louis の map は 失敗す るの か。 説明せ よ。 

4.1.5 プログラム としての データ 

Lisp 式 を 評価す る Lisp プログラム について 考える ことにお いて、 例え はと 
て も 良い 手助けになる でしよう。 プログラムの 意味に ついての 命令 上の 視点の 
1 つに、 プログラム は （恐らく 無限に 大きな） 抽象 機械の 記述で あると いう 物が 
あり ます。 例えば 階乗 を 計算す る 親しみの ある プログラム について 考えて みま 
しょう。 

V def ine   (factorial n; 

(if    (=  n 1) 1 (*    (factorial (- n 1)) n))) 
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Figure  4.2: 抽象 機械と して 見た 階乗 


私達 はこの プログラム を 減算、 乗算、 等価 試験の 部品と 一緒に 2 つの 位置 を 持 
つ スィッチと 他の 階乗 機械 を 含める 機械の 説明で ある と 見做す こ と がで きる で 
しょう。 （階乗 機械 は 無限です。 他の 階乗 機械 を その 中に 含んで いるた めです)。 
Figure  4.2 は 階乗 機械の 流れ図で あ り その 部品が どのよう にお 互いに 接続され 
ている か を 示して います。 

同様な 方法で、 評価 機 を 入力と して 機械の 説明書 を 取る とても 特殊な 機械 
だと 見做す ことができます。 この 入力 を 与えられ ると、 評価 機 は それ 自身 を 記 
述 された 機械 を 真似る ように 設定し ます。 例え ば も し 評価 機 に Figure  4.3 で 示 
される factorial の 記述 を 与えれば、 評価 機 は 階乗の 計算が できる よ う にな リ 
ます。 

こ の 視点 か ら は、 私達の 評価 機 は Mniwrsd  mac/ime (万能 機械） であると 見 
えます。 他の 機械が Lisp にて 説明され る 時、 それ を 真似します。 19 これ は 特筆 


19 機械が Lisp で 記述され ると いう こと は 本質で は あ リ ません。 も し 私達の 評価 機に C 
言語の 様な 他の 言語の ための 評価 機と して 振る舞う Lisp プログラム を 与えた 場合、 Lisp 
評価 機 は C 評価 機の 真似 をし ます。 それ は 順に、 C 言語で 記述され た 任意の 機械の 真 
似が 可能です。 同様に C で 書かれた Lisp 評価 機 は 任意の Lisp プログラム を 実行で き 
る C の プログラム を 生成し ます。 ここでの 深い 意図 は 評価 機 は 任意の 他の物 を 真似で 
きる ことです。 従って" 原理 上、 何が 計算で きる のか" という 概念 （必要な 時間と メモ 
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すべき ことです。 電子回路 向けの 同等な 評価 機に ついて 想像す る こ と を 試して 
みて 下さい。 入力と して フィルタの ような ある 他の 回路の 計画 を 符号化した 信 
号 を 取る 回路になる でしよう。 この 入力 を 与えられて、 回路 評価 機 は そこで 記 
述と 同じ フィルタ のように 振る舞う でしよう。 そのような 万能 電子回路 は ほと 
ん ど 想像 不可能な ほ ど 複雑です。 プロ グラム 評価 機が とて も 簡単な プロ ダラ ム 
である こと は 特筆に 値します。 20 

も う 1 つの 特筆すべき 評価 機の 側面 は それが プロ グラ ミ ング 言語に より 操 
作され る データオブジェクトと プログラミング 言語 それ 自身との 間の ブ リツ ジ 

(橋） と して 働く ことです。 （Lisp で 実装され た） 評価 機 プログラムが 実行中で あ 
リ 、 ユーザが 式 を その 評価 機 に 入力し 結果 を 観察して いると 想像 してみ て 下さ 
い。 ユーザの 視点から は （*  x  x) の 様な 入力 式 は プログラミング 言語に よる 式 
であり、 評価 機が 実行すべき 物です。 しかし、 評価 機の 視点から は 式 は 単純な 
リスト （この場合 では シンボル *，  x,  x の リスト） であり、 これ は 明確な ルール 
集合に 従って 操作され ねばならぬ 物です。 

ユーザの プロ グラムが 評価 機の データ だ という こと は 混乱の 元 と なる 必要 
はあり ません。 実際に、 時々 はこの 区別 は 無視した ほうが 便利です。 そして ユー 
ザに 対し 明示的に データ オブジェ ク トを Lisp の 式と して 評価す る 能力 を eval 
手続 を プロ グラ ム 中で 使用で きる ようにす る ことで 与える こと もま た 便利な こ 


リ の 実現 性 は 無視） は 言語 や 計算機に 非 依存です。 その 代わ り に 根底 を 成す 概念で ある 
comjmtaM な;/ (計算 可能性） を 反映し ます。 これ は 最初に Alan  M.  Turing  (1912-19541 に 
よ リ 明確に 証明され ました。 彼の 1936 年の 論文 は 計算機 科学 理論の 基礎 を 導きました。 
この 論文で チューリ ングは 簡素な 計算 モデル 一 今日、 Turing  machine (チューリング マ 
シン） として 知られる 一 を 公開し、 任意の" 実効 的な 処理" は そのような 機械の プロ グラ 
ム として 定式化で きる と 主張し ました。 （この 論拠 は C7i«rc/i- Turing  thesis (チャーチ ■ チ 
ュ 一リングの テーゼ、 または 提唱） として 知られます)。 チューリング は 次に 万能 機械、 即 
ち チューリ ング マシン 向け プログラムの 評価 機と して 振る舞う チューリ ング マシン を 実 
装し ました。 彼 はこの フレームワーク を 用いて チューリ ング マシンで は 計算で きない 上 
手く 設定され た 問題が 存在す る こと を 証明し ました。 （Exercise  4. 15 参照)。 そのため 暗に 
"実効 的な 処理" として 定式化で きない 問題の 存在 も 示した のです。 チューリング は 実用 
的な 計算機 科学への 基礎的な 貢献の 行い も 続けました。 例えば 彼 は 汎用 目的 サブ ルー チ 
ンを 用いて 構造 化 プログラミングの 考え を 発明し ました。 チューリングの 経歴に ついて 
は Hodges  1983 を 参照して 下さい。 

20 ある 人々 は 比較的 単純な 手続に ょリ 実装され た 評価 機が 評価 機 それ 自身よ り 複雑な 
プロ ダラ ムの 真似が で きる こと が 直感的で ない と 感じ ま し た。 万能 評価 機械の 存在 は 深 
く、 そして 素晴 しい 演算 処理の 特性です。 Recursion 仏 eon/ (再帰 理論） は 数理論理学の 1 
部門で あり、 演算 処理の 論理 上の 制約に 関係し ます。 Douglas  Hofetadter (ダグラス ホフ 
ス タッタ 一） の 美しい 本 Gddd,  Escher,  _Bac ん (邦題： ゲーデル エッシャー バッハ） はこれ 
らの 考えの いくつか について 探求し ます。 （Hofstadter  1979) 
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eval 

(define  (factorial n) 
(if  (=  n 1) 
1 

(*  (factorial (- n 1)) n))) 


Figure  4.3: 階乗 マ シ ン を 真似す る 評価 機 


とです。 多くの Lisp 方言 は 引数と して 式と 環境 を 取り、 その 環境に 関連して そ 
の 式 を 評価す る プリ ミ ティブな eval 手続 を 与えます。 21 従って、 

{.  eval ' 5  5;    us er- init  ial- environment ) 

と 

( eval ( cons    ' *    (list   5  5) )    user- init  ial -environment ) 

の 両方 は 25 を 返します。 22 

Exercise  4.15: 1 引数 手続 p とォ ブジェク ト a を 与えられた 時、 式 
(p  a) 力 《 （エラーメッセージ や 無限に 停止し ない 場合と は 対照的 
に） 値 を 返す 場合に、 p は a に対して "halt" (停止） すると 呼ばれ 
る。 p が a に 対し 停止す るか どうか を 任意の 手続 p と 任意の ォ ブ 
ジェク ト a に対して 正確に 決定す る 手続 halts? を 書く こと は 不可 

21 警告 ： この eval プリ ミ ティ ブは 私達が Section  4.1.1 で 実装した eval 手続と は 異な 
ります。 それ は 私達が Section  4 丄 3 で 構築した サンプルの 環境 構造で はなく、 実際の 
Scheme 環境 を 用いる ためです。 これらの 実際の 環境 は ユーザに よ リ 通常の リストと して 
操作す る こと はでき ません。 それら は eval により アクセスされ るか、 他の 特別な 命令 を 
用います。 同様に 以前に 見た apply プリミティブ も メタ 循環 apply と は 異なります。 そ 
れが 私達が Section  4.1.3 と Section  4.1.4 で 構築した 手続 オブジェ ク ト ではなく、 実際の 
Scheme 手続 を 用いる からです。 

22 Scheme の MIT 実装 は eval と 同様に ユーザの 入力 式が 評価され る 初期 環境に 束縛 さ 
れるシ ノ； ノレ user— initial— environment も 台' みま も 。 
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能で ある こと を 示せ。 以下の 推測 を 用いろ ： もし そのような 手続 

halts? が 存在す るなら 以下の プログラム を 実装で きる だろう。 

( def ine    (,run-f  orever  )    (  run-forever  ) ) 
(define    (try  p) 

(if    (halts?  p  p)    ( run-f orever )    1  halted ) ) 

ここで 式 （try  try) の 評価に ついて 考え、 どんな 可能な 結末 （停 
止す るか、 無限に 実行す るか） も halts? の 意図した 振舞に 違反す 
る こと を 示せ。 23 

4.1.6 内部 定義 

私達の 評価の 環境 モデルと メ タ 循環 評価 機 は 定義 を 順に 実行し、 環境の フ 
レーム を 1 度に 1 定義 づっ 拡張し ます。 これ は インタラクティブな プログラム 
開発に 対して は 特に 便利です。 その場合には プログラマ は 自由に 手続の 適用 を 

新しい 手続の 定義に 混ぜる 必要が あります。 しかし、 （Section  1.1. 8 で 紹介され 
た） ブロック 構造 を 実装す るた めに 用いられた 内部 定義に ついて 注意 深く 考え 
て みれば、 環境の 名前 毎の 拡張 は ローカル 変数の 定義に 最良の 方法で はない の 
ではと 気付く のではないでしょう 力 \ 

内部 定義 を 伴な う 以下のような 手続に ついて 考えて みます。 

(, def  ine   (f  x) 

(define  (even?  n)  (if  (=  n  0)  true  (odd?  (-  n 1)))) 
(define  (odd?  n)  (if  (=  n  0)  false  (even?  (-  n 1)))) 
(rest  of  body  of  f) ) 

ここでの 意図 は 手続 even? の ボディ 内の 名前 odd? は even? の 後に 定義され た 
手続 odd? を 参照し なければ なり ません。 名前 odd? の スコープ は f の ボディ 全 
体で あり、 odd? の 定義が 起こった 箇所から 始まる f の ボディの 一部分で は あ 
リ ません。 実際に odd? がそれ 自身 even? を 用いて 定義され ている ことにつ い 
て 考える と  一 even? と odd? は 相互 再帰 手続で あ リー 2 つの define を 満足 さ 
せる 解釈 は それら を 名前 even? と odd? が 環境に 同時に 追加され たと 見做す こ 

23halts? が 手続 ォ ブジェク トを 与えら えたと 規定した が、 こ の 推測が 例 え halts? が 
手続の テキス ト とその 環境への アクセス を 得る ことが 出来る としても 依然として 適用で 
きる ことに 注意せ よ。 これ は チューリ ングの 著名な Halting で/ leorerra (停止 性 問題） であ 
リ、 non-comjmtaWe (計算 不可能） な 問題の 最初の 明確な 例 を 与える。 言い換えれば、 計 
算 手続と して 実行 不可能な うまく 設定され た 課題で ある。 
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とのみ だと わかります。 より 一般的に は、 ブロック 構造に おいて、 ローカルな 

名前の スコープ は define が 評価され た 手続の ボディ 全体 だとい うこと です。 

偶然に も 私達の ィ ンタプ リタ は f の 呼 出 を 正確に 評価し ます。 しかし "予想 
外" の 理由の ためです。 内部 手続の 定義が 最初に 来る ため、 これらの 手続への 
呼 出 は それらの 全てが 定義され るまで 起こ り ません。 従って odd? は even? が 
実行され た 時に 定義され るので す。 内部 定義が ボディの 最初に 来て 定義され た 
変数の 値の 式の 評価が 実際に は どの 定義され た 変数 も 用いない 任意の 手続に 対 
し 直接、 同時 定義 を 実装す る 仕組みと、 私達の 逐次 的な 評価 システムの 仕組み 
は 実際に 同じ 結果 を 与えます。 （これらの 制限に 従わず、 その 結果 逐次 定義が 同 
時 定義と 等価で ない 手続の 例に 対して は Exercise  4.19 を 参照して 下さい)。 24 

しかし 内部 定義の 名前が 真に 同時に スコープ を 持つ ようになる 簡単な 定義 
の 扱い方 が 存在 します。 単に 現在の 環境に 入る ことになる 全ての ローカル 変数 
を どの 値の 式が 評価され るよりも 早く 作成す る ことです。 これ を 行う 1 つの 方 
法 は lambda 式 上の 構文 変形に ょリ ます。 lambda 式の ボディ を 評価す る 前に、 
ボディの 中の 全ての 内部 定義 を 走査し、 削除し ます。 内部で 定義され た 変数 は 
let を 用いて 作成され、 次に 代入 を 用いて それらの 値に 設定され ます。 例えば、 
以下の 手続 は、 

、 lambda  ( vars) 
( def  ine  u  (el) ) 
(define  v  (e2)) 
〈e3〉） 

以下の 形式に 変形され ます。 

( lambda  (vars) 

、丄 et    "u    1  *unass igned*  ) 
( v    1 *unassigned* ) ) 
(set  ！   u  {el}) 
(set  ！    v  (e2)) 

24 プロ グラ ム に この 評価の 仕組みに 依存して 欲 し く ない という のが Chapter 
1 の Footnote  28 での 見解、 "管理 は 責任 を 取れない，， に対する 理由です。 これ を 主張 
する ことで 内部 定義 は 最初に 来て、 定義 中で お 互い を 定義が 評価され ている 間に 使用 は 
しません。 Scheme の IEEE 標準 は 実装 者に これらの 定義の 評価に 用いられる 仕組みに つ 
いて 幾つかの 選択 を 残します。 別の ルールで はなく ある 評価 ルール を 選択す る こと はこ 
こで は "悪い 形式" の プログラムの 解釈の みに 影響す る 小さな 問題に 見える かも しれ ませ 
ん。 しかし Section  5.5.6 では 同時に 内部 定義 を 行う モデルへの 移行が、 そうしなければ コ 
ン パイ ラの 実装に て 起こ リ 得る 意地の 悪い 問題 を 防ぐ こと を 学びます。 
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(e3))) 

ここで *UnaSSigned* は 特別な シンボル であ リ 、 変数が 調べられた 時に も し ま 
だ 値が 割り当てられ ていない 変数 を 使用しょう としたならば エラー を 発せ させ 
ます。 

内部 定義 を 全て 走査す る 方法の 代替と なる 戦略 は Exercise  4.18 にて 示され 
ます。 上で 示された 変形と は 異なり、 これ は 定義され た 変数の 値が その 変数の 
どんな 値 も 用いずに 評価で きる という 制約 を 強制し ます。25 

Exercise  4.16: この 課題で は 内部 定義 を 逐次 実行す るた めについ 先 
程 説明され た 手法 を 実装す る。 評価 機 は let を サポート すると 仮 
定 する。 （Exercise  4. 6 参照） 

a lookup-variable-value  (Section  4.1.3) を 変更して もし 見つ 
けた 値が シンボル *unasSigned* な ら エラー を 発する ように 

する。 

b 手続の ボディ を取リ 内部 手続 を 持たない 同等な 手続 を 返す 手 
続 scan-out-defines を 上で 説明 さ れた 変形 を 作成す る こ と 
により、 書け。 

c  scan-out-defines をつ ノ タフ リタの make-procedure また 
は procedure-body  (see  Section  4.1.3) の 中に 導入せ よ。 どち 
らの 場所が 良い か？ それ は 何故か？ 

Exercise  4.17: この 本の 手続の 式 〈& 3〉 の 評価 を 実施して いる 時の 
環境 図 を 書く ことで、 定義が 逐次 的に 翻訳され た 時に どの ように 
構築され るかと、 定義が 説明され たように 走査され た 場合に どの 
ように 構築され るかとの 違い を 比較せ よ。 変形され た プログラム 
に は なぜ 余分な フレームが 存在す るの か？ 環境 構造 内の この 違い 
が 正しい プログラムの 振舞に 違い を 起こさない のか 説明せ よ。 ィ 
ンタプ リタに 内部 定義の "同時" スコープの ルール を 余分な フレー 
ムの 構築 成しに 実装させる 方法 を 設計せ よ。 

Exercise  4.18: テキス トの例 を 以下の 様に 変形す る 定義の 走査に 対 

する 代替と なる 戦略 を 考えよ。 


25 Scheme の ieee 標準 はこの 制約 を 強制す る 実装に まかせる ので はなく、 プログラマ 
に対して この 制約に 従う か を まかせる と 指定す る ことで、 異なる 実装 戦略 を 許して いま 
す。 MIT  Scheme を 含む いくつかの Scheme 実装 は 上で 示された 変形 を 用いて います。 従 
つて この 制約に 従わない プログラム は 実際に は そのような 実装の 下で は 動作し ます。 
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( lambda  (vars) 

(let    ( (u    1 *unassigned* ) 
( v    ' *unassigned* ) ) 
(let   ((a  (el)) (b  (e2))) 
(set ！    u  a) 
(set ！    v  b) ) 
(e3))) 

ここで a と b は 新しい 変数の 名前 を 表現す る こと を 意味し、 インタ 
プ リタに より 作成され、 ユーザの プログラムに は 現れない。 Section 
3.5. 4 の solve 手続に ついて 考える。 

^define    ( solve ェ yO  dt ) 

(define     y   ( integral    (delay  dy ;   yO  dt ) ) 
(dei ine   dy    ( stream-map  f  y ) ) 

y) 

この 手続 はこ の 課題に 示 された よう に 内部 定義が 走査 さ れた 場合 
にうまく 動く だろう か？ テキストに 示された ように 走査され た 場 
合 に は 動 くだろう か? 説明せ よ 。 

Exercise  4.19:  Ben  Bitdiddle,  Alyssa  P.  Hacker,  Eva  Lu  Ator の 
3 人 は 以下の 式 を 評価した 場合の 望まれた 結果に ついて 議論して 
いる。 

(let  ((a 1)) 
(define   (f  x) 

(define  b   (+  a  x ) ) 

(define  a  5) 

(+  a  b)) 
(f 10)) 

Ben は 結果 は define に対する 逐次 的 実行の ルール を 用いて 得ら 
れ るべき だと 主張した。 b は 11 に 定義され、 a は 5 に 定義され る。 
従って 結果 は 16 である。 Alyssa は 相互 再帰 は 同時 スコープの ルー 
ルが 内部 手続 定義に 要求され る と して 異議 を 唱えた。 手続の 名前 
を 他の 名前 か ら 異な つて 扱 うの は 不合理 だ。 従って 彼女 は Exercise 
4. 16 で 実装され た 仕組みに 賛成した。 これ は a がわ の 値が 計算され 
る 時点で は 割り当てられて いないと いう 結論に 導く だろう。 従つ 
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て Alyssa の 視点で は 手続 は エラー を 生じなければ ならない。 Eva 
は 3 つ 目の 立ち 位置 を 取る。 彼女 はも し a と b の 定義が 真に 同時 
である こと を 意味す るので あれば、 a に対する 値 5 は b の 評価に て 
用いられるべき であると 述べた。 従って Eva の 視点で は a は 5 で 
なければ ならず、 b は 15 でなければ ならない。 そして 結果 は 20 に 
ならなければ ならない。 （もし 同意す るな ら ）3 人の 視点で あなた は 
どれ を 支持す るの か？ あなた は Eva が 好 ん だよう に 振る舞う 内部 
定義 を 実装す る 方法 を 考案で きる か?26 

Exercise  4.20: 内部 定義 は 逐次 的に 見える が 実際に は 同時で ある 

ため、 いくらかの 人々 はこれ を 完全に 回避す る ほう を 好む だろう。 
そ して 特殊 形式 letrec を 代わ リ に 用いる。 letrec は let に似て 
いるた め、 それが 束縛す る 変数が 同時に 束縛され お 互いに 同じ ス 
コープ を 持つ こと は 不思議で はな いだろう。 上記の サン プル 手続 f 
は 内部 手続 を 用いずに、 しかし 全く 同じ 意味 を 持つ ように 書く こ 
とがで きる。 

(, def ine   (f  x) 
(letrec 

((even?    "ambda  (n) 

(if    (=  n  0) 
(odd?     (lambda  (n) 

(if    (=  n  0) 
(rest  of  body  of  f) ) ) 

letrec 式 は 以下の 形式 を 持つ。 

( letrec  ( (.  {vari)  (expi))  ...  ( (varn)  (expn) ) ) 
{body}) 

letrec 式 は let の 亜種で あり、 変数く 《arfc〉 に 初期値 を 与える 式 
〈e ゆ fc〉 は、 全ての letrec の 束縛 を 含む 環境に て 評価され る。 これ 
は 上の 例に おいての even? と odd? の 相互 再帰の ような 束縛の 中 
での 再帰 を 許す。 または 以下の 様な 10 の 階乗の 評価 も 可能で ある。 

26MIT  Scheme の 実装 者 達 は 次の 根拠に 従って Alyssa を 支持す る。 Eva は 原理 上 は 正 
しい。 定義 は 同時 だと 見做されるべき だ。 しかし Eva が 要求す る こと を 行う 一般的で か 
つ 効率的な 仕組み を 実装す る こと は 難しく 見える。 そのよう な 仕組みが 不足 している 状 
況 では、 同時 定義の 難しい 場合に ついては エラー を 生成す る ほう 力 《 （Alyssa の 意見)、 正 
しくない 答 を 生成す るよりも （Ben の 様に）、 より 良いだろう。 


true      (odd?      (-  n 1))))) 
false    (even?    (-  n 1) ) ) ) ) ) 
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( letrec 

( (fact    (lambda  (n) 

(if    (=  n 1) 1 (*  n   (fact    (-  n 1))))))) 
(fact 10) ) 


a letrec を 派生 式と して 実装せ よ。 letrec 式 を let を 上で 示 
したよう に、 または Exercise  4. 18 の 様に 変形す る ことで 行え。 
即ち、 letrec の 変数 は let を 用いて 作成し なければ ならず、 
そして 次に それらの 値 を set! で 代入す る こと。 

b  Louis  Reasoner は 内部 定義に 関する この 全ての 空騒ぎに より 
混乱して しまった。 彼の 見解 は、 もし 手続の 中での define の 
使用 を 好まない ので あれば、 単に let を 使える ので はない か 
である。 彼の reasoning (推測） の 何が 緩い のか を、 この 課題と 
同様に 定義され た f を 用いて、 式 （f  5) の 評価の 間に (jest 
of  body  off) が 評価され た 環境 を 示す 環境 図 を 書く ことによ 
つて 説明せ よ。 同じ 環境の、 ただし f の 定義 中の letrec の 
場所に let を 用いた 場合の 環境 図 を 書け。 

Exercise  4.21: 驚くべき ことに、 Exercise  4.20 における Louis の 直 
感は 正しい。 letrec を （または define すら も） 用いずに 再帰 手続 
を 指定す る こと は 本当に 可能で ある。 しかし これ を 達成す る 手法 
は Louis が 存在した よ り もずつ と 繊細で ある。 以下の 式 は 10 の 階 
乗 を 再帰 階乗 手続 を 適用す る ことで 求めて いる。 27 

(, ( lambda  (,n) 

(, ( lambda   "act) に fact  fact  n) ; 
(lambda  (ft  k) 

(if    (=  k 1) 1 (*  k   (ft  ft    (-  k 1))))))) 

10) 

a  (式 を 評価す る ことで） これが 実際に 階乗 を 計算す る こと を 確 
認 せよ。 フィボナッチ 数 を 計算す る 同様な 式 を 工夫せ よ。 

27 この 例 は 再帰 手続 を define を 用いずに 定式化す るた めの プロ グラ ミ ング 上の 技 を 説 
明して います。 最も 一般的な この種の 技 は Y  operator(Y コンビネータ、 不動 点 演算子） 
です。 これ は" pure  A-calculus" (純粋 ラムダ 計算） による 再帰の 実装 を 与えます。 ひ 計算 
の 詳細に ついては Stoy  1977 を 参照して 下さい。 また Scheme による V" コンビネータの 
解説 について は Gabriel  1988 を 参照して 下さい。 
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b 以下の 手続に ついて 考える。 これ は 相互 再帰 内部 定義 を 含む。 


(define    (f  x) 

dei ine    (even?  n) 
(if    (=  n  0)    true      (odd?      (-  n 1)))) 
(define   (odd?  n) 

(if    (=  n  0)    false    (even?    (-  n 1)))) 
( even?  x) ) 

f の 代替 的な 定義 を 完成す るた めに 欠けて いる 式 を 埋めよ。 
これ は 内部 定義 も letrec も 使用して はいない。 

(,def ine    (f  x) 

( lambda  (even?  oad? )  even?  even?  odd?  x) ) 
(lambda   (ev?   od?  n) 

(if    (=  n  0)    true    (od?   (？? }  (？? }  {??)))) 
(lambda   (ev?   od?  n) 

(if    (=  n  0)    false    (ev?   く？？〉  {??}  {??>))))) 


4.1.7 構文 分析 を 実行から 分離す る 

上で 実装され た 評価 機 は 簡単です が、 非 効率です。 式の 構文 上の 分析が そ 
の 実行と 相互 配置され ている ためです。 従っても し プログラム が 何度 も 実行 さ 

れた 場合、 その 構文 は 何度も 分析され ます。 例えば 次の factorial を 用いて 
(factorial 4) を 評価す る こと を 考えて みて 下さい。 

(, def ine   (factorial nj 

(if    (=  n 1) 1 (*    (factorial (- n 1) ) n))) 

factorial が 呼ばれる 度に、 評価 機 は ボディ が if 式で ある こ と を 判断せ ね 
ばなら ず、 それから 述語 を 取り出します。 その後に のみ 述語 を 評価し その 値 
により 振り分けが 行えます。 式 （*  (factorial (- n 1)) n)、 または 部分 式 
(factorial (- n 1)) と （- n 1) を 評価す る 度に、 評価 機 は eval にて 状況 分 
析を 行い 式が 適用で あるか を 判断せ ねばならず、 また 演算子と オペ ラン ドの抽 
出 をせ ねばな りません。 この 分析 は コストが 高い のです。 これ を 繰り返し 実行 
する こと は 無駄が 多いで しょう。 
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評価 機 を 変形し 構文 上の 分析 をた つた 1 度の み 実行され るよう に 準備す る 

ことで 著しく 効率 良くす る ことができます。 28 私達 は 式と 環境 を 取る eval を 2 
つに 分けます。 手続 analyze は 式の み を 取ります。 構文 上の 分析 を 行い 新しい 
手続 execution  procedure (実行 手続) を 返します。 この 手続 は 分析され た 式 を 実 
行す る に おいて 行われた 結果 を 力 プセ ル化 します。 実行 手続 は 環境 を 引数と し 
て 取り 評価 を 完了し ます。 これ は 実行 手続が 何度も 呼ばれる のに 対し、 analyze 
が 式 に対して 1 度し か 呼ばれな いため 作業 量 を 減らせます。 

分析と 実行への 分離に 伴ない、 eval は 以下の 様にな リ ます。 


analyze の 呼 出の 結果 は 環境に 適用され る 実行 手続です。 analyze 手続 は Section 
4 丄 1 の 元の eval によ リ実 行され たのと 同じ 状況 分析です。 ただし 私達が 呼び 
出す 手続 は 完全な 評価で はな く 分析の み を 実行し ます。 


乂 analyze 一 se 丄: E 一 evaluating  exp; ) 

に quoted?   exp)    ( analyze -quoted  exp; ) 

( variable?   exp )    ( analyze - variable   exp ) ) 

( assignment?   exp)    ( analyze-as signment  exp)) 

(del mit ion?   exp)    (analyze - definition  exp)) 

に if?   exp )    ( analyze - if  exp)) 

( lambda?   exp)    ( analyze -lambda  exp) ) 

(begin?  exp) 

( analyze -sequence    (begin - act ions  exp))) 

( cond?   exp)    ( analyze    ( cond->if  exp))) 

( application?   exp)    ( analyze -application  exp)) 

else 

( error   " Unknown  expression  tvce :    ANALYZE "  exp)))) 


以下に 最も 簡単な 構文 分析 手続が あります。 これ は 自己 評価 式です。 環境 引数 
を 無視し、 ただ 式 を 返す 実行 手続 を 返します。 


28 この 技 は コンパイル 過程に 不可欠な 要素で あり、 Chapter  5 で 議論し ます。 Jonathan 
Rees は 1982 年頃に このような Scheme インタ プリ タを T プ ロジェ ク 卜の ために 書き ま 
した (Rees  and  Adams  1982)。  Marc  Feeley  (1986)  (Feeley  and  Lapalme  1987 も 参 fl) 
は 彼の 修士論文 にて 独力で この 技 を 発明し ました。 


(define    ( eval   exp   env)    ( ( analyze   exp)    env ) ) 


( def  ine 
( cond 


analyze  exp) 

( self -evaluating?  exp) 


( def  ine    ( analyze- self -evaluating  exp) 
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( lambda   ( env)    exp ) ) 

クオート された 式に 対して は その テキストの 取り出し を 実行 フェーズで なく、 
分析 フェーズで 1 度 だけ 行う ことで ほんの 少し 効率 良くす る こと がで きます。 

v. def ine    ( anal vze- quoted  exp ) 

(let    ( ( qval   (text-of-quotation  exp))) 
( lambda   ( env)  qval))) 

変数の 値の 探索 は 依然として 実行 フェーズで 行わねば なり ません。 これ は 環境 
を 知る ことに 依存す るた めです。 29 

^define    ( analvze - variable  exp) 

、丄 ambaa     env) ( lookup-van  able -value  exu  env) ) ； 

analyze-assignment もまた 実際の 変数の 設定 を 環境の 供給が 完了す る 実行時 
まで 遅らせなければ なり ません。 しかし assignment-value 式が 分析の 間に （再 
帰 的に） 分析され る こ と がで きる こと は 効率 を 大きく 向上し ます。 assignment- 
value  式 は 今 はた だ  1  度し か 分析され ないた めです。  同じ ことが 定義に 対して 
も 言えます。 

^define    (analvze- assignment  exp) 

、丄 et    、、var    ( assignment -van able   exo) ソ 

( vproc    ( analyze    ( as  signment- value  exp)))) 
( lambda   ( env) 

(set-variable-value ！    var    ( vproc   env)  env) 
'ok))) 

(define    (analyze - def inition  exp ) 

(let    ( ( var    (definition-variable   exp) ) 

(vproc    ( analyze    ( def init ion -value  exp)))) 
( lambda   ( env) 

( def ine-vari able ！    var    (vproc   env)  env) 
'ok))) 

if 式に 対して は 分析 時に 述語、 結果、 代替 を 取り出し 分析し ます。 
29 しかし、 構文 上の 分析の 部分に て 終わらせられる 変数 探索の 重要な 部分が ぁリ ます。 

Section  5.5.6 にて 示される ように、 環境 構造の 中で どこで 変数の 値が 見つかる か、 その 位 
置 を 決定す る ことが 可能です。 従って 変数に マッチす るェン 卜 リ のために 環境 を 走査す 
る 必要 を 防ぐ ことができます。 
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(define    (analyze - if  exp) 

(let    "pproc    ( analyze    ( if -predicate  exp))) 
( cproc    ( analyze    (if-c on sequent  exp))) 
( aproc    ( analyze    ( if - alternative  exp)))) 
( lambda   ( env)    (if    (true?    (pproc   env) ) 
( cproc  env) 
( aproc   env) ) ) ) ) 

lambda 式の 分析 も ま た 効率が 大 きく 向上し ます。 lambda の ボディ は 1 度し 
か 分析し ません。 例え lambda の 評価の 結果と しての 手続が 何度 適用 されても 
です。 

dei ine    (  analvze- lambda  exp  ) 
(let    "vars    ( lambda-parameters  exp)) 

(bproc    (analyze- sequence    ( lambda-body  exp)))) 
( lambda   ( env)    (make -procedure   var s  bproc  env)))) 

(begin や lambda 式の ボディ の 中と しての） 式の 列の 評価の 分析 はよ リ 必要と 
されます。 30 列の 各 式 は 分析され 実行 手続 を 生じます。 これらの 実行 手続 は 環 
境 を 引数と して 取り 順番に 各個 別の 実行 手続 を 引数と しての 環境と 共に 呼び出 
す 実行 手続 を 生成す るた めに 組み合わ せれます。 

dei  ine    (analvze- sequence   exps  ； 
( dei ine    (sequentially  proc 1 proc2 ) 

( lambda   ( env)    (proc 1 env)    (proc2  env))) 
( dei ine    (loop  f irst-proc   rest-procs ) 
(if    (null?   rest-procs ) 
f  irst-proc 

(loop    ( sequentially  f irst-proc    ( car  rest-procs ) ) 
( cdr  rest-procs ) ) ) ) 
(let    "procs    (map   analyze  exps))) 

(if    (null?  procs )    (error   " Empty  sequence :    ANALYZE " ) ) 
(loop    ( car  procs )    ( cdr  procs)))) 

適用 を 分析す るた めに は、 演算子と オペランド を 分析し、 演算子の 実行 手続 
を （実際に 適用され る 手続 を 得る ために） 呼び出し、 オペ ラン ドの 実行 手続 
を （実際の 引数 を 得る ために） 呼び出す 実行 手続 を 構築し ます。 次に これら を 

30 列の 処理に 関する 実態に ついては Exercise  4.23 を 参照して 下さい。 


422 


execute-application に 渡し ます。 これ は Section  4.1.1 の apply の 類似品で 
す。 execute-application は apply と は 複合 手続の ための 手続の ボディ が既 

に 分析され ている 点が 異なり ます。 そのため さらなる 分析の 必要性が あり ませ 
ん。 その代わりに、 ただ 拡張され た 環境 上の ボディに 対して 手続 実行 を 呼び出 
します。 

dei ine    (analvze-application  exp) 
、丄 et に、 fproc    ^ analyze    ( ODerat or  exp ) ; ) 

( aprocs    (map  analyze    ( operands  exp)))) 
( lambda   ( env) 

( execute- application 
( f proc   env ) 

(map   ( lambda   ( aproc )    ( aproc   env) ) 
aprocs ； ；;) ) 
( dei ine    (execute-application  proc   args ) 
( cond   ((primitive-procedure?  proc ) 

( apply-pr imit ive -procedure  proc   args ) ) 
( ( compound-procedure?  proc ) 
( (procedure -body  proc ) 
( extend- environment 
(procedure-parameters  proc ) 
args 

(procedure- environment  proc)))) 
(else 

( error   " Unknown  procedure   type : 
EXECUTE-APPLICATION" 
proc ) ) ) ) 

私達の 新しい 評価 機 は 節 Section  4.1.2,  Section  4.1.3,  Section  4.1.4 にある よ う 
に、 同じ データ 構造、 構文 手続、 実行時 サポート 手続 を 用います。 

Exercise  4.22: この 節の 評価 機 を 特殊 形式 let を サポートす るよ 
うに 拡張せ よ。 （Exercise  4.6 参照） 

txercise  4.2^:  Aiyssa  P.  Hacker は なぜ analyze—sequence 力 《そん 

な に 複雑に な るの か 理解で き なかった。 他の 分析 手続 全て は Section 
4 丄 1 の 対応す る 評価 手続 （または eval 節） の 簡単な 変形で ある。 彼 
女 は analyze-sequence は 以下の ようにな るので はと 予想 し た。 
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(define    (analyze- sequence   exps ) 

(define    ( exe cute -sequence  procs  env) 
( cond   ( (null?    ( cdr  procs)) 
((car  procs )  env)) 
( else 
((car  procs )  env) 

(execute-sequence    ( cdr  procs)  env)))) 
(let    ( (procs    (map   analyze  exps))) 
( if    (null?  procs ) 

(error   " Empty  sequence :    ANALYZE " ) ) 
(lambda   ( env)    (execute-sequence  procs  env)))) 

Eva  Lu  Ator は Alyssa に 対し、 テキス トの版 は 分析 時に 列 を 評価 
する 仕事よ り もより 多くの こと を 行って いると 説明した。 Alyssa 
の 逐次 実行 手続 は 個別の 組み込みの 実行 手続に 対する 呼 出 を 行う 
ので はなく、 複数の 手続 を 通して それら を 呼び出す ために ループ 
する。 実際に 列 内の 個別の 式 は 分析され るが、 列 それ 自身 は 分析 
されない。 

2 つの 版の analyze-sequence を 比較せ よ。 例と して、 列が ただ 1 

つの 式 を 持つ 場合に おいて （手続の ボディ 特有の） 共通な 場合に つ 
いて 考えよ。 Alyssa の プログラム により 生成され た 実行 手続 は ど 
のよう な 行い をす るか？ 上の テキス ト 内の プログラムで 生成され 
た 実行 手続に ついては どう 力、？  2 つの 版 は 2 つの 式 を 持つ 列に 対し 
て は どのように 比較され るか？ 

Exercise  4.24: 元の メ タ 循環 評価 機と この 節の 版の ス ピー ドを 比較 

する ための いくつかの 実験 を 設計し 実行せ よ。 あなたの 結果 を 用 
いて 種々 の 手続に 対して 分析 と 実行で 消費 された 時間 を 概算せ よ 。 


4.2  Scheme 上での バ リ ェ一シ ヨン 一 遅延 評価 

今や 私達 は Lisp プログラム として 表現され た 評価 機 を 得ました。 これで 言 
語 設計 上の 代替 となる 選択 を 単純 に 評価 機 を 変更す る こと で 試験す る こと がで 
きます。 実際に 新しい 言語 は 良く、 最初に 既存の 高級 言語の 中に 新しい 言語 を 
埋め込む 評価 機 を 書く ことで 開発され ます。 例えば も しわた したち が Lisp に 対 
する 変更の 提案の ある 側面に ついて Lisp コ ミ ュニ ティの 他の メンバと 議論し 
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たい 時に、 変更 を 組み込んだ 評価 機 を 与える ことができます。 受け手 はする と 
新しい 評価 機 を 持ちいて 実験 を 行い さらなる 変更と しての コメ ン ト を 返す こ と 
がで きます。 高 レベルな 実装 ベースが 評価 機の テス ト と デバ ッ グを よ り 簡単に 
する だけで はあり ません。 加えて 組 込む こと は 設計者に 対し 下層の 言語から 機 

能 を snarf する31 こと を 可能に します。 これ は 私達の 組 込 Lisp 評価 機が 下層の 
Lisp から プリ ミ ティ ブゃ コント ロー  ル 構造 を 使用す るのと 同じです。 設計者 は 
(も し 必要が あれば） 後で 低 レベル 言語 や ハー ドウ エアに て 完全な 実装 を 構築す 
る だけです。 この 節と 次で は Scheme の、 優位な 追加の 表現力 を 提供す るいく 
つかの バリエーション について 探求し ます。 

4.2.1 正規 順と 適用 順 

Section 1.1 では 評価の モデルに ついての 議論 を 始め ましたが、 Scheme 
は appKcafiw-order (適用 順序） 言語で あると 記しました。 即ち、 Scheme の 手続 
への 全ての 引数 は 手続が 適用され る 時に 評価され る、 と。 逆に、 normal-ordertJE 
規 順序） 言語 は 手続 引数の 評価 を 実際に 引数の 値が 必要と される まで 遅らせ ま 
す。 手続 引数の 評価 を 可能な 限リ 最後の 瞬間まで （例えば プリ ミ ティ ブ 命令に 
よ リ 必要と される まで） 遅らせる こと は fazj/  eirahtafion (遅延 評価） と 呼ばれ ま 
す。 32 以下の 手続に ついて 考えて みましょう。 

(define    (try  a  b)    (if    (=  a  0) 1 b) ) 

(try  0  (/ 1 0)) の 評価 は Scheme では エラー を 生成し ます。 遅延 評価で はェ 
ラー は 現れません。 その 式の 評価 は 1 になります。 なぜなら 絶対に 引数 は 評価 
されない ためです。 

遅延 評価 を 利用した 例で、 手続 unless の 定義です。 

def ine    (unless   condition  usual-value   exceptiona 丄ー value  ノ 
V if   condition  exceptional-value   usual-value ) ) 

これ は 以下の よ う な 式で 使用で きます。 

31 Snarf: "つかみ取る こと、 特に 巨大な 文書 や ファイル を 持ち主の 許可 を 得ても 得な 
くても 使う 目的の ため" SnarfDown:  "snarf する こと、 稀に 吸収す る、 処理す る、 また 
は 理解す るの 含意 を 持つ" （これらの 定義 は Steele  et  al. 1983 から snarf した。 Raymond 
1993 も 参照す る こと） 

32 専門用語 "lazy" と "normal-order" の 間の 違い は いささか 曖昧 （fuzzy) です。 一般的 
に "lazy" は 特定の 評価 機の 仕組み を 参照し ますが、 一方で "normal-order" は 言語の 意 
味 を 参照し、 どんな 特定の 評価 戦術から も 独立して います。 しかし これ は 確かな 区別で 
はあり ません。 そして 2 つの 専門用語 は 良く 同義 的に 用いられ ています。 
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(unless    (=  b  0) 
(/  a  b) 

(begin   (display   " exception :    returning  0 " )    0) ) 

これ は 適用 順序の 言語で は 動きません。 通常 値と 例外 値の 両方が unless が 呼 
ばれる 前に 評価され るた めです。 （Exercise 1.6 と 比較して みて 下さい)。 遅延 評 
価の 利点 は unless のよう な 手続 は 例え それらの 引数の 幾つかの 評価が エラー 
を 発したり、 停止し なかった としても 役立つ 計算が で きます。 

引数の 評価が 完了す る 前に 手続の ボディ に 入る こと を、 手続が その 引数に 
おいて non-s か ici (非 厳密） であると 呼びます。 も し 引数が 手続の ボディ に 入る 
前に 評価され たなら 手続 は その 引数に 対し 对 rici (厳密） であると 言います。 33 純 
粋 適用 順序 言語で は 全ての 手続が 全ての 引数に 対し 厳密です。 そして プリ ミテ 
イブな 手続 は 厳密に も 非 厳密に も 成り 得ます。 また プログラマに 彼等が 定義す 
る 手続の 厳密 さに 細かな コントロール を 提供す る 言語 も あり ます。 （Exercise 
4.31 参照） 

実用 性の ため 非 厳密に する こ と がで き る 手続の 印象的な 例 に は cons (ま た 
は 一般的に、 ほとんど 全ての データ 構造の コンストラクタ カ^) あります。 例え 
も し 要素の 値が わからなくても、 データ 構造 を 形成す るよう 要素 を 組み立て、 
結果の データ 構造 上で 操作す る 実用的な 計算 を 行えます。 例えば リストの 長さ 
を リ スト 内の 個々 の 要素の 値 を 知る こと 無しに 計算す る こと は 完璧に 意味が あ 
リ ます。 私達 はこの 考え を Section  4.2.3 で 非 厳密な cons ペアに よ り 形成され た 
リストと して Chapter  3 のス ト リ ームを 実装す るた めに 利用し ます。 

Exercise  4.25: (通常の 適用 順 Scheme において） 皿 less を 上で 示さ 
れ たよう に 定義し、 次に unless を 用いて 以下の よう に factorial 

を 定義す る。 

(define   (factorial n) 
(unless    (=  n 1) 

(*  n   (factorial (- n 1))) 
1)) 

もし （factorial 5) を 評価したら 何が 起こる か？ この 定義 は 正規 

順序 言語で は 動く か？ 

33" 厳密" 対 "非 厳密" の 技術 用語 は 本質的に は "適用 順序" 対 "正規 順序" と 同じ こと 
を 言って います。 しかし 個別の 手続と 引数 を 言及して ぉリ、 言語 全体 を 言及して はい ま 
せん。 プロ グラ ミ ン グ 言語の カン ファレン ス では 誰かが この ような こと を 言う の を 聞く 
かもしれ ません。 "正規 順序 言語の Hassle はいくつ か 厳密な プリ ミ ティブ を 持って いる。 
他の 手続 は それらの 引数 を 遅延 評価で 取る。 " 
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Exercise  4.26:  Ben  Bitdiddle と Alyssa  P.  Hacker は unless のよ 
うな 物 を 実装す るた めの 遅延 評価の 重要性に ついて 意見が 分かれ 
た。 Ben は unless を 適用 順序で も 特殊 形式と して 実装 可能で ある 
点 を 指摘した。 Alyssa はも しそれ を 行えば unless はた だ 単に 構 
文で あり 高 階 手続と 連動して 使用で きる 手続で はない と 反論した。 
議論の 両 サイ ド 上の 詳細 を 埋めよ。 unless を どのよう にして 派生 
手続と して （cond や let のように） 実装す るか を 示せ。 そして 特殊 
形式で はな く 手続と して 存在す る unless を 持つ ことが 有効で ある 
状況の 例 を 与えよ。 

4.2.2 遅延 評価 を 持つ ィ ンタプ リタ 

この 節で は Scheme と 同じです が、 複合 手続が 全ての 引数に 対して 非 厳密 
である ことが 異なる 正規 順 言語 を 実装し ます。 プリ ミ ティ ブな 手続 は 依然と し 
て 厳密です。 Section  4. 1.1 の 評価 機 を、 それが 解釈す る 言語が このように 振る 
舞うよう に 変更す るの は 難しく あり ません。 ほとんど 全ての 必要な 変更 は 手続 
適用が 中心と なり ます。 

基本的な 考え は、 手続 を 適用す る 時、 インタプリタ は どの 引数が 評価され 
るべき かと、 どの 引数が 遅延され るべき か を 決定し なければ なりません。 遅延 
化された 引数 は 評価され ません。 その代わりに それら は ^ 皿 (サン ク） と 呼ば 
れるォ ブジェク トに 変形され ます。 34 サン クは 引数の 値 を 生成す るた めに 必要 
な 情報 を 必要な 時に 含んで なければ なり ません。 それ はまる で 適用 時に 評価 さ 
れ たかの ようにです。 従って、 サン クは 引数の 式と 手続 適用が その 中で 評価 さ 
れる 環境 を 持たなければ なり ません。 

サン ク 中の 式の 評価 プロセス は/ orcing (強制） と 呼ばれます。 35 一般的に は 
サン ク は その 値が 必要に なった 時の み 強制 されます。 サン クの値 を 使用す るプ 
リ ミ ティブな 手続に 渡された 時です。 また オペレータの 値で あり 手続と して 適 
用され る 時です。 設計 上の 1 つの 選択と して 可能な ことと して、 Section  3.5.1 に 

34thunk という 単語 は 非公式な 作業部会 によ リ 考案され ました。 彼等 は Algol 60 にて 
call-by-name の 実装に ついて 議論して いたのです。 彼等 は 式の ほとんどの 分析 は （"式に 
ついての 考え は"） コンパイル 時に 行える ことに 気付きました。 従って 実行時に は 式は既 
に （Ingerman  et  al. 1960) に 係わる "サン ク" を 持って いました。 

35 これ は Chapter  3 でス ト リ ームを 表現す るのに 導入され た 遅延 化ォ ブジェク ト 上で 
force を 用いる ことに 類似して います。 ここで 行って いる ことと、 Chapter  3 で 行った こ 
との 重大な 違い は、 ここで は 遅延 化と 強制 を 評価 機の 中に 構築して いる ことです。 従つ 
てこれ を 言語 を 通して 同一 化し、 自動 化して います。 
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て 遅延 化ォ ブジェク トに 我々 がした ように、 サン クを memofee (メモ 化） する か 
否かが あります。 メモ 化 を 用いれば、 サン クが 初めて 強制され た 時、 計算され 
た 値が 格納され ます。 続く 強制 は 単純に 演算 を 繰り返す ことな く 単純に 格納 さ 
れた値 を 返します。 私達 は インタプリタ を メモ 化します。 これ はとても 多くの 
アプリケーション に対して 効率的 だからです。 しかし、 これに は 用心し なけれ 
ばな ら な レ 、考慮 点が 存在 します。 36 


評価 機 を 変更す る 

遅延 評価と Section  4.1 の 評価との 主な 違い は eval と apply における 手続 
適用の 取扱に 存在し ます。 

eval の application? 節 は 以下に な リ ます。 

(, ( application?  exp; 
( applv   (actual  — value    i. operator  exp ；  env; 
( operands  exp) 
env) ) 

これ は Section  4. 1.1 の eval の application? 節と ほとんど 同じです。 遅延 評価 
のために はしかし、 apply を オペランド 式と 共に 呼びます。 それら を 評価す る 
ことで 生成され た 引数 と共にで はあり ません。 も し 引数が 遅延 化される ので あ 
れば 環境 に サン クを 構築させる 必要が 出る ので、 これ も 渡さなければ いけ ませ 
ん。 依然として 演算子 は 評価し ます。 apply は 実際の 手続が 必要です。 その 型 
(プリ ミ ティブで あるか 複合で ある 力り に 従って 呼 出と 適用 を 行うた めです。 
式の 実際の 値が 必要 になる 度に、 eval する だけの 代わりに 以下 を 用います。 

dei ine    ( axtual - va 丄 ue   exp  env) 
( force-it    ( eval   exp  env))) 

これで もし 式の 値が サン ク であれば 強制され ます。 


36 メモ 化と 組み合わされた 遅延 評価 は 時々、 mn-f^-need (必要 時 呼 出） 引数 渡しと 呼ば 
れ ます。 ね- name (名前 呼 出） 引数 渡しと 対照的です。 （call-by-name は Algol 60 で 導 
入され ましたが、 メモ 化 を 行わない 遅延 評価と 同類です)。 言語 設計者と して、 私達 は 評 
価 機 を メモ 化する こと も、 しない こと も、 プログラマに 任せる こと も 可能です （Exercise 
4.31)。  Chapter  3 からお わかり かと 思います が、 これらの 選択 は 微妙で、 かつ 混乱 を 招く 
問題 を 代入の 存在に おいて 提起し ます。 （Exercise  4.27 と Exercise  4.29 を 参照)。 dinger 
(1982) に よる 素晴 しい 論文が こ こ で 提起され る 混乱の 複数の 特徴 を 明 ら かにし ようと 試 
みています。 


428 


また 新しい 版の apply も ほとんど Section  4.1.1 の 版と 同じです。 違い は 
eval が 未 評価の オペランド 式 を 通り 直ぎ たこと です。 （厳密で ある） プリ ミテ 
ィ ブな 手続に 対して は プリ ミ ティ ブを 適用す る 前に 全ての 引数 を 評価し ます。 
(非 厳密で ある） 複合 手続に 対して は 全ての 引数 を 手続に 適用す る 前に 遅延 化し 
ます。 

dei ine    ( applv  procedure   arguments   env ； 
( cond   ((primitive-procedure?  procedure ) 
( apply-pr imit  ive -procedure 
procedure 

(list - of - arg - values   arguments   env)))        ； changed 
( ( compound-procedure?  procedure ) 
(eval - sequence 
(procedure -body  procedure ) 
( extend- environment 
(procedure-parameters  procedure ) 
( list - of - delayed - args   arguments   env )      ； changed 
(procedure- environment   procedure ) ) ) ) 
(else    ( error   " Unknown  procedure   type :    APPLY " 
procedure ) ) ) ) 

引数 を 処理す る 手続 は Section  4.1.1 の list- of-values そつく りです。 しかし 
list-of-delayed-args が 引数 を 評価す るので はなく 遅延 化する ことと、 list- 
of-arg-values カミ eval の 代わり に actual — value を 用 レヽる こ と 力 《違 レヽ ます。 

dei  ine    (list  — o エ- arg  -  values   exps  env) 
v.  if    (no -ope rands?   exps  ) 

, () 

( cons    (actual-value    ( f ir st-operand  exps ) 
env) 

(list-of-arg-values    (rest-operands   exps ) 
env)))) 

( dei ine    (list-of-delayed-args   exps   env ) 
、if    (no -ope rands?   exps ) 

, () 

( cons    ( delay- it    (f ir st-operand  exps ) 
env) 

(list-of -delayed- args    (rest- operands   exps ) 
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env)))) 


評価 機で 変更し なければ いけない 他の 場所 は if の 取扱の 中に あり ます。 そこ 
では eval の 代わり に actual-value を 使用して 述語が 真で あるか 偽で あるか 
テストす る 前に、 述語 式の 値 を 取らねば なりません。 

v. dei ine    ( eval-if   exp  env) 

(if    (true?    (actual-value     if  -predicate   exp)    env) ) 
(eval v if - consequent   exp)  env) 
(eval 、： if - alternative   exp)  env))) 

最後に、 Section  4 丄 4 の driver-loop 手続 を 変更して、 eval の 代わ り に actual - 
value を 使用せ ねばな リ あせん。 そうする ことで もし 遅延 化された 値が REPL 
に 伝播して 返った 場合に、 表示され る 前に 強制され ます。 また プロンプト も 変 
更 して これが 遅延 評価で ある こと を 示します。 

dei  ine   input-prompt      "  ；  ；  ；    L-Eval   input  ： " ) 
dei  ine   out  Dut -prompt    "  ;  ;  ;    L  -  Eval  value:1') 
( dei ine    (driver-loop ) 

(prompt-f or- input   input-prompt ) 
(let    ( ( input    (read) ) ) 
(let    、  、  output 

(actual-value 
input   the -global- environment ) ) ) 
( announce -output   out put -prompt ) 
(user-print   output ) ) ) 
( driver-loop ) ) 

これらの 変更 を 行う ことで、 評価 機 を 開始し テストす る こと がで きます。 Section 
4.2.1 で 議論され た try 式の 評価の 成功 は インタ プリ タが 遅延 評価 を 実行して い 
る こと を 示して います。 

dei  ine   the - global - envi:r  onment    (  setuo- environment  ) ) 
( driver-loop ) 

； ； ； L - Eva  I  input : 

(define    (try  a  b)    (if    (=  a  0) 1 b)) 

；;; L 一 Eval  value: 

ok 

； ； ； L 一 Eva  I  input : 
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(try  0  (/ 1 0)) 
；;; L-Eval  value: 


サン クの 表現 

私達の 評価 機 は 手続が 引数に 適用され る 時に サン クを 作成す る ことと、 こ 
れらの サン クを 後で 強制す る ことの 準備 をせ ねばな リ ません。 サン クは式 を 環 
境と 一緒に まとめなければ なり ません。 そうする ことで 引数が 後から 生成され 
る ことができます。 サン クを 強制す るた めに は 単純 に 式と 環境 を サン ク から 取 

リ出 しその 環境の 中で 式 を 評価し ます。 eval ではなく  actual-value を 用いる 

ことで 式の 値 それ 自身が サン ク である 場合に その 強制 を サン ク でない 物に 迪リ 
着く まで 繰り返します。 

、deiine    (force-it   ob ，ノ 
(if    (thunk?   obj ) 

(actual-value    ( thunk-exp   obj )    ( thunk-env  obj ; ) 
obj)) 

式と 環境 を まとめる 1 つの 簡単な 方法 は その 式と 環境 を 含む リスト を 作成す る 
ことです。 従って サン クを 以下の ように 作成し ます。 

dei ine    (delav-it   exp  env; 

( list    1 thunk  exp  env) ) 
(define    (thunk?   obj ) 

(tagged-list?   obj    ' thunk) ) 
( dei ine    (thunk-exp  thunk)    ( cadr     thunk ) ) 
( dei ine    (thunk-env  thunk)    ( caddr  thunk) ) 

実際に 私達の インタプリタに 欲つ した もの はこれ ではなく、  メモ 化された サン 

ク です。 サン クが 強制され た 時に 格納され た 式と その 値に 置き換え、 thunk タ 
グを 変更す る ことで サン クを サン ク が 評価 された 物に 変更す る ことで、 既に 評 
価され たと 認識させる ことができます。 37 


37 —度 式の 値が 計算 されれば サ ンク から env も ま た 消去し ます。 これによ リイ ンタプ 
リ タ により 返される 値に 違い は 生じません。 しかし これ は スペース を 本当に 節約し ま 
す。 サン ク から eiw への 参照 を 必要が 無くなったら 直ぐに 削除す る ことで、 この 構造が 
garbage-collected(15 ベ一 ジコレ ウジ 3  、 ノ、  GC、 ゴミ 集め） され、 その スペース は Section 
5.3 で 議論され るよう に リサイクル されます。 
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(define    ( evaluated- thunk?   ob j ) 

(tagged-list?   ob j    ' evaluated- thunk ) ) 
( def  ine    (thunk-value   evaluated- thunk) 

( cadr   evaluated- thunk ) ) 
( def  ine    (force-it   ob j ) 
(cond   ( (thunk?   ob j ) 

(let    ( (result    (actual-value    ( thunk-exp   obj ) 

( thunk-env  obj ) ) ) ) 
( set-car ！    obj    ' evaluated -" thunk) 
( set-car ！    ( cdr  obj ) 

result)  ； exp を その 値で 置き換える 

(set - cdr!    ( cdr  obj ) 

' ())  ，'不必要な env を 忘れる 

result ) ) 

(( evaluated -" thunk1?   obj  ；    (thunk-value  obj)) 
(else  obj ) ) ) 

同じ delay- it 手続が メモ 化 有りで も 無しで も 動作す る ことに 注意して 下さい。 
Exercise  4.27: 以下の 定義 を 遅延 評価 機に 入力した とする。 
(define   count  0) 

、 def  ine    (id  x  ；      set  ！    count    (+   count 1 ) ; x; 

以下の 一連の 応答の 欠けた 値 を 与えよ。 そして 貴方の 回答に つい 
て 説明せ よ。 38 

(define  w   (id   (id  10))) 

； ； ； L-Eval  input ： 

count 

； ； ； L-Eval  value: 

{ response) 

； ； ； L-Eval  invut ： 

同様に、 Section  3.5.1 の メモ 化、 遅延 化された オブジェクトの 中の 不必要な 環境 を GC 
される ように 許可す る こと も、 memo-proc に （set!  proc  ' () ) の 様な 何 か を 行わせて 
(delay が 中で 評価され る 環境 を 含む） 手続 proc を その 値 を 格納した 後に 捨てる ことで で 
さました 

38 この 課題 は 遅延 評価と 副作用の 間の 応答が 大きな 混乱の 原因と なり える こと を 実演 

している。 これ こそが Chapter  3 の 議論から あなたが 予期す るか も しれない こ とで ある。 
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w 

； ； ； L-Eval  value: 

{response) 

； ； ； L-Eva し input ： 

count 

； ； ； L-Evai  value: 
{response) 


Exercise  4.28:  eval (ま eval でな く  actual-value ビ 用いて applv 

に 渡す 前に 演算子 を 評価す る。 演算子の 値 を 強制す るた めで ある。 
この 強制の 必要性 を 実演す る 例 を 与えよ。 

Exercise  4.29:  メモ 化しない 場合に、 メモ 化した 場合よりも 非常に 
遅く 実行され ると 予測す る プログラム を 示せ。 また 以下の 応答に 
ついて 考えよ。 id 手続 は Exercise  4.27 と 同じに 定義され count は 
0 から 始める。 

^define    ( square  x)    (*  x  x ； ) 

； ； ； L-Eval  input ： 

[. square に id 10) ) 

； ； ； L-Evau  value: 

(response) 

； ； ； L-Eva し input ： 

count 

； ； ； L-Eva i  value: 
{response) 

評価 機が メモ 化された 場合と メモ 化されない 場合の 両方に ついて 
応答 を 与えよ。 

Exercise  4.30:  Cy  D.  Feet は 元 C 言語 プログラマ である。 彼 はい 
く つかの side  effects (副作用） が 起こ らな いので はない かと 心配し 
ている。 遅延 評価が 列 内の 式に 強制 を 行わない ためで ある。 最後 
の 1 つ 以外の 列 内の 式の 値 は 使用され ないた め （式 は 変数への 代入 
や 表示 等の 作用の ためだけ に 存在して いる）、 この 値の 強制 を 引き 
起こす 後の 使用 は 存在し ない （例えば プリ ミ ティ ブな 手続の 引数 
と して)。 Cy は 従って 列 を 評価す る 時には 列 内の 最後の 1 つ を 除 
いた 全ての 式 を 評価せ ねばならな いと 考えた。 彼 は Section  4. 1.1 の 


433 


eval- sequence を 変更し eval でな く  actual - value を 使用す る こ 

と を 提案した。 


(define    、eval - sequence   exps   env ； 

( cond   "last  -  expr   exus  )      eval    (first  -  exp   exps  )    env) ) 
(else    (actual-value    (f irst-exp   exps )  env) 

(eval- sequence    (rest - exps   exps )  env)))) 

a  Ben  Bitdiddle は Cy が 間違って いると 考え た。 彼 は Cy 
に Exercise  2. 23 で 説明され た for-each 手続 を 見せた。 こ 
れは 副作用 を 伴う 列の 重要な 例 を 与える。 

(aefine    (ior-each  proc   items ) 
(if    (null?  items) 
1  done 

(begin   (proc    ( car  items)) 

(for - each  proc    ( cdr  items))))) 

彼 は テキス 卜の 評価 機 （オリ ジナル の eval- sequence を 持つ 
物） はこれ を 正しく 取り扱う と 主張した。 

； ； ； L 一 Eva  I  input ： 

(f  or-each   (lambda   (x)    (newlme )    (display  x; ) 
(list   57  321 88)) 

57 
321 
88 

； ； ； L-Eval  value: 
done 

なぜ Ben  ^"f  or-each の 振舞に ついて 正しい のか 説明せ よ。 

b  Cy は Ben が： tor-each について 正し いのは 同意した。 し 力、 
し 彼が eval-sequence に对 する 変更 を 提案した 時、 彼が 考え 
ていたの はこの 種の プログラム ではない と 言った。 彼 は 以下 
の 2 つの 遅延 評価の 手続 を 定義した。 

(,def ine    (pi x; 

( set  ！    x   (cons  x    *  (2) ; ; 
x) 
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(define   (p2  x) 
(define   (p  e) 
e 

x) 

(p   (set  ！    x   (cons  x 1 (2) ) ) ) ) 

オリジナルの eval-sequence を 用いた 時、 （pi 1) と （p2 1) 
の 値 はいく ら 力、？  Cy が 提案した eval-sequence への 変更 を 
用いた 時に は 値 は どうなる か？ 

c  Cy は 彼が 提案 し た 通 リ の eval-sequence への 変更 は a の 例 
の 振舞に 影響 を 与えない と 指摘した。 なぜ これが 正しい のか 
説明せ よ。 

d 遅延 評価で は 列 は どのように 扱われる べきと 考える 力 マ あな 
たは Cy の アプローチ、 テキストの アプローチ、 または 他の 
アプローチ のどれ を 好む か？ 

Exercise  4.31: この 節で 取り上げられた 取り組み 方 は 少々、 不愉快 
である。 Scheme に対して 互換性の ない 変更 を 行うた めだ。 遅延 評 
fffi  ti.  upward- compatible  earfension (上位 互換 ft のめる 拡張) として 
実装す る ほうがよ リ 良いだろう。 それ は 通常の Scheme プロ ダラ 
ムが 依然と 同じように 働く という ことで ある。 これ を ユーザに 引 
数が 遅延され るか、 されない か を コントロールさせる ように 手続 
定義の 構文 を 拡張する ことで 可能で ある。 それ を 行う 間、 ユーザ 
に 遅延 を メモ 化させる 力、、 させない かの 選択 も 同様に 与える こと 
がで きる だろう。 例えば、 以下の 定義 は 

^define    (f   a   (b lazy ；    c    (d lazv-memo ) ) 

...) 

f は 4 つの 引数の 手続で あり、 最初と 3 番目の 引数 は 手続が 呼ばれ 
た 時に 評価され、 2 番目 は 遅延 化され、 4 番目 は 遅延 化と メモ 化が 
行われる。 従って 通常の 手続 定義 は 通常の Scheme と 同じ 振舞 を 
行う 力 ^ lazy-memo 宣言 を 各 複合 手続の 各 パラメタに 追加す る こ 
とで こ の 節で 定義 さ れた 遅延 評価の 振舞 を 行う。 こ の 変更の 設計 
と 実装 は Scheme に 対し そのような 拡張の 生成 を 必要と する。 あ 
な た は define に 対す る 新し レ ヽ 構文 を 取り扱う 新し レ 、構文 手続 を 実 
装し なければ ならない。 また 引数が いつ 遅延 化される か、 そして 
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いつ 強制す るか、 または それに 応じて 引数 を 遅延 化する か 決定す 

るた めに eval や apply に対して 準備 も しなければ ならない。 同時 
に 強制に 対して メモ 化する 力 \ しない かも 適切に 準備す る こと。 

4.2.3 遅延 化 リストと しての ストリーム 

Section  3.5.1 では どのよう にス ト リ ームを 遅延 化された リ ストと して 実装 
する かにつ いて 示しました。 特殊 形式 delay と cons-stream 導入し ました。 こ 
のこと は 私達に ストリームの cdr を 求める" promise" (プロ ミス、 約束） を、 実 
際に は 後になる まで は プロ ミス を 実行す る こ と 無しに 構築す る こと を 可能に し 
ました。 

遅延 評価で はス ト リ 一 ムとリ スト は 同一に できます。 そのため 特殊 形式 や 
リストと スト リームの 命令 を 分ける 必要 はあり ません。 私達が 行わなければ な 
らな いこと 全て は cons が 非 厳密 になる よう 問題 を 準備す る ことです。 これ を 
達成す る 1 つの 方法 は 遅延 評価 を 拡張し プリ ミ ティ ブ にも 非 厳密 を 許し cons 
を これらの 内の 1 つと する ことです。 よ リ 簡単な 方法 は （Section  2.1.3) の cons 
を プリミティブ として 実装す る 必要性 は 本質的に は 全く 無い という こと を 思い 
出す ことです。 その代わりに、 ペア は 手続と して 表現 可能です。 39 

(, def  ine    (cons  x  v)    "ambda   (m;    (.m  x  y ) ; ) 
(define    (car  z)    (z   ( lambda   (p  q)   p) ) ) 
(define    ( cdr  z)    (z   ( lambda   (p  q)   q) ) ) 

これらの 基本的な 命令に おいて、 リスト 命令の 標準 定義 は 無限 リスト （ス ト リ 
ーム） と 同様に 有限な 物と しても 働きます。 そして ストリーム 命令 は リスト 命 
令と して 実装 可能です。 以下に いくつかの 例 を 示し ま す。 

(, def  ine    (list-ref    items  n; 
(if    (=  n  0) 

(car   items ) 

(list-ref    ( cdr   items )    (-  n 1)))) 
(define    (map  proc   items ) 


39 これが Exercise  2.4 で 説明され た 手続 表現です。 本質的に は どんな 手続 表現 （例えば 
メッセージ パッ シ ン グに よ る 実装） も 同じ ことが 行える でしよう。 これらの 定義 を 遅延 評 
価に 単純に ドライ バー ループに て 型 を 付ける こ とのみ でィ ンス トールで きる こ と に 注意 
して 下さい。 も し 私達が 元々 cons,  car,  cdr を グローバル 環境の プリ ミ ティブと して 含 
めて いたのな らば、 それら は 再定義され るでしょう。 （Exercise  4.33 と Exercise  4.34 も 参 
照して 下さい。 
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(if    (null?   items ) 

, () 

( cons    (proc    (car   items))    (map  proc    ( cdr   items ] 
(define    (scale-list   items   factor ) 

(map   ( lambda   (x)    (*  x  factor ) )  items)) 
(define    (add - lists   list 1 list2 ) 
( cond   ( (null?   listl)    list 2) 
((null?   Iist2)  listl) 

(else    ( cons    (+   (car   listl ) (car   list2 ) ) 

(add - lists    (cdr  listl)    (cdr  list2) ) ) ) ) ) 
( dei ine   ones    ( cons 1 ones)) 

( dei me   integers    (cons 1 (add - lists   ones   integers ) ) ) 

； ； ； L 一 Eva  I  input : 

(list - ref    integers 17) 

； ； ； L-Eval  value: 

18 

これらの 遅延 リ ス トは Chapter  3 のス ト リ 一ム よりも さらに 遅延 化されて いま 
す。 リストの car も cdr と 同様に 遅延 化されます。 4Q 実際に、 遅延 化 ペアの car 
や cdr に対する アクセス さえ も リスト 要素の 値 を 強制す る 必要が あり ません。 
その 値 は それが 本当に 必要に なった 場合 一例えば プリ ミ ティ ブの 引数と して 
や 回答と して 表示され る 場合に 一 強制され る ことにな り ます。 

遅延 化 ペア はまた Section  3.5.4 でス ト リームに 対して 提起され た 問題に 対 
する 手助けに もな リ ます。 その 時 は ループ を 伴な う システムの ス ト リーム モデ 
ルを 定式化す る こと は 明示的な delay 命令 を cons-stream で 提供され る もの 
を 越えて プログラムの 中に 撒き散らす こと を 必要と しました。 遅延 評価で は 全 
ての 手続の 引数 は 遅延 化に 統一され ています。 例えば リ ス ト と 統合す る 手続 
を 実装し 微分方程式 を Section  3.5.4 で 元々 意図した ように 実装す る ことが 可能 
です。 

、deiine    (Integra 丄 integrand   initial 一 va 丄 ue  at) 
dei  ine  int 
( cons   initial -value 

(add - lists    ( scale-list   integrand  dt )  int))) 


4o この こと はより 一般的な 種類の、 ただの 列で はない、 リスト 構造の 遅延 化 版 を 作る こ 
と を 可能に します。 Hughes  1990 は" 遅延 化 木，， の いくつかの アプリケーション について 
議論して います。 
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int ) 

( def ine    (solve  f  yO  dt ) 

(define     y   ( integral dy  yO  dt ) ) 
( def  ine  dy   (map  f  y ) ) 

y) 

； ； ； L - Eva  I  input : 

(list - ref    (solve    (lambda   (x)   x) 1 0.001)  1000) 

；;; L-Eval  value: 

2.716924 


Exercise  4.32:  Chapter  3 の ストリーム とこの 節で 説明され た "よ 
リ 遅延 化された" 遅延 化リ ストの 間の 違い を 説明す る 例 をい くつ 
か 上げよ。 この 拡張され た 遅延 性の 利点 を どのように 活用す る カ^ 

Exercise  4.33:  Ben  Bitdiddle は 上で 与えられた 遅延 リ ス ト 実装 を 
式 （car  '(a  b  c)) を 評価す る ことで テストした。 

V  car    r  (a  b  c ) ノ 

驚いた ことに これ は エラー を 生じる。 幾らか 考えた 後に、 彼はク 

オート された 式 を 読み込む こ と で 得 ら れた "リスト " が cons,  car, 
cdr の 新しい 定義で 操作され たリ ストから 異なる ことに 気が付い 
た。 評価 機の クオート された 式の 扱い を 修正し ドライバ ループで 
型 付けされ た クオート された リストが 正しい 遅延 リスト を 生成す 
るよう にせよ。 

Exercise  4.34: 評価 機の ドライバ ループ を 変更し 遅延 化した ペアと 

リスト が 何 ら かの 妥当 な 方法で 表示 を 行うよう にせよ。 （無限 リス 
ト に対して は 何 を 行う か?)。 遅延 化 ペアの 表現 も 変更が 必要に な 
るだろう。 評価 機が それら を 表示す るた めに それら を 判別す る こ 
とがで きる ようにす るた めで ある。 


4.3  Scheme 上での バ リエ一 シ ヨン 一 非 決定 性 

演算 

こ の 節 では nondeterministic  compMiing (非 決定 性 演算） と 呼ばれる プロ グラ 
ミ ング パラ ダイ ムを サポート する よ う 、 評価 機の 中に 自動的な 探索 をサ ポー ト 
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する ための 機能 を 構築す る ことで、 Scheme 評価 機 を 拡張し ます。 これ は Section 
4.2 での 遅延 評価の 導入に 比べ、 とても 深い 言語への 変更です。 

非 決定 性 演算 はス ト リーム 処理の ように、 "生成して テス ト する" アプリ ケ 
ーシ ヨンに 対して 便利です。 正の 整数の 2 つの リスト を 用いて 開始す る、 整数 
の ペア を 見つける タスクに ついて 考えます 1 つ は 最初の リス ト から、 もう 1 つ 
は 別の リストから 取得し、 その 和 は 素数と なります。 私達 はこの 問題 を どのよ 
うに 扱う かにつ いて、 Section  2.2.3 では 有限 列の 命令 を 用いて、 Section  3.5.3 で 
は 無限 ス ト リーム を 用いる 方法に ついて 学びました。 私達の 取り組み 方 は 全て 
の 可能な ペア を 生成し、 これらから 和が 素数になる ペア を 選択 するとい う 方法 
でした。 実際に ペアの 列 全体 を 最初に 生成す る Chapter  2 や、 生成と フィル タリ 
ングを 相互 配置す る Chapter  3 に 係わらず 演算が どのよう に 体系化され るかの 
本質的な イメージ に対して は 重要で はあり ませんで した。 

非 決定 性の 取り組み 方 は 異なる イメージ を 喚起し ます。 単純に （何ら かの 方 
法で） 最初の リストから 数値 を 選択し、 別の 数値 を 2 つ 目の リストから 選択し、 
(何 ら かの 仕組みで） それらの 和が 素数で ある こと を 要求と すると 想像して みて 
ください。 これ は 以下の 手続に より 表現され ます。 

(, def ine    (prime -sum-pair   listl 上 ist2 リ 
(let   ( ( a  ( an- element -of  listl)) 
(b   ( an- element -of   list2) ) ) 
(require    (prime?    (+  a  b) ) ) 
(list   a  b))) 

こ の 手続 はた だ 単に 問題 を 言い直し たに 過ぎな く、 解法 を 指定した ように は 見 
えない かもしれ ません。 それ にもかかわらず、 これ は 正規の 非 決定 性 プロ ダラ 
ム です。 41 

ここでの 鍵と なる 考え は、 非 決定 性 言語に おける 式 は 1 つ 以上の 可能な 値 
を 持つ こ と がで きる という こと です。 例えば an-element-of は 与え ら れた リ ス 
ト のどの 要素で も 返す ことが 有り得ます。 私達の 非 決定 性 プログラム 評価 機 は 
自動的に 可能な 値 を 選択 しその 選択 を 追跡す る ことで 働きます。 もし 続く 要件 
に 合わなければ、 評価 機 は 異なる 選択 を 試します。 そして 評価が 成功す るまで、 


41 以前に 数値が 素数で あるか を テス ト する 手続 prime? を 定義し ました。 例え prime? 
が 定義され ていたと しても、 prime-sum-pair 手続 は、 Section  1.1. 7 の 最初で 説明した 助 
けになら ない "擬似 Lisp" による 平方根 関数の 定義の 試みの ように 疑わしく 見える かも 
しれません。 現実に、 あれら の 行に 沿った 平方根 手続が 実際に 非 決定 性 プログラム とし 
て 定式化す る ことができます。 評価 機に 探索の 仕組み を 合併す る ことで、 どのよう にし 
て 回答 を 計算す るかに ついての 純粋な 宣言 型の 記述と 命令 型の 仕様の 間の 区別 を 侵食し 
ていきます。 私達 は Section  4.4 にて この 方向へ とさら に 進みます。 
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または 選択肢が 無くなる まで、 新しい 選択 を 試し 続けます。 遅延 評価が プ ログ 
ラマ を 値が どの よ う に 遅延 化 さ れ 強制 される かの 詳細 か ら 解放 された のと 同様 
に、 非 決定 性 プロ グラムの 評価 機 は プロ グラマ を 選択が どの ように 行われる か 
の 詳細から 解放し ます。 

非 決定 性 評価と ス ト リーム 処理に より 起こった 時間の 異なる イメージの 対 
比 は 示唆 的です。 ス トリ ーム 処理 は 遅延 評価 を 可能な 答の ス ト リ ームが 組まれ 
た 時間 を 実際の ス ト リ ーム 要素が 生成され た 時間から 分離し ます。 評価 機 は 全 
ての 可能な 回答が 私達の 前に 永遠の 列の 中 に 横たわつ ている という イリ ユー ジ 
ョ ンを 支えます。 非 決定 性 評価 機で は 式 は 可能な 世界の 集合の 調査 を 表現し ま 
す。 それぞれ は 選択の 集合に より 判断され ます。 可能な せかいの いくつか は 行 
き 止まりへ と 導き、 一方、 他 は 役立つ 値へ と 導きます。 非 決定 性 プログラム 評 
価 機 は 時間の 分岐と 私達の プログラムが 異なる 可能な 実行 履歴 を 持つ という ィ 
リュー ジョン を 支えます 。行き止まりに 迪リ 着いた 時に は 直前の 選択 地点 に 戻 
リ、 異なる 分岐に 従って 進む ことが 可能です。 

以下で 実装され る 非 決定 性 プロ ダラ ム 評価 機 は amb 評価 機と 呼ばれます。 そ 
れが amb と 呼ばれる 新しい 特殊 形式に 基づく ためです。 上記の prime-sum-pair 
の定 きを amb 言 平ィ面 機 ドラ イノく ノ レープに て (prime?,  an-element-of ,  require と 

一緒に） 型 を 付け、 以下の よう に 手続 を 実行す る ことができます。 

； ； ； Amb-Eval  input ： 

(prime-sum-pair    '(1358) 1 (20  35 110) ) 
； ； ； Starting  a  new  problem 
； ； ； Amb-Eval  value: 
(3  20) 

返 り 値 は 評価 機が 条件に 合う 選択が 行われる ま で 繰 リ 返し 各 リストから 要素 を 
選択した 後に 取得され ました。 

Section  4.3.1 は amb を 紹介し それが どのよう に 非 決定 性 を 評価 機の 自動 探 
索の 仕組み を 通して サポートす るかに ついて 説明し ます。 Section  4.3.2 は 非 決 
定性 プログラムの 例 を 与え、 Section  4.3.3 は amb の 実装 方法の 詳細 を 通常の 
Scheme 評価 機 を 変更す る ことで 与えます。 
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4.3.1 amb と 検索 

Scheme に 非 決定 性 を 対応す るよう 拡張する ために、 amb と 呼ばれる 新しい 
特殊 形式 を 導入し ます。 42 

(,amb  (ei)  (e2)  ...  (e„)) 

上の 式 は n 個の 式く  ei〉 の 内 1 つの 値 を "ambiguously" (曖昧に） 返します。 例え 
ば 以下の 式 は 

(list    (amb   12  3)    (amb 1 a    'b) ) 

以下の 6 つの 値の 可能性が あ リ ます。 

(1 a) (1 b)    (2  a)    (2  b)    (3  a)    (3  b) 

単一の 選択 を 行う amb は 通常の （単一の） 値 を 生成し ます。 

選択 を 行わない amb —式 （amb) —は 受け入れられる 値の 無い 式です。 操作 上、 
(amb) を 評価され た 時に 演算に 対し "fail" (失敗） を 起こさせ ると 考える ことが 
できます。 演算 は 異常終了し、 何の 値 も 生成され ません。 この 考え を 用いて、 あ 
る 特定の 述語 式 p が 真で なければ ならない こと を 以下の よう に 表現 可能です。 

(, def ine    (require  p; i, if    (not  p ソ (, amb  ) ) ; 

amb と require を 用いて 上で 使用され た an-element-of を 実装 可能です。 

に define    (an - element - of    items ) 
i.  r e qu i r e    (not    (null?   items  ) ) ; 

( amb   (car   items )    ( an - element - of    ( cdr  items)))) 

an-element-of は リスト が 空で ある 場合に は 失敗 します。 そう でな ければ リ ス 
トの 最初の 要素 か、 リストの 残りの 要素から 選択され た 要素 を 曖昧に 返します。 
無限の 範囲の 選択 も 表現 可能です。 以下の 手続 は 可能性と して ある 与えら 
れた n に 等しい か 大き な 任意の 整数 を 返します。 

def  ine    (  an- integer  -  start  ing- from  n; 
( amb  n   (an- integer- start  ing- from   (+  n 1)))) 

これ はまる で Section  3.5. 2 で 説明され たス ト リ 一ム 手続 integers- starting - 
from の 様です。 しかし 重要な 違いが あります。 ストリーム 処理 は n で 始まる 全 


42 非 決定 性 プロ ダラ ミ ング のた めの amb の 考え は 1961 年に 最初に John  McCarthy に 
よ リ 説明 されました。 （McCarthy  1963 参照）。 
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ての 整数の 列 を 表す オブジェクト を 返します。 一方、 amb 手続 は 単一の 整数 を 
返します。 43 

抽象的に、 amb 式 を 評価す る ことが 時間に 対して 分岐 を 起こさせ、 演算 は 
各 分岐 上 にて 式の 可能な 値の 1 つ に 上で 続行す る の だと 想像す る こと がで き ま 
す。 amb せ nondeterministic  choice  pomf (非 決定 性 選択 点) を 表現す る と 言え 
ます。 もし 私達が 動的に 獲得で きる 十分な 数の プロセッサ を 持つ 計算機 を 持つ 
ているならば、 探索 を 簡単な 方法で 実装で きる でしよう。 実行 は amb 式に 遭遇 
する まで は 逐次 的に 行われます。 遭遇した 時点で は 多くの プロセッサが 獲得 さ 
れ 選択に より 暗示され た 全ての 並列 実行 を 続ける ために 初期化 されます。 各プ 
口 セッサ は 選択が それし か 無かった かの ように 逐次 的に 続行し ます。 その 処理 
は 失敗に 遭遇して 停止す るか、 さらなる 分岐が 起こる 力 \ 完了す るまで 続けら 
れ ます。 44 

一方で、 もし 私達が 1 つの プロセス （または いくつかの 並行 プロセス） しか 
実行で き な レ 、計算機 を 持って いる 場合に は 逐次 的 に 動作す る 代替 法 を 考えね ば 
なり ません。 1 つの 方法と して は 評価 機 を 選択 点に 迪り 着いた 時に 無作為に 分 
岐を 選択す るよう 変更す る ことが 考えられる でしよう。 しかし 無作為な 選択 は 
簡単に 失敗す る 値へ と 導きます。 評価 機 を 何度 も 何度 も 実行 し 無作為 な 選択 を 
行い 失敗し ない 値 を 見つける こと を 期待す るか も しれません。 しかし 全ての 可 
能な 実行 パス （実行 経路） を systematically  se(irc/i( 体系的 探索） をした ほうがよ 
リ 良いです。 私達が この 節で 開発し 働き かける amb 評価 機 は 体系的 探索 を 次の 
ように 実装し ます。 評価 機が amb の 適用 に 遭遇 し た 場合 に 初期値 として 最初の 
選択肢 を 選択し ます。 この 選択 それ 自身が さらなる 選択へ と 導きます。 評価 機 
は 常に 初期値と して 最初の 選択肢 を 各 選択 点に て 選択し ます。 も し 選択の 結果 


43 本当 は 非 決定的に 単一の 選択 を 返す こ と と 全ての 選択 を 返す ことの 違い は 私達の 視 
点に 幾分、 依存し ます。 値 を 使用す る コードの 視点から は 非 決定 性に よる 選択 は 単一の 
値 を 返します。 コー ドを 設計す る プロ グラマの 視点から は 非 決定 性に よる 選択 は 潜在的 
に 全ての 可能な 値 を 返します。 そして 各 値が 個別に 調査され るよう に 演算 は 分岐す るの 
です。 

44 これ は 絶望的に 非 効率 だと 異議 を 唱える 人が いるか も しれません。 この 方法で は簡 
単に 規定され た 問題 を 解く のに 数百 万の プロセッサ を 必要と する かも しれません。 そし 
て それらの 多くの プロセッサ は ほとんどの 時間 を アイドル 状態 （遊休 状態） になる でしよ 
う。 この 異議 は 歴史の 文脈で 捕えられる べきです。 メモリ はとても 高価な 消費財 だと 考 
えられて きました。 1964 年に は メガ バイ トの RAM は $400,000 の 費用が 掛かりました。 
現在で は 全ての PC が 多数の メガ バイ トの RAM を 積んで います。 そして ほとんどの 時 
間で ほ と ん どの メモリ は 利用 さ れ ていません。 大量生産 された 電子 製品の コスト を 過小 
評価す る こと は 難しい ことです。 
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が 失敗 と なれば 評価 機 は automagically45 に 最も 最近の 選択に backtracks{/ < ッ 
ク トラック、 引き返す） し、 次の 選択肢 を 試行し ます。 もし どこかの 選択 点に お 
いて、 全ての 選択肢 を 使用して しまえば、 評価 機 は 以前の 選択 点へ と 戻り そこ か 
ら 再開 します。 こ の 処 理は depth-first  searc/i (深さ 優先 探索） ま ナこ は chronological 
backtracking  、ク ロノ  口 ジ カル バッ ク トラック、 年代順 バッ ク 卜 ラック） として 
知られる 探索 戦略へ と 導きます。 46 

ドライバ ループ 

amb 評価 機の ドライバ ループ はいくつ かの 普通で はない 性質 を 持って いま 
す。 これ は 式 を 読み 最初の 失敗で はない 実行の 値 を 上で 示された prime-sum- 

45automagically: " 自動的に、 しかし 幾つかの 理由で （典型的に は 複雑 過ぎて、 または 
酷す ぎて， または 恐らく さらに どうで も 良す ぎて ） 話者が 説明 する 気にならない" （Steele 
et  al. 1983,  Raymond  1993) 

46 自動的な 探索 戦略の プロ グラ ミ ング 言語への 統合 は 長く 功罪 相半ばする 歴史が あり 
ます。 非 決定 性 アルゴリズムが 美しく プロ グラ ミ ング 言語へ と 探索と 自動的 バック トラ ッ 
ク と共に 組 込まれた だろう 最初の 提案 は Robert  Floyd  (1967) によ リ 行われ ま した。 Carl 
Hewitt は 969) は Planner と 呼ばれる プログラミング 言語 を 発明し ました 力5'、 これ は 明 示 
的に 自動的な クロ  ノ  ロジカル バッ クトラ ッ クをサ ポー ト し、 組 込の 深さ 優先 探索 戦略 を 
提供して いました。 Sussman  et  al.  (1971) はこの 言語の 部分集合 である MicroPlanner を 
実装し ました。 これ は 問題解決と ロボット 計画の 仕事の 支持に 使用され ました。 同様な 
アイデアが 論理と 定理 証明から 提起され、 エディ ン バラと マルセイユ にて 洗練され た 言 
語 Prolog の 起源へ と 導きました。 （Section  4.4 にて 議論し ます)。 自動 探索に 対する 多く 
の 不満の 後に McDermott  and  Sussman  (1972) は Conniver と 呼ばれる 言語 を 開発し ま 
した。 これ は プログラマの コン トロール 下に 探索 戦略 を S くた めの 仕組み を 含みました。 
しかし これ は 扱い 難く、  Sussman  and  Stallman  1975 はもつ と 御し やすい 取り組み 方 を 
電子回路 向け 記号 分析の 手法の 研究の 間に 発見し ました。 彼等 は 事実 を 繋げる 論理的 依 
存 性の 追跡 を 基に した 非 クロノ  ロジカルな バックトラック 計画 を 開発し ました。 こ れは 
dependency-directed  fmcWmcfcing (依存 型 バック トラック) として 知られる ようになった 
技術です。 彼等の 手法 は 複雑で したが、 合理的な 効率の 良い プログラム を 生成し ました。 
冗長な 探索 を ほとんどし なかった ためです。 Doyle  (1979) と McAllester  (1978;  1980) は 
Stallman と Sussman の 手法 を 一般化し、 明確に しました。 そして 探索 を 定式化す るた 
めの 新しい パラダイム を 開発し ました。 これ は 今では i™ 仏 maintenance (真理 維持） と 
呼ばれて います。 現代の 問題解決 システム は 全て 真理 維持 システムの 何ら かの 形式 を 素 
地と して 使用して います。 真理 維持 システムと 真理 維持 を 用いた アプリ ケーシ ヨン を 構 
築す るた めの 洗練され た 方法の 議論に ついては Forbus  and  deKleer  1993 を 参照して 下さ 
い。 Zabih  et  al.  1987 は Scheme に対する amb を 基に した 非 決定 性 拡張 を 説明して いま 
す。 これ はこの 節で 説明され る インタプリタと 同様です。 しかしよ リ 高度な 物です。 そ 
れが クロノ  ロジカル バック トラック ではなく 依存 型 バック トラック を 使用して いるた め 
です。 Winston  1992 は 両方の 種類の バック トラック に対する 入門 を 提供して います。 
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pair の 例の よう に 表示し ます。 も し 次の 成功す る 実行の 値 を 見たい ので あれ 
ば、 インタプリタ にバ ック トラックして 二番目 の 失敗で はない 実行 を 生成す る 
試行 を 命令し ます。 これ は シン ボル try-again を 入力す る ことで 伝えられ ま 
す。 もし try-again ではない 任意の 式が 与えられたなら、 インタプリタ は 新し 
い 問題 を 開始し、 直前の 問題の 調査され ていない 選択肢 を 捨てます。 以下に サ 
ン プルの 応答 を 示します。 

； ； ； Amb-Eval  invut ： 

(prime-sum-pair    '(1358)    '(20  35 110)) 
； ； ； Startina  a  new  problem 
； ； ； Amb-Eval  value: 
(3  20) 


； ； ； Amb-Eval 
try-agam 
； ； ； Amb-Eval 
(3 110) 


input  ： 
value: 


； ； ； Amo-Eva I  input ： 

try-again 

； ； ； Amb-Eval  value: 

(8  35) 


； ； ； Amo-Eva I  input ： 
try-agam 

； ； ； There  are  no  more  values  of 

(prime-sum-pair  (quote  (1  3  5  8))  (quote  (20  3。 110))) 
； ； ； Amb-Eva I  input : 

(prime-sum-pair    * (19  27  30)    * (11 36  58) ) 
； ； ； Starting  a  new  problem 
； ； ； Amb-Eval  value: 
(30 11) 


Exercise  4.35:  2 つの 与えられた 境界 値の 間の 整数 を 返す 手続 an- 
integer-between を 書け。 これ はピタ ゴ ラスの 3 つ 組 を 求める 手 

続 を 実装す るのに 使用で きる。 例えば 与えられた 範囲の 間の 整数の 
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三つ組 （i，  j',  k 、で i 仝 j  and  i2  +  f  =  k2 の 場合 は 以下の 様になる。 


(define    (a-pythagorean-triple -between  low  high) 
(let    ( ( i    (an - integer - between  low  high))) 
(let    (リ (an - integer - between  i  high))) 
( let    ( (k   ( an— integer - between  j  high))) 

(require  (=  (+  (*  i  i)  (*  j  j))  (*  k  k))) 
(list   i  j  k))))) 

Exercise  4.36:  Exercise  3.69 では どのよう に "全ての" ピタゴ ラス 
の 三つ組の ス ト リーム を 探索 対象の 整数の サイズに 上限 無しで 生 
成す るかに ついて 議論した。 なぜ 単純に an-inte-ger-between を 
Exercise  4.35 の 手続 内の an-integer-starting-from で 置 さ 換え 

る こと は、 自由 裁量な ピタ ゴ ラスの 三つ組 を 生成す るのに 適切で 
ない のか、 説明せ よ。 これ を 実際に 達成す る 手続 を 書け。 （すな わ 
ち、 原理 上 は tiy-again を 繰り返し 入力す る ことで 全て ピタ ゴラ 
スの 三つ組 を 生成す る 手続 を 書け)。 

Exercise  4.37:  Ben  Bitdiddle は 以下の ピタ ゴ ラスの 3 つ 組 を 生成 

する 手法 は Exercise  4.35 の 手法に 比べよ り 効率的で あると 主張し 
た。 彼 は 正しいだろう 力、？ （ヒント ： 探索し なければ ならない 可能 
性の 数 を 考えよ） 

def ine    (a-pythagorean-triule -between 上 ow  high) 
(let    ( ( i    (an - integer - between  low  high)) 
(hsq   (*  high  high) ) ) 
(let    (リ (an - integer - between  i  high))) 
(let    ((ksq   (+    (*   i   i)    (*  j  j)))) 
(require    (>=  hsq  ksq) ) 
(let    ( (k   (sqrt  ksq))) 
(require    ( integer?  k) ) 
(list  i  j  k)))))) 


4.3.2 非 決定 性 プ 口 グ ラ ムの例 

Section  4.3.3 は amb 評価 機の 実装 を 説明 します。 しかし 最初に それが どの 
ように 使用で きる かにつ いて、 いくつかの 例 を 与えます。 非 決定 性 プロ グラミ 


445 


ングの 利点 は 探索が どのように 実行され るの かにつ いての 詳細 を 隠す ことが で 
きる ことです。 従って 抽象の 高い レベルに て プログラム を 表現で きます。 


論理 パズル 

以下の パズル （Dinesman  1968 から 拝借し ました） は 典型的な 大きな クラス 
の 簡単な 論理 パズルです。 

Baker,  Cooper,  Fletcher,  Miller, それに Smith は 同じ 5 階し かな 
ぃァ パー トの 異なる 階に 住んで います。 Baker は 最上 階に は 住ん 
でい ません。 Cooper は 最下 階に は 住んで いません。 Fletcher は最 
上 階に も 最下 階に も 住んで いません。 Miller は Cooper よ リも 高い 
階に 住んで います。 Smith は Fletcher のす ぐ 隣の 階に は 住んで い 
ません。 Fletcher は Cooper のす ぐ 隣の 階に は 住んで いません。 皆 
は どの 階に 住んで いるでしょう 力、？ 

誰が どの 階に 住んで いるか を、 全ての 可能性 を 列挙し 与えられた 制約 を 与える 
簡単な 方法で 決定す る ことができます。 47 

K def ine    (mult ip 上 e - dwelling) 

(let    ((baker  (amb   12  3  4  5))    (cooper    (amb   12  3  4  5) ) 

(f letcher  (amb  12  3  4  5))  (miller  (amb  12  3  4  5) ) 
(smith  (amb   12  3  4  5) ) ) 

( r  e  qu  i  r  e 

(distinct?    (list  baker   cooper   f let cher  miller  smith))) 
(require    (not    (=  baker   5) ) ) 
(require    (not    (=   cooper  1))) 
(require    (not    (=  f let cher   5) ) ) 

47 私達の プログラム は 以下の 手続 を リ ストの 要素が 識別 可能で あるか 判断す るた めに 
使用して います。 

t,  def  ine   ( distinct?   items ) 
( cond   ( (null?   items )   true ) 

( (null?    ( cdr   items ) )    true ) 

(. t,  member   (car  items )    ( cdr  items ) )   false ) 

(else    (distinct?    ( cdr   items ) ) ) ) ) 

member は memq と 同様で すがこれ は eq? の 代わり に equal? を 等価 性の テス ト に 用いて 

います。 
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(require    (not    (=  f letcher  1))) 
(require    ( >  miller   cooper ) ) 

(require    (not    (=   ( abs    (-   smith  f letcher ) ) 1))) 

(require    (not    (=   (abs    (-   f letcher   cooper ) ) 1))) 

(list    (list    1  baker  baker )  ( list    1  cooper   cooper ) 

(list    1  f letcher   f letcher ) ( list    1  miller  miller ) 

(list    1  smith  smith) ) ) ) 

式 （multiple-dwelling) を 評価す る と 結果 を 生成し ます。 

( (baker  3)    (cooper   2)    (f letcher  4)    (miller   5)    (smith 1)) 

この 簡単な 手続 はう まく 行きます 力 《、 とても 遅いです。 Exercise  4.39 と Exercise 
4.40 はいく ら かの 可能な 改善 法に ついて 議論し ます。 

Exercise  4.38:  multiple- dwelling 手続 を 変更し、 Smith と Fletcher 
が瞵 接する 階に 住んで いないと いう 要件 を 取り除く。 この 変更し 
た パズルに はいくつ の 解が 存在す るか？ 

Exercise  4.39:  multiple- dwelling 手続 内の 制約の 順 は 解に 影響す る 

だろう 力、？ 回答 を 見つける のに かかる 時間に は 影響 を 与える だろ 
うか？ もし それが 重要で あると 考える のなら、 制約の 順 を 変える 
ことで 与えられる 物から 得られる より 速い プログラム を 実演せ よ。 
も しそれ が 問題で はない と 考える のなら、 あなたの 考え を 論ぜよ。 

Exercise  4.40: 複数の 住居の 問題に おいて、 人 を 階へ と 割り当てる 
方法 は、 requirement の 前と 後で 階の 割 り 当てが 区別 可能な 方法で 
いくつ ある 力、？ 全ての 人から 階への 可能な 割り 当て を 生成して か 
ら その 次に それら を 排除す るた めに backtrack に まかせる こと は 
非常に 非 効率で ある。 例えば 制約の ほとんど は 一つ か 二つの 人と 

階の 変数 を 持ち、 従って 全ての 人に 対して 階が 選択され る 前に 制 
約 を 与える ことができる。 この 問題 を 先の 制約 に よ り 既に 排除 さ 
れ たもの 以外の 可能性の み を 生成す る ことに 基づいて 解く ずつ と 
効率の 良い 非 決定 性 手続 を 書き、 実演せ よ。 

Exercise  4.41: 複数 住居 パズル を 解 く 通常の Scheme プロ ダラ ム を 
書け。 

Exercise  4.42: 次の "嘘つき" パズル (Phillips  1934 から) を 解け 
5 人の 女生徒が 試験の ために 座って いる。 彼女 達 は、 彼女 等の 両親 
が 結果に 過大な 興味 を 見せて いる と 考えて いる。 従って 彼女 達 は 
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次の こと を 合意した。 それぞれの 少女が 1 つの 正しい 文と 嘘の 文 
を 作り、 各 家庭に 試験に ついての 手紙 を 書く。 以下 は 彼女ら の 手 
紙の 該当する 一節で ある。 

. Betty:  "Kitty が 試験で は 二位だった。 私 だけが 3 位だった。 

. Ethel: "喜んで、 私が ト ッ プ。 Joan が 2 位だった。 " 
. Joan:" 私が 3 番。 可哀想な Ethel は 最下位だった。 " 

•  Kitty:" 私が 2 番。 Mary が 単独で 4 位。 " 
. Mary:" 私が 4 位。 トップ は Betty が 取った わ。 " 

実際に は どの 順に 5 人の 女の子 は 並べられ るか？ 

Exercise  4.43:  amb 評価 機 を 用いて 以下の パズル を 解け48 
Mary  Ann  Moore の 父 はョッ トを 持って おり、 彼の 4 人の 友達、 
Downing 大佐， Hall さ ん， Barnacle  Hood 卿， Dr.  Parker も それ ぞ 
れが 持って いました。 5 人の それぞれに 一人の 娘が おり、 それぞれ 
が 各 自の ヨットに 他人の 娘の 名 を 取って 付けて いました。 Barnacle 
卿の ヨット は Gabrielle で、 Moore さ んのは Lorna です。 Hall さ ん 
の は Rosalind です。 Downing 大佐の Melissa は Barnacle 卿の 娘の 
名 を 取って 付けました。 Gabrielle の 父の ョッ トは Dr.  Parker の 娘 
からです。 Lorna の 父 は 誰でしょう？ 

効率 良く 実行され る プログラム を 書く ように 努める こと （Exercise 
4.40 参照)。 また、 もし Mary  Ann の 家族 名が Moore であ る こと を 
伝 えなければ、 いくつの 解が 存在す るだろう か？ 

Exercise  4.44:  Exercise  2. 42 は チェス 盤に 8 つの クィーン を どの 2 
つもお 互いに 攻撃す る ことが 無い ように 置く  "8 クィーン パズル" 
について 説明した。 この パズル を 解く 非 決定 性 プログラム を 書け。 

自然言語の 構文 解析 

自然言語 を 入力と して 受け入れ るよう 設計され た プログラム は 通常、 その 
入力 を parse (パース、 構文 解析） する ことから 始めます。 つまり 入力 を ある 文 

48 これ は 1960 年代に Litton  Industries により 出版され た "問題の 多い レク リ エー ショ 
ン" と 呼ばれる 小冊子から 引用し ました。 Kansas  State  Engineer 著。 
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法 構造に 対して 合わせる ことです。 例えば 冠詞と 続く 名詞、 続く 動詞から 成る 

簡単な 文、 "The  cat  eats." (猫 は 食べる） のよう な 物 を 認識しょう と している と 
します。 そのような 分析 を 達成す るた めに は 個別の 単語の 品詞 を 判別 で き な け 
れ ばな り ません。 多種の 単語 を 判別で きるいく つかの リストから 始める ことが 
できる でしよう。 49 

、deiine  nouns  '、！ ioun   student   professor   cat  class)) 
( dei ine   verbs    1 (verb   studies   lectures   eats   sleeps ) ) 
( dei ine   articles    ' (article  the  a) ) 

ま だ gmmmaii 文法 、 も 必要です。 つまり、 文法 上の 要素が どの ようにより 簡単 
な 要素 か ら 組み立て られ るの か を 説明す る ルールの 集合です。 とても 簡単な 文 
法 は 文 は 常に 2 つの 要素 一 名詞句 と それに 続 く 動詞 一に よ リ 成る と 規定す る 
ことができる かもしれ ません。 そして 名詞句 は 定冠詞と それに 続く 名詞から 成 
リ 立ちます。 この 文法 を 用いて、 文" The  cat  eats." は 以下の ように パースされ 
ます。 

I,  sentence    ^noun-ohr ase    (article  the)    v.noun  cat ) ) 
(verb   eats ) ) 

そのような パース を、 手続 を 各 文法 上の ルールに 分割す る 簡単な プログラム を 

用いて 生成す る ことができます。 文 を パースす るた めに は、 それ を 構成す る 2 
つの 要素 を 判別し、 これらの 2 つの 要素の リ ス トを シンボル sentence の タグ 
を 付けて 返します。 

dei  ine  (parse-sentence; 
、丄 ist    1  sentence 

(par se-noun-Dhrase ) 
(parse-word  verbs ) ) ) 

名詞句 も 同様に 定冠詞と それに 続く 名詞 を 見つける ことで パース されます。 

、 dei ine    (parse-noun- phrase) 
、上 ist    1  noun-phrase 

(parse-word  articles) 
(parse-word  nouns ) ) ) 

49 ここで は 各 リストの 最初の 要素 は リストの 残りの 単語の 品詞 を 示す という 仕様 を 用 
いています。 
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最も 低い レベルで は、 パースと は 繰り返し 次の パースされ ていない 単語が 必要 
とされる 品詞の ための 単語の リストの メンバで あるか を チェック する こと だと 

まとめられます。 これ を 実装す るた めに、 私達 は グローバル 変数 *miparsed* 
を 持ちます。 これ はま だ パースされ ていない 入力です。 単語 を チェック する 各 
時点で *unparSed* が 空で はない こと を 要求し、 また 指定され た リストの 単語 
で 始まる こ と を 要求し ます。 も しそうであるなら その 単語 を *unparsed* から 
削除し、 その 単語 を その 品詞 （これ は リストの 先頭に 見つかります） と共に 返し 
ます。 50 

dei ine    (parse-word  word-list ) 
(require    (not    (null?   *unDar sed* ；)) 

(require    (memq   ( car   *unpar sed* )    ( cdr  word-list ) ) ) 
(let    "found - word   (car   *unpar sed* ) ) ) 

(set!    *unpar sed*    ( cdr  *unparsed* ) ) 

(list    ( car  word-list )    found-word) ) ) 

パース を 始める ために 行わなければ いけない こと 全て は * 皿 parsed* に 入力 全 
体 を 設定し、 文の パース を 試み、 何も 残って いない こと を チェック する こと 
です。 

dei  ine   *unuar  sed*  'リ) 
( dei ine    (parse   input ) 

(set!    *unpar sed*   input ) 

(let    "sent  (parse-sentence))) 

(require    (null?   *unpar sed* ) )  sent)) 

これで パーザ （parser, パース を 行う プログラム） を 試し、 簡単な テスト 文に 対 
してう まく 働く こと を 確認す る こ と がで きます。 

； ； ； Amb-Eva I  input ： 
sparse    1 (the   cat   eats ) ) 
； ； ； Starting  a  new  problem 
； ； ； Amb-Eval  value: 

(sentence  (noun-phrase  (article  the)  (noun  cat))  (verb  eats)) 

50parse-word が parse されて いない 入力 リ ス 卜の 変更す るのに set! を 用いて いるお 
おに 注意して 下さい。 これ をう まく 行うた めに は、 amb 評価 機 は set! 命令の 効果 をバッ 
ク トラック する 時に 取り消し できな ければ いけません。 
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amb 評価 機 はこ こで とても 役立ちます。 require の 助け を 用いて パースす る 上 
での 制約 を 表現す るのに とても 便利な ためです。 しかし、 自動的な 探索と バッ 
ク トラックが 本当に 効果 を 生む の はより 複雑な 文法に ついて 考えた 時に、 1 つ 
の 単位の 分解 方法に 多数の 選択肢が 存在す る 場合です。 
私達の 文法に 前置詞 を 追加して みましょう。 

dei ine  prepositions    1  、prep  for  to   m  by  with  ； ) 

そして 前置詞 句 （例えば "for  the  cat" (猫の ために)） を 名詞句の 前の 前置詞と し 
て 定義し ます。 

V  dei ine    (par se-pr epos it  ion al- phrase ) 
( list    '  prep-phrase 

(parse-word  prepositions ) 
(par se -noun-phrase ) ) ) 

これで 文 は 名詞句に 動詞 句が 続く と 定義で き、 動詞 句 は 動詞 か、 または 前置詞 
句で 拡張され た 動詞 句 と な り ます。 51 

dei  ine  (parse-sentence; 
Viist    1  sentence    ( parse -noun-pnrase )    (par se- verb -phrase ) ) ; 
( dei ine    (parse- verb-phrase ) 

( dei ine    (maybe -extend  verb-phrase ) 
( amb  verb-phrase 

(maybe -extend 
(list    1  verb-phrase 
verb-phrase 

(par se-pr epos  it ional-phr as e ) ) ) ) ) 
(maybe -extend    (parse-word  verbs))) 

こ こ まで を 行って いる 間に、 名詞句の 定義に "a  cat  in  the  class" (クラスの 猫） 
のよう な 物 を 認める よう 詳細 を 詰める ことができます。 今まで 名詞句と 呼んで 
きた 物 はこれ から は シンプルな 名詞句と 呼びます。 そして 名詞句 はこれ から シ 
ン プルな 名詞句 か 前置詞 句で 拡張した 名詞句と なり ます。 

(, dei  ine    (parse-s  imple -noun-phrase  ) 
( list    ' simple-noun-phrase 

51 この 定義が 再帰 的で ある ことに 注意して 下さい。 動詞に は 任意の 数の 前置詞 句が 続 
けられます。 
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(parse-word  articles) 
(parse-word  nouns ) ) ) 
( def  ine    (parse -noun-phrase ) 

(define    (maybe -extend  noun-phrase ) 
( amb  noun-phrase 

(maybe -extend 
(list    1  noun-phrase 
noun-phrase 

(par se-pr epos  it ional -phrase ) ) ) ) ) 
(maybe -extend    (par se- simple-noun-phrase ) ) ) 

私達の 新 し い 文法 は よ リ 複雑な 文 を パースで きます。 例えば、 

に" parse    1  (the   student   with  the   cat   sleeps   m  the   class ； ) 

(猫と 一緒に その 生徒 は クラスで 寝て いる） は 以下 を 生成し ます。 

、 sentence 
(noun-phrase 

simple -noun-phrase    、articie  the )    (noun   student ) ； 
(prep-phrase 
(prep  with) 

( s imp le-noun- phrase    ( article  the )    (noun  cat ) ) ) ) 
(verb-phrase 
( verb   sleeps ) 
(prep-phrase 

(prep  in) 

( s imp le-noun- phrase    ( article  the )    (noun  class))))) 

与えられた 入力が 二つ 以上の 有効な 分析 結果 を 持つ かも しれない こと を 確認し 
C ドさ レヽ。 文 "The  proiessor  lectures  to  the  student  with  the  cat"     professor (教 

授） が 猫と 一緒に 講義 をして いる 場合と、 学生が 猫 を 持って いる 場合が 有り得 
ま す。 私達の 非 決定 性 プロ グラ ム は 両方の 可能性 を 見つけます。 

sparse    1 (the  professor   lectures  to  tne   student   with  the  cat)) 

は 以下 を 生成し ます。 

、 sentence 

( simple-noun- phrase    ( article   tne ；  、！ loun  professor; ) 
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(verb-phrase 
(verb-phrase 
(verb   lectures ) 
(prep-phrase 
(prep  to ) 

( simple -noun-phrase    ( article   the  )    (noun   student ) ) ) ) 
(prep-phrase 
(prep  with) 

( s  imp le-noun- phrase    ( article  the  )    (noun  cat))))) 

評価 機に も う 一度 試行 を 命ずる と 以下 を 生じます。 

に sentence 

( simple-noun- phrase    ( article   the ；  、！ loun  Drof essor ) ) 
(verb-phrase 
( verb   lecture s ) 
(prep-phrase 
(prep  to ) 
(noun-phrase 

( simple -noun-phrase    ( article  the)    (noun   student ) ) 
(prep-phrase 
(prep  with) 

( simple -noun-phrase    (article  the )    (noun  cat))))))) 

Exercise  4.45: 上で 与えられた 文法 を 用いて 次の 文 は 5 通り にパ一 

ス C? きる。 "The  professor  lectures  to  the  student  m  the  class  with 
the  cat"0  5 通り の 結果 を 与えて それらの 間の 様々 な 意味の 違い を 
説明せ よ。 

Exercise  4.46:  Section  4.1 と Section  4.2 は 評価 機 は どの 順で オペラ 

ン ドが 評価され るか を 決定し ない。 我々 は amb 評価 機が それら を 
左から 右へ と 評価す るの を 見る だろう。 なぜ 我々 の パーザ は オペ 
ラ ン ドが 何ら かの 他の 順で 評価され たな ら う まく 働かない のか 説 
明せ よ。 

Exercise  4.47:  Louis  Reasoner は 動詞 句 は 動詞 か 前置詞 句が 続く 

動詞 句で あるの だから、 手続 parse- verb- phrase を 以下の ように 

(そして 同様に 名詞句に 対しても） 定義 すればず つと 簡単になる の 
ではない かと 提案した。 
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( def  ine    (parse- verb -phrase ) 
( amb    (parse-word  verbs ) 
(list    1  verb-phrase 

(par se- verb -phrase ) 
(parse-prepositional-phrase)))) 

これ はう まく 行く だろう か？ この プロ グラムの 振舞 はも し amb 内 
の 式の 順 を 置き換えたら 変わる だろう 力、？ 

Exercise  4.48: 上で 与えられた 文法 を よ リ 複雑な 文 を 取り扱う よ う 
に 拡張せ よ。 例えば、 名詞句と 動詞 句 を 拡張し 形容詞と 福祉 を 含 
める、 または 複合 文 を 取り扱え るよう できる だろう。 52 

Exercise  4.49:  Alyssa  P.  Hacker は パースす る よ リも 面白い 文 を 生 
成す る ことにより 興味 を 持って いる。 彼女 は 手続 parse-word を 簡 
単に 変更して それが" 入力 文" を 無視し、 その代わりに 常に 成功し 
て 適切な 単語 を 生成す る よ う に すれば、 この パースの ために 構築 
した プログラム を 用いて 代わり に 生成 を 行える ので はない かと 推 
測した。 Alyssa の 考え を 実装せ よ。 そして 生成され た 文の 最初の 
半 ダース かそ こら を 示せ。 53 


4.3.3   Amb 評価 機の 実装 

通常の Scheme 式の 評価 機 は 値 を 返す か、 永遠に 停止し ないか、 または エラ 
一 を 発します。 非 決定 性 Scheme では 式の 評価 は それに加えて 探索が 行き 止ま 
リ に 帰結し ます。 その場合には 評価 機 は 依然の 選択 点へ バッ ク トラック しなけ 
れ ばな リ ません。 非 決定 性 Scheme の 解釈 はこの 特別な 場合に よ り 複雑に な リ 
ます。 

52 こ の 種の 文法 は 任意の 複雑 さに 成り 得ます。 し かし 現実の 言語の 理解 を 考える 限り 
はた だの 玩具に 過ぎません。 現実の 自然言語の コンピュータ による 理解 は 構文 解析 と 意 
味 解釈の 念入りな 混合が 要求され ます。 一方で、 例えお もちやの パーザで も プログラム 
のた めの 柔軟な 命令 言語、 例えば 情報 取得 システム 等 を サポートす るに は 実用的です。 
Winston  1992 は 計算機に よる 自然言語 理解への 取り組み と共に 簡単な 文法の 命令 言語の 
アプリ ケーシ ヨンに ついても 議論して います。 

53  Alyssa の アイデア はちゃん とう まく 働きます が （そして 驚く ほ ど 簡単です が)、 それ 
が 生成す る 文 は 少しつ まらないです。 それら はこの 言語の 可能な 文から とても 面白い 様 
に は 抽出 はしません。 実際に 文法 は 多くの 場所で 高度に 再帰し、 Alyssa の 技術 は これらの 
再帰の 1 つに "falls  into" (陥 リ )、 抜け出せな く な リ ます。 これに 対処す る 方法 は Exercise 
4.50 を 参照して 下さい。 
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私達 は 非 決定 性 Scheme のた めの amb 評価 機 を、 Section  4.1. 7 の 分析 評価 機 
を 変更す る ことで 構築し ます。 54 分析 評価 機の ように、 式の 評価 は 式の 分析に 
よ リ 生成 される 実行 手続 を 呼ぶ ことにより 達成され ます。 通常の Scheme の 解 
釈 と 非 決定 性 Scheme の 解釈 との 違い は 完全 に 実行 手続の 中に 存在し ます。 

手続と 継続の 実行 

通常の 評価 機の 実行 手続が 1 つの 引数、 実行の 環境 を 取る こと を 思い出し 
て 下さい。 対照的に、 amb 評価 機の 実行 手続 は 3 つの 引数 を 取ります。 環境と 
continuation  procedures (継続 手続） と 呼ばれる 2 つの 手続です。 式の 評価 はこ 
れらの 2 つの 継続の 1 つ を 呼ぶ ことで 完了し ます。 も し 評価の 結果が 値に 帰 
結す るなら ば、 success  con^rmah'on (成功 継続） がその 値と 共に 呼ばれます。 も 
し 評価が 行き 止ま リの 発見に 帰結した ので あれば、 failure  coniirmaiion (失敗 継 
続） が 呼ばれます。 適切な 継続の 構築と 呼 出が 非 決定 性 評価 機の バッ クトラ ッ 
ク が 実装され る 仕組みです。 

値 を 受け取り 計算 を 続行す る ことが 成功 継続の 仕事です。 その 値と 共に、 成 
功 継続 は 別の 失敗 継続 も 渡されます。 これ は その後に も しその 値の 使用が 行き 
止ま リ に 導いたなら 呼び出されます。 

非 決定 性 処理の 他の 分岐 を 試す の は 失敗 継続の 仕事です。 非 決定 性 言語の 
本質 は 式が 選択肢の 間の 選択 を 表現す るだろう という 事実の 中に 存在し ます。 
そのよう な 式の 評価 は 例え 前もって どの 選択肢 受け入れ 可能な 結果に 導く か 知 
ら なくても 指示され た 代替と なる 選択の 一つ を 用いて 続行し なければ なり ませ 
ん。 これ を 処理す るた めに は、 評価 機 は 選択肢から 1 つ を 取り出し この 値 を 成 
功 継続に 渡します。 この 値と 共に、 評価 機 は 後で 異なる 選択肢 を 選択す るた め 
に 呼び出し 可能 な 失敗 継続 を 構築し、 一緒に 渡します。 

失敗 は 評価の 間に 引き起こされます。 （言い換えれば 失敗 継続が 呼ばれ ま 
す)。 それ は ユーザ プログラムが 明示的に 現在の 一連の 取り組み を 拒絶した 場 
合に 起こります。 （例えば、 require の 呼 出 は 結果と して （amb) が 実行され る 
場合が あります。 これ は 常に 失敗す る 式です。 一 Section  4.3.1 参照)。 その 時点 
で 手中に ある 失敗 継続が 最も 最近の 選択 点に 他の 選択肢 を 選択させます。 も し 
もう その 選択 点に て 考えられる 他の 選択肢が 無い 場合に は、 直前の 選択 点の 失 
敗が 引き起こされます。 以下 その 繰り返しです。 失敗 継続 はまた 式の 別の 値 を 


54 私達 は Section  4.2 の 遅延 評価 機 を Section  4.1.1 の 通常の メ タ 循環 評価 機に 対する 変 
更 として 実装す る こと を 選択し ました。 対照的に、 Section  4.1.7 の 分析 評価 機 を amb 評 
価 機の 基に します。 その 評価 機内の 実行 手続が バッ クトラ ッ クを 実装す るのに 便利な フ 
レーム ワーク を 提供す るた めです。 
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見つける ための ドライバ ループに よる try-again 要求への 応答と しても 起動 
されます。 

加えて、 も し 副作用 命令 （変数への 代入 等） が ある 選択の 結果と しての 分岐 
処理 上で 起こったならば、 処理が 行き 止ま リを 見つけた 時に、 新しい 選択 を 行 
う 前に その 副作用 を取リ 消しす る 必要が あるか も しれません。 これ は 副作用 命 
令 に 副作用 を 取り消し 失敗 を 伝播 させる 失敗 継続 を 生成させる ことで 達成され 
ます。 

まとめと して、 失敗 継続 は 以下に より 構築され ます。 

•  amb 式  一 amb 式に より 行われた 現在の 選択が 行き 止ま リ に 導いた 場合に 

別の 選択 を 行う 仕組み を 提供し ます 

• トップレベル ドライバー 選択肢が 枯渴 した 時に 失敗 を 報告す る 仕組み を 
提供し ます 

• 代入 一失 敗に 割り込み、 バックトラックの 間に 代入 を 取り消します 

失敗 は 行き 止ま りに 遭遇した その 時の み 起動され ます。 これ は 以下の 場合に 起 
こ り ます。 

. ユーザ プロ ダラ ム が （amb) を 実行 し た 

. ユーザが トップレベル ドライバ にて try-again を 入力した 

失敗 継続 はまた 失敗 処理の 間に も 呼ばれます。 

• 代入が 副作用の 取消 を 完了させる ことで 失敗 継続が 作成され た 時に、 そ 
れは割 リ 込んだ 失敗 継続 を、 失敗 を 伝播 させこの 代入に 導い た 選択 点 に 
戻す ために、 または トップレベルに 戻す ために 呼びます。 

•  amb に対する 失敗 継続が 選択肢 を 使い切った 時、、 失敗 を 直前の 選択 点か 
トップレベルに 伝播させる ために、 amb に対して 元々 与えられた 失敗 継 
続 を 呼び出します。 

評価 機の 構造 

amb 評価 機に 対する 文法 と デー タ の 表現 手続、 ま た 基本的な analyze 手続 
は、 Section  4.1. 7 の 評価 機の それらに 等しい 物です。 しかし 私達が 追加の 構文 
手続 を amb の 特殊 形式 を 認識す るた めに 必要と する ことが 異なります。 55 


55 評価 機 は let を サポート すると 想定して います。 （Exercise  4.22 参照)。 私達 はこれ を 
非 決定 性 プロ グラム 内に て 利用して きました。 
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(define    ( amb?   exp ) 

(tagged-list?   exp  'amb)) 
(define    (amb - choices   exp)    ( cdr  exp)) 


analyze 内に この 特殊 形式 を 認識し、 適切な 実行 手続 を 生成す る 呼 出 を 追加し 
なければ なり ません。 

I.  (  amb  r   exp  ；      analyze  -  amb  exp)) 

ト ッ プ レベル 手続 ambeval (Section  4.1. 7 で 与え られた eval の 版に 似た 物） は 
与えられた 式 を 分析し、 実行 手続 を 与えられた 環境に 対し、 2 つの 与えられた 
継続と 一緒に 適用し なければ なり ません。 

def ine    ( ambeval  exp  env   succeed  fail) 
( ( analyze   exp )    env  succeed  fail)) 

成功 継続 は 2 引数の 手続です。 2 引数 は 得られた ばかりの 値と その 値が その後 
に 失敗へ と 導いたなら 使用され る 別の 失敗 継続です。 失敗 継続 は 引数 無しの 手 
続です。 そのため 実行 手続の 一般的な 形 は 以下の よ う にな り ます。 

、丄 ambda   ( env   succeed  fail ノ 

；; succeed  is  (lambda  (va 丄 ue ェ ail) . . .j 

；; fail  is  ( lambda  () ...) 

...) 

例えば、 以下 を 実行す ると、 

、 ambeval  (exp) 

"the  -  glob  a 丄- environment 
(lambda   rvalue   fail)    value ； 
(lambda   ()  'failed)) 

与えられた 式 を 評価し、 式の 値 （評価が 成功した 場合） か シンボル failed (評価 
が 失敗した 場合） を 返します。 以下で 示される ドライバ ループ 内での ambeval 
の 呼 出 はよ リ 多くの 複雑な 継続 手続 を 使用し ます。 これら は ループ を 継続し 
try-again 要求 をサ ポー ト します。 

amb の 複雑さの 多く は 実行 手続が お 互い を 呼ぶ に 従い、 継続 をたら い 回し 
にす る ことから 来て います。 以下の コード を 通して 読む に 当って、 それぞれの 
実行 手続 を Section  4. 1 . 7 で 与えられ た 通常の 評価 機 のた めの 対応す る 手続と 比 
ベて 下さい。 
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単純な 式 

最も 単純な 種類の 式に 対する 実行 手続 は 本質的に 通常の 評価 機に 対する も 
のと 同じです。 ただし、 継続 を 管理す る 必要が ある ことが 異なります。 これら 
の 実行 手続 は 式の 値と 共に 単純に 成功し、 渡された 失敗 継続 を そのまま 手渡し 
ます。 

def ine    ( anal vze  - sel エ- evaluating  exp) 
( lambda   ( env   succeed  fail) 
( succeed  exp  fail))) 
(define    (analyze- quoted  exp ) 

(let    ( ( qval   (text-of-quotation  exp))) 
( lambda   ( env   succeed  fail) 
(succeed  qval  fail)))) 
(define    ( analyze - variable  exp) 
( lambda   ( env   succeed  fail ) 

( succeed    ( lookup- variable -value   exp  env) 
fail))) 

(define    ( analyze -lambda  exp ) 

(let    ( ( var s    ( lambda-parameters  exp)) 

(bproc    (analyze- sequence    ( lambda-body  exp)))) 
( lambda   ( env   succeed  fail) 

(succeed    (make-procedure   var s  bproc  env) 
fail)))) 

変数の 検索が 常に '成功' する ことに 注意して 下さい。 も し lookup-variable- 
value が 変数 を 見つける のに 失敗した 場合、 それ はいつ も 通り に エラー を 発し 
ます。 そのような "失敗" は プログラムの バグ 一未 束縛な 変数への 参照 一 を 示 
します。 これ は 現在 試行 中の 物の 代わりに 別の 非 決定 性 選択 を 試す こと を 示し 
てはいません。 

条件文と 列 

条件文 もまた 通常の 評価 機と 同様に 取り扱われます。 analyze-if により 
生成され る 実行 手続 は 述語 実行 手続 pproc を 成功 継続と 共に 起動し ます。 成 
功 継続 は 述語の 値が 真で あるか チ エツ ク し、 結果 部 （consequent) か 代替 部 
(alternative) を 実行し ます。 も し pproc の 実行が 失敗した な ら if 式に 対する 
元の 失敗 継続が 呼ばれます。 
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(define    (analyze - if  exp) 

(let    "pproc    ( analyze    ( if -predicate  exp))) 
( cproc    ( analyze    (if-c on sequent  exp))) 
( aproc    ( analyze    ( if - alternative  exp)))) 
( lambda   ( env   succeed  fail) 
(pproc  env 

；; 述語 を 評価す るた めの 成功 継続 を 置く 
；; pred-value を 得る ため 
、丄 ambda   (pred-value   f ail2) 
V if    (true?  ored-value ) 

( cproc   env   succeed  f ail2 ) 
( aproc   env   succeed  f ail2 ) ) ) 

；; 述語 を 評価す るた めの 失敗 継続 

fail)))) 

列 もまた 以前の 評価 機 と 同様に 取り扱われます。 ただし 継続 を 渡す ために 必要 
とされる 内部 手続 sequentially 内の 企みが 異なり ます。 具体的に は a を 実行 
し、 次に b と 順に 行うた めに、 a を 成功 継続と 共に 呼び、 成功 継続が b を 呼び 
ます。 

dei ine    t^analvze- sequence   exps  ) 
(define    (sequentially  a  b) 
( lambda   ( env   succeed  fail) 
(a  env 

；; a を 呼ぶ ための 成功 継続 
( lambda   (a- value  f ail2) 
(b  env   succeed  f ail2) ) 

；; a を 呼ぶ ための 失敗 継続 
fail))) 

(define    v 丄 ood   f irst-proc   rest-procs ) 
(if    (null?   rest-procs ) 
f  irst-proc 

(loop    ( sequentially  f ir st-pro c 

(car  rest-procs ) ) 
( cdr  rest-procs ) ) ) ) 
(let    "procs    (map   analyze  exps))) 
( if    (null?  procs ) 
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(error   " Empty   sequence :    ANALYZE " ) ) 
(loop    ( car  procs )    ( cdr  procs ) ) ) ) 

定義と 代入 

定義 は 継続 を 管理す るた め に 手間 を か け な ければ レ 、 け な い 一例です。 定義 

の 値 （definition- value) の 式 を 実際に 新しい 値 を 定義す る 前に 評価す る 必要が あ 
るた めです。 これ を 達成す るた めに は 定義 値 実行 手続 vproc が 環境、 成功 継続、 
失敗 継続と 共に 呼ばれます。 も し vproc の 実行が 成功したなら 定義 値の ための 
値 val を 取得し、 変数が 定義され 成功が 伝播され ます。 

(, del ine    (analvze-aefinition  exp) 

、上 et    (,  (,  var    (definition— variable   exp) ； 

( vproc    ( analyze    (definition - value  exp)))) 
( lambda   ( env   succeed  fail) 
(vproc  env 

(lambda  ( val f ail2) 

(define - variable !    var  val  env) 
( succeed    ' ok  f ail2 ) ) 
fail)))) 

代入 はもつ と 面白いです。 これ は 継続 をたら い 回しに する ので はなく、 本当に 
継続 を 使用す る 最初の 場所です。 代入の ための 実行 手続 は 定義の ための ものと 
同様に 開始し ます。 最初に 変数に 代入され る 新しい 値 を 取得し ようと 試みます。 
もし この vproc の 評価が 失敗した ら 代入 は 失敗し ます。 

しかし vproc が 成功し 代入 を 行なおう と した 場合に は、 この 計算の 分岐が 
後に 失敗す る 可能性に ついて 考えねば なり ません。 この場合に は 代入から 外れ 
て バック トラック する 必要が あり ます。 従って この 代入 を バック トラック 処理 
の 一部分と して 取消す る 準備 をし なければ な リ ません。 56 

これ は vproc に （下で コメン ト "*1*" が 記された） 成功 継続 を 与える こと 
で 達成され ます。 この 成功 継続 は 新しい 値 を 代入し、 結果と して 存在す る 前 
に、 変数の 古い 値 を 保存し ます。 代入 値と 共に 渡された （下で コメント" *2*" 
が 記された） 失敗 継続 は 失敗 を 続ける 前に 変数の 古い 値 を 再 格納し ます。 つま 
リ、 代入の 成功 は 後の 失敗に 割り込む 失敗 継続 を 提供し ます。 そうでなければ 

56 定義の 取消に ついては 心配し ません。 内部 定義 は 走査され たこと が 想定 可能な ため 
です。 （Section  4.1.6) 
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fail2 を 呼んで いた はずの どんな 失敗 もこの 手続 を 代わりに 呼ぶ ことで、 実際 
に f  ail2 を 呼ぷ 前に 代入 を 取 り 消 します。 

^define    (analvze- assignment  exp) 

、丄 et    、、var    ( assignment -van able   exD) ； 

( vproc    ( analyze    ( as  signment- value  exp)))) 

( lambda   ( env   succeed  fail) 
(vproc  env 

(lambda   (val f ail2)  ； 
( let    ( ( old-value 

( 1 ookup- variable -value   var  env))) 
( set-variable- value ！    var  val  env) 
( succeed    ' ok 

(lambda   ()  ；  *2* 

(set-variable-value ！ 

var  old-value   env ) 
(fail2))))) 

fail)))) 

手続の 適用 

適用の ための 実行 手続 は 新しい アイデア を 含んで はいません。 ただし 継続 
を 管理す る 技術的な 複雑さが 異なり ます。 この 複雑さ は analyze-application 
の 中で オペ ラン ドを 評価す るに 従い 成功と 失敗の 継続 を 追跡す る 必要が あるた 
めに、 浮上し ます。 私達 は 通常の 評価 機の 中の 様に 単純に map を 使う のでな く、 
手続 get-args を 用いて オペ ラン ドの リスト を 評価して います。 

^define    ( analvze -appli cat ion  exo) 

(let    (  ( f proc    ( analyze    ( operator  exp))) 

( aprocs    (map  analyze    ( operands  exp)))) 
( lambda   ( env   succeed  fail) 
( f proc  env 

(lambda   (proc   f ail2 ) 
(get-args  aprocs 
env 

(lambda   ( args   f ail3 ) 
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(execute-application 
proc   args   succeed  f ail3 ) ) 
f ail2) ) 

fail)))) 

get-args の 中で は、 どのよう にして aproc 実行 手続の リスト を cdr で 下 リ 、 そ 
して 結果の args の リス トを 全て cons する かにつ いて 注意して 下さい。 これ は 
リ ス ト 中の 全ての aproc を、 再帰 的に get-args を 呼ぶ 成功 継続と 共に 呼ぶ こ 
とに より 達成され ます。 これらの get-args に対する 全ての 再帰 的 呼 出 は、 蓄 
積され た 引数の リストの 上に 新しく 取得され た 引数 を cons した 値 を 返す 成功 
継続 を 持って います。 

^define    (get-args   aprocs   env   succeed  fail) 
if    (null?   aprocs ) 

(succeed   ' ()  fail) 
( ( car  aprocs ) 
env 

；; この aproc のた めの 成功 継続 
( lambda   ( arg  f ail2 ) 
Vget-args 

car   aprocs  ) 
env 

；; get-args の 再帰 呼 出の ための 
，•，• 成功 継続 

(lambda   、 args  f ail3 ； 

succeed   (  cons   arg  args  ；    f  ail3 ) ) 
fail2)) 
fail))) 

exe@-cute-application によ り 実行され る 実際の 手続 適用 は 通常の 評価 機に 

対する 物と 同じ 方法に て 達成され ます。 ただし 継続の 管理の 必要が 異なり ます。 

def ine    (execute-application  proc   args   succeed  fail ) 
( cond   ((primitive-procedure?  proc ) 

( succeed   ( apply - primitive - procedure  proc   args ) 
fail)) 

( ( compound-procedure?  proc ) 
( (procedure -body  proc ) 
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( extend- environment 
(procedure-parameters  proc ) 
args 

(procedure- environment  proc ) ) 
succeed 
fail)) 

(else    ( error   " Unknown  procedure   type : 
EXECUTE-APPLICATION" 
proc) ) ) ) 

amb 式の I 平ィ而 

amb の 特殊 形式 は 非 決定 性 言語の 鏈 となる 要素です。 ここで は 逐次 翻訳 処 
理の 本質と 継続 を 追跡す る 理由に ついて 学びます。 amb に対する 実行 手続 はル 
—プ tiy-next を 定義し ます。 これ は 全ての amb 式の 可能な 値の ために、 全 実 
行 手続 を 通して 実行し ます。 各 実行 手続 は 次の 実行 手続 を 試す 失敗 継続と 共に 
呼ばれます。 試行す る 選択肢が 無くなった 時には、 amb 式 全体が 失敗し ます。 

V def ine    (analvze-amb  exp) 

、丄 et    v  v  cprocs    (map  analyze    (amb  —  choices   exp ；) ) ; 
( lambda   ( env   succeed  fail) 
(def  ine    (try-next   choices ) 
(if    (null?   choices ) 
(fail) 

((car   choices ) 
env 

succeed 

(lambda   ()    (try-next    ( cdr  choices)))))) 
(try-next   cprocs ) ) ) ) 

ドライバ ループ 

amb 評価 機の ドライ バ ループ は 複雑です。 ユーザに 式の 評価 を 再 試行 （try- 
again)  する こと を 可能に する 仕組みの ためです。 ドライバ は internal-loop と 
呼ばれる 手続 を 使用し ます。 これ は 引数と して 手続 try-again を 取ります。 こ 
れの 意図 は try-again の 呼 出 は 次の まだ 試行され ていない 非 決定 性 評価に お 
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ける 選択肢へ 続けなければ ならない ことです。 internal-loop は ユーザの ドラ 
ィバ ループでの try-again の 入力への 応答と して try-again を 呼ぶ か、 また 
はそう でな ければ ambeval を 呼ぶ ことにより 新し い 評価 を 開始し ます。 

ambeval への この 呼 出の ための 失敗 継続 は ユーザに もう 値 は 残って いない 
と 伝え、 ドライバ ループ を 再起動す る。 

ambeval への 呼 出の ための 成功 継続 はよ り 微妙です。 獲得した 値 を 表示 
し、 次に 内部 ループ を 再び 起動し ます。 起動に は 次の 選択肢 を 試行 可能な try- 
again  手続 を 伴ない ます。 この next-alternative 手続 は 成功 継続に 二番目の 
引数と して 渡されます。 通常 はこの 二番目の 引数 はもし 現在の 評価 分岐が 後に 
失敗 場合に 利用され る 失敗 継続と して 考えます。 今回の 場合 はしかし、 評価 を 
成功裏に 完了 しました。 そのため "失敗" の 代替 分岐 を 追加の 成功す る 評価 を 
探す ために 起動す る ことができます。 

dei ine input-prompt      "  ；  ；  ；    Amb-t^val   input:1' ソ 
dei ine   out Dut -prompt    "  ;  ;  ;    Amb-t^val va 上 ue:1' ソ 
( dei ine    (driver-loop ) 

( dei  ine  internal-loop  try-again ) 
( prompt -f  or- input  input-prompt ) 
(let    "  input    (read) ) ) 

(if    ( eq?   input    1  try-again) 
(try-again) 
(begin 

(newline ) 

(display   " ; ; ;    Starting  a  new  problem   " ) 
( ambeval 
input 

the -global -environment 

； ； ambeval  success 

(lambda   ( val next-alternative) 
( announce - output   out put -prompt ) 
(user-print  val) 

^internal-loop  next-alternative)) 
； ； ambeval  failure 
(lambda  () 

( announce-output 
" ; ; ; There   are  no  more   values   of " ) 

(user-print   input ) 
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(driver-loop))))))) 
( internal -loop 
(lambda  ( ) 
(newline  ) 

(display   "  ;  ;  ;    There   is  no   current  problem " ) 
(driver-loop)))) 

internal-loop の 最初の 呼 出で は 現在、 問題が 無い と 不服 を 述べ、 ドライ バル 
ープを 再開し ます。 これ は ユーザが try-again を 入力し 評価に 進展が 無い 場合 
に 起こる 振舞です。 

Exercise  4.50:  amb と 似て いる 力、 次の 選択肢 を 左から 右へ でな く 

ラ ン ダムな 順で 探索す る 新しい 特殊 形式！ ■amb を 実装せ よ。 Exercise 
4.49 における Alyssa の 問題 を どのよう に 助ける か 示せ。 

Exercise  4.51: 失敗 時に 取り消されない permanent-set! と 呼ばれ 

る 新しい 種類の 代入 を 実装せ よ。 例えば、 以下の 様に 2 つの 区別 
可能 な 要素 を リストから 選択 し、 成功し た 選択 に 必要と し た 試行 
の 数 を カウント する。 

def ine   count  0) 
、丄 et    (kx   、 an — element  —  of    ' に a  b  c ) ; ) 

(y   ( an - element - of    1 (a  b  c ) ) ) ) 
(permanent-set ！    count    (+   count 1) ) 
(require    (not    ( eq?  x  y ) ) ) 
(list  x  y  count ) ) 
；;; Starting  a  new  problem 
； ； ； Amb-Eval  value: 
(a  b  2) 

； ； ； Amb-Eval  input : 

try-again 

；;; Amb-Eval  value: 

(a  c  3) 

ここで permanent- set! の 代わりに set! を 使ったら どんな 値が 表 
示される だろう か？ 

Exercise  4.52: ユーザに 式の 失敗 を 捕獲させる こ と を 可能に する 新 
しい コンス トラクタ if-fail を 実装せ よ。 if-fail は 2 つの 式 を 
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取る。 最初の 式 を 通常 通リ に 評価し 評価が 成功したら 普通に 戻る。 

しかし、 も し 評価が 失敗したら 2 つ 目の 式の 値が 以下の 例の 様に 
返される。 

； ； ； Amb-Eval  invut ： 

(if-f ail    (let    ( (x   ( an - element - of    '(1 3  5) ) ) ) 
(require    (even?  x) ) 
x) 

1  all-odd) 

； ； ； Starting  a  new  "problem 
； ； ； Amb-Eval  value: 
al l 一  odd 

； ； ； Amb-Eval  input : 

(if-f ail    (let    (  (x    (an - element - of    '(1   3  5  8) ) ) ) 
(require    (even?  x) ) 
x) 

■all-odd) 

； ； ； Starting  a  new  -problem 

； ； ； Amb-Eval  value: 

8 

Exercise  4.53:  Exercise  4. 51 で 説明した permanent— set! と Exercise 
4.52 の if- fail を 用いて 以下 を 評価した 時 どのよう な 結果に な 
るか。 

(let    ((pairs    ' ())) 
(if-f ail 

( let    ( (p   berime- sum-pair  '(1^58) 

■ (20  35 110)))) 

(permanent-set ！    pairs    ( cons  p  pairs)) 

(amb)) 
pairs ) ) 

Exercise  4.54: も し require が amb を 用いた 通常の 手続と して 実 

装で きる ことに 気付かなかった 場合、 ユーザに より 非 決定 性 プロ 
グラムの 一部と して 定義され るた めに、 それ を 特殊 形式と して 実 
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装す る 必要が あった はずで ある。 これ は 以下の 構文 手続 を 必要と 
したであろう。 


dei ine    (.require?  exp; 
(tagged-list?   exp    'require リ) 
( dei ine    (require - predicate  exp) 
( cadr  exp) ) 

そして analyze 内の 呼 出に 新しい 節が 必要と なった。 
((require?   exp)    ( analyze - require  exp)) 

ま た require 式 を 取り扱う 手続 analyze-require も 必要と なつ 
た。 以下の analyze-require の 定義 を 完成 させよ。 

dei  ine     an alvze-re quire  exp; 
(let    ( (pproc    ( analyze    ( require -pre die ate  exp)))) 
(lambda   ( env  succeed  fail) 
(pproc  env 

(lambda   (pred-value   fai 丄 2) 
(if  {??) 
〈？ ？〉 

( succeed    1  ok  f ail2 ) ) ) 
fail)))) 


4.4 論理 プログラミング 

Chapter 1 では 計算機 科学 は 命令 型 （どうす るか） の 知識 を 扱い、 一方、 数学 
は 宣言 型 （何で ある 力 り の 知識 を 扱う と 強調し ました。 実際に、 プログラミング 
言語 は プログラマが 特定の 問題 を 解く ために、 段階 的な 手法 を 示す 形式に よ リ、 
知識 を 表現す る こと を 要求し ます。 一方、 高級 言語 は 言語の 実装の 一部と して 
ユーザ を、 指定 さ れた 演算が どのように 進められる かにつ いての 詳細 か ら 解放 
する、 十分な 量の 方法論 的 知識 を 提供し ます。 

Lisp を 含む 多 くの プロ ダラ ミ ング 言語 は 数学 上の 関数の 値の 演算の 周 リ に 
体系化され ています。 式 指向の 言語 （例えば Lisp、  Fortran,  Algol) は 関数の 値 
を 記述す る 式が その 値 を 求める 手段と しても 解釈され ると いう "多義性" を+ 
分に 活用して います。 このため、 多くの プログラミング 言語 は 単 向性 演算 （明 
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確な 入力と 出力 を 持つ 演算） に 向けて 強く 偏って います。 しかし、 この 偏リを 
緩和す る 完全に 異なる プログラミング 言語 も 存在し ます。 そのような 言語の 例 

を Section  3.3.5 で 見ました。 そこで は 計算 オブジェ ク トは 数値 的な 制約でした。 
制約 システム では 演算の 向きと 順 は あまり 明らかに は 指定され ません。 従って、 
演算の 実行に おいて システム はよ リ 詳細な "行い 方" の 知識 を、 通常の 数値 演 
算 による 場合よりも 多く 提供し なければ なりません。 しかし、 これ は ユーザが 
命令 型の 知識 を 提供す る 責任から 完全に 解放され る こと は 意味し ません。 同じ 
制約の 集合 を 実装す る 制約 ネッ ト ワーク は 数多く 存在し、 ユーザ は 数学的に 等 
価な ネッ ト ワークの 中から 特定の 演算 を 指定す るのに 適切な ネッ ト ワーク を 選 
択 せねば な リ ません。 

Section  4.3 の 非 決定 性 プログラム 評価 機 もまた プロ グラ ミ ングと は 一方 向 
性 関数の ための アルゴリズム を 構築す る ことで あると いう 視点から 離れて いま 
す。 非 決定 性 言語に おいて は、 式 は 2 つ 以上の 値 を 持つ ことができ、 結果と し 
て 演算と は 単一の 値の 関数で はな く 関係 性 を 取り扱う 物に な り ます。 論理 プロ 
ダラ ミ ングは プロ グラ ミ ングの 関係 性の 視点と unificaMon、=L ニフィ ケ一シ ョ 
ン、 単一化） と 呼ばれる 強力な 種類の 記号 パターンマッチングと を 組み合わせ 
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る ことで この 考え を 拡張し ます。 57 

この 取り組み 方 は、 うまく 行く 場合に は、 プログラム を 書く のに とても 強 
力な 方法と なります。 その 力の 一部 は 単一の" 何で あるか" という 事実が、 異な 
る "行い 方" の 要素 を 持つ かも しれない いくつかの 異なる 問題 を 解決す るのに 

使用で きる という 事実から 来て います。 例と して、 append 命令に ついて 考え ま 
しょう。 これ は 2 つの リスト を 引数と して 取り、 それらの 要素 を 結合して 単一 

の リスト を 形成し ます。 Lisp のよう な 手続 型 言語で は append を 基本的な リ ス 
トコ ンス トラクタ cons を 用いて、 Section  2.2.1 で 行った ように 定義す る ことが 

できました。 


dei ine     append  x  y ) 
(if    (null?  x)   y   ( cons    ( car  x)    ( append   ( cdr  x)   y ) ) ) ) 

この 手続 は 以下の 2 つの ルールに よ リ Lisp へと 翻訳した と 捕える ことができ 
ます。 最初の ルール は 1 つ 目の リストが 空で ある 場合 を 扱い、 2 つ 目の ルール 
は 空で ない リスト、 つまり 2 つの 部分に よる cons の 場合 を 扱います。 


57 論理 プログラミング は 自動 定理 証明の 研究の 長い 歴史から 成長し ました。 早期の 定 
理 証明 プログラム は あまり 目的 を 達成す る ことができませんでした。 可能な 証明 空間 を 
網羅 的に 探索す るた めです。 受け入れ 可能な 探索 を 行える 打開 策の 主な 物 は 1960 年代 早 
S(!  CO  unipcahon  alaorithm  、丄ニ  ノ ィ ケ 一 ン ョ ノン7 ソレ」 リ ズ") と resolution  prmcmlei 
出 原理） （Robinson  1965) の 発見でした。 例えば 導出 は Green  and  Raphael  (I968) によ リ 
(Green  1969 も 参照） 演繹 的 質問 応答 システムの 基盤と して 使用され ま した。 この 時期の 
多 く の 間、 研究者 達 は 証明が 存在す るので あれば 見つけられる こ と が 保証され た アル ゴ 
リズムに ついて 集中して いました。 そのような アル ゴ リ ズ ムはコ ン トロ ール して 証明に 
向かわせる ことが 難しい ものでした。 Hewitt  (1969) は プログラミング 言語の コント ロー 
ル 構造と 論理 操作 システムとの 結合の 可能性 を 認識し、 Section  4.3.1  (Footnote  4.47) で 
述べられた 自動 探索の 成果へ と 導きました。 同時 期に、 マルセイユの Colmerauer は自 
然 言語 を 扱う ルール ベース システム （Colmerauer  et  al. 1973) により 同じ 事 を 達成し ま 
した。 彼 は Prolog と 呼ばれる プログラミング 言語 を 開発し それらの ルール を 表現し まし 
た。 Kowalski  (1973;  1979) は エディ ン バラに て、 Prolog プログラムの 実行 は （線形 ホー 
ン節 導出と 呼ばれる 証明の テク ニック を 用いて） 定理 証明 として 解釈で きる こと を 認め 
ま し た。 最後の 2 つの 糸 を槎リ 合わせる こ と が 論理 プロ グラ ミ ン グ 運動へ と 導きました。 
従って 論理 プロ ダラ ミ ングの 開発に 対して 功績 を 与える ことにお いて、 フランス 人 は マ 
ルセ ィュ 大学での Prolog の 起源 を 指摘す る ことができ、 一方、 イギリス 人 は エディ ンバ 
ラ 大学の 成果 を 強調す る ことができます。 MIT の 人々 に 言わせれば、 論理 プログラミング 
は これらの グループ により、 Hewitt がその 才能 ある、 しかし 頑迷な 博士論文 にて 何 を 伝 
えてい たかを 解き明かす 試みに ょリ 開発され ました。 論理 プロ グラミ ン グの 歴史 につい 
て は Robinson  1983 を 参照 して 下さい。 


469 


• 任意の リスト y に 対し、 空 リストと y の append は y を 形成す る。 

• 任 忌の u,  v,  v,  z に 対し、 (cons  u  v) と y の append はもし v と y の 
append が z を 形成 するならば （cons  u  z) を 形成す る。 58 

append 手続 を 用いる ことで、 私達 は 次の ような 質問に 答える ことができます。 

(a  b) と （c  d) の append を 求めよ。 

しかし 同じ 2 つの ルールが また 以下のような 種類の 質問に 答える ために も 十分 
です。 これら は 手続で は 答えられません。 

(a  b) と append する と （a  b  c  d) を 生成す る リスト y を 求めよ。 
append する と （a  b  c  d) を 生成す る 全ての x と y を 求めよ。 

論理 プロ ダラ ミ ング 言語で は プロ グラマ は append" 手続" を 上で 与えられた 
append に関する 2 つの ルール を 提示す る ことにより 記述し ます。 "行い 方" の 
知識 は 自動的に インタプリタ により 提供 され こ の 単一 ペアの ルールが 3 つ 全て 
の タイプの append に関する 質問に 対して 答える こと を 可能に します。59 

現代の 論理 プロ グラ ミ ン グ 言語 （ こ こ で 私達が 実装 している もの を 含めて） 
に はかな りの 量の 不足が それらの 一般的な "行い 方" の 手法に ついて 存在し ま 
す。 この ことが 偽の 無限ループ を 引き起した リ、 他の 望ましくない 振舞へ と 導 
いてし まします。 論理 プログラミング は 計算機 科学に おいて 活発な 研究領域で 
す。 60 

58 ルールと 手続の 間の 対応 を 見る ために は、 手続に おける x(x が 空で ない 場合） を ルー 
ルの （cons  u  v) に 対応させます。 次に ルールの z は （cdr  x) と y の append に 対応し 
ます。 

59 これ は 確かに ユーザ を どのように 回答 を 求める かとい う 問題 全体から は 解放し ませ 
ん。 append の 関係 を 形式 化する ための 数学的に 等価な ルール は 数多く 存在し ます。 それ 
らの いくつか のみが 任意の 方向の 演算に 対する 効果的な 手段と 成リ 得ます。 付け加えて、 
時々、 "何で あるか" という 情報 は "どのように" 回答 を 求める かにつ いて 何の 手掛かり も 
与えない 場合が あり ます。 例えば?/2  =  2； となる y を 求める 問題に ついて 考えて みて 下さ 
い。 

60 論理 プロ グラ ミ ング への 興味 は 80 年代 早期に 日本 政府が 論理 プロ グラ ミ ング 言語 
を 実行す るのに 最適化 された とても 速い 計算機 を 構築す る こと を 狙った 大望 ある プロ 
ジェ クトを 開始した 時に ピーク を 迎えました。 そのような 計算機の ス ピー ド は 通常の 
FLOPa(FLoatmg-point  Operations  Per  Second) で 'よ く  LIPS(Logical  Inferences  Per 
Second) で 計られます。 プ ロジェ ク ト はハ一 ドウ エアと ソフ トウ エアの 開発に おいて 元々 
の 計画 通りに 成功し ましたが、 国際的な コンピュータ 業界 は 異なる 方向へ と 向かい まし 
た。 日本の プ ロジェ ク 卜の 評価の 概観に ついては Feigenbaum  and  Shrobe  1993 を 参照し 
て 下さい。 論理 プログラミング コミュニティ もまた、 Section  3.3. 5 の 制約 伝播 システムで 
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この 章の 最初で は 私達 はィ ンタ プリ タの 実装 技術 を 探求し Lisp の 様な 言 
語の ための インタプリタ に対して （実際に、 任意の 従来の 言語に 対して） 本質 
である 要素 を 説明し ました。 今から 私達 は これらの 考え を 応用し 論理 プロ グ 
ラ ミ ング 言語の ための ィ ンタ プリ タ について 議論し ます。 この 言語 を query 
fanffMage (ク エリ 言語） と 呼ぶ ことにします。 言語で 内で 表現され る、 queries リ 
エリ）、 つまり 質問 を 定式化す る ことにより データベースから 情報 を 取得す る 
ことに 対して とても 便利な ためです。 ク エリ 言語 は Lisp と 全く 違う であるに 
も 係らず、 私達が ここまで 利用して きた 同じ 一般的な フレームワーク を 用いて 
この 言語 を 説明す る ことが とても 都合が 良い こと を 理解す るでしょう。 この フ 
レーム ワーク は プリ ミ ティブな 要素の 集合と して、 簡単な 要素 を 組み合わせる 
ことで よ リ 複雑な 要素 を 作る こと を 可能に する 組み合わせの 手段と、 複雑な 要 
素 を 単純な 概念の 単位と して 見做す こと を 可能に する 抽象化の 手段と を 一緒に 
用いました。 論理 プロ グラ ミ ン グ 言語 向け ィ ン タブ リタ は Lisp のよう な 言語 
の インタプリタよりも 大幅に 複雑です。 それでも、 私達の ク エリ 言語 インタ プ 
リ タが Section  4.1 のィ ンタ プリ タ内 にて 見つけた 多くの 同じ 要素 を 含む こと を 
学ぶ でしよ う。 具体的に は 式 を 方に 従って 分類す る "eval" の パートが 存在し、 
そして 言語の 抽象化の 仕組み （Lisp の 場合で は 手続で あ リ 、 論理 プロ ダラ ミ ン 
グの 場合で は ルール） を 実装す る" apply" の パートが 存在し ます。 また、 中心 
的な 役割 は フレーム データ 構造に よ リ 実装の 中で 演じられます。 この フレーム 
デー タ 構造 は シ ン ボル と それらに 関連す る 値の 間の 対応 を 決定し ます。 ク エリ 
言語の 実装の 追加の 面白い 側面の 1 つ は、 Chapter  3 で 紹介した ス ト リーム を 
大量に 使用す る ことです。 

4.4.1 演繹 的 情報検索 

論理 プロ ダラ ミ ングは 情報 取得の ための データベース に対する インター フ 
ェ イスの 提供に おいて 秀でて います。 私達が この 章で 実装す るク エリ 言語 はこ 
のように 使用され るよう 設計され ています。 

ク エリ システムが 何 を 行う か を 説明す るた めに、 ボストン 区域に 存在す る 

成長 中の ハイテク 企業、 Microshaft の 社員 情報の データベース を 管理す るた め 
に、 ク エリ システムが どのように 利用で きる かにつ いて 示します。 この 言語 は 
パターン により 示さ れる 社員 情報への ァ クセス を 提供し、 ま た 論理的 演繹法 を 
行うた めの 一般的な ルールの 利点 を も 得る ことができます。 

説明 された よう な 数値 値上の 制約 を 取り扱う 能力の 様な 単純な パ ターン マツ チン グ では 
ない 技術 を 基盤に した リ レー シ ョ ナル プロ グラ ミ ング へと 移行し ま した。 
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サンプル データベース 

Microshaft の 社員 情報 デー タ ベース は 会社の 全社 員 に関する assertionsij 
サ一シ ヨン、 表明） を 保持し ます。 以下に 常駐の コンピュータ ウイザード、 Ben 
Bitdiddle に関する 情報 を 挙げます。 

(address    (Bitdiddle  Ben)    ( Slumerville    (Ridge   Road) 10) ) 
(job    (Bitdiddle   Ben)    ( computer  wizard) ) 
(salary   (Bitdiddle   Ben)  60000) 

各 アサ ーシ ヨン は リスト （この場合 3 つ 組） で、 その 要素 は それ 自体が リストに 
成り 得ます。 

常駐の ウイザード として、 Ben は 会社の コンピュータ 部門 を 管理し、 二人の 
プログラマと 一人の 技術者 を 監督し ます。 以下に 部下に 関する 情報 を 挙げます。 

、 address    ( Hacker  Alvssa  P)    (Cambridge    ^Hass  Ave )    78； ) 
(job    (Hacker  Alyssa  P)    ( computer  programmer ) ) 
(salary   (Hacker  Alyssa  P)  40000) 
( supervisor    ( Hacker  Alyssa  P)    (Bitdiddle   Ben) ) 

( address    (Feet   Cy  D)    ( Cambridge    (Ames   Street )    3) ) 

リ ob    (Feet  Cy  D)    ( computer  programmer ) ) 

(salary   (Feet  Cy  D)  35000) 

( supervisor    (Feet  Cy  D)    (Bitdiddle  Ben) ) 

(address    (Tweakit   Lem  E)    (Boston    (Bay  State   Road)    22) ) 

(job    (Tweakit   Lem  E)    ( computer  technician) ) 

(salary   (Tweakit  Lem  E)  25000) 

( supervisor    (Tweakit   Lem  E)    (Bitdiddle  Ben) ) 

Alyssa に 監督され ている プログラマ 見習い もい ます。 

( address    ( Reasoner  Louis )    ( Slumerville    (Pine   Tree  Road)    80) ) 
リ ob    (Reasoner  Louis )    ( computer  programmer  trainee ) ) 
( salary   (Reasoner  Louis )  30000) 

( supervisor    ( Reasoner  Louis )    ( Hacker  Alyssa  P) ) 

これらの 人々 全て は コンピュータ 部門に 属し、 彼等の 職 位 （job) 記述の 最初の 
項目で ある 単語 computer により 示されて います。 

Ben は 高位の 従業員です。 彼の 監督者 は 会社の 有力者で ある 彼 自身です。 
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( supervisor    (Bit diddle   Ben)    ( Warbucks   Oliver ) ) 

( address    (Warbucks   Oliver )    (Swellesley   (Top  Heap  Road))) 

(job    (Warbucks   Oliver)    ( administration  big  wheel ) ) 

( salary    (Warbucks   Oliver)  150000) 

コンピュータ 部門が Ben に 監督され ている のに 加えて、 会社に は 会計士 長と そ 
の アシスタントから 成る 経理 部 門 があります。 

( address    (Scrooge   Eben;    (Weston    (Shady  Lane) 10) ) 
( j ob    (Scrooge   Eben)    ( ac count ing   chief   ac countant ) ) 
(salary   (Scrooge  Eben)  75000) 

( supervisor    (Scrooge   Eben)    (Warbucks   Oliver) ) 

( address    (Cratchet   Robert )    ( Allston   (N  Harvard  Street) 16) ) 

( j  ob    (Cratchet   Robert )    (  account ing  scrivener ) ) 

( salary    (Cratchet   Robert)  18000) 

( supervisor    ( Cratchet   Robert )    (Scrooge  Eben) ) 

ま た 重役の た めの 秘書 もい ます。 

( address    ^ Aull  DeWitt )    ( Slumerville    ( Onion  Square )    5) ) 
(job    ( Aull  DeWitt )    ( administration   secretary) ) 
(salary    (Aull  DeWitt)  25000) 

( supervisor    ( Aull  DeWitt )    (Warbucks   Oliver ) ) 

データべ— ス はまた どの 職種が 他の 職種 を 持つ 人々 によ り 行われる ことができ 

るかに 関する アサ一 シ ヨン も 含みます。 例えば コンピュータ ウイ ザ一 ド はコン 
ピュー タブ ログ ラマと コンピュータ 技術者の 両方の 職 を 行う ことができます。 

can-do- 1 ob  (  computer  wizard; computer  programmer  ) ； 
( can-do- j  ob    ( computer  wizard)    ( computer  technician) ) 

コンピュータ プログラマ は 見習い を坦 める ことができる でしよう。 

( can-do-  -j  ob    (computer  programmer  ) 

( computer  programmer  trainee ) ) 

また 良く 知られて いるよう に 以下 も 言えます。 

i, can-do- i ob    (  admmistrat  ion   secretary ) 
(administration  big  wheel ) ) 
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単純な ク エリ 


ク エリ 言語 は ユーザに システム プロンプト に対する 応答と して ク エリ を提 
示させる ことで、 デー タ ベースから 情報 を 取得す る こと を 許します。 

； ； ； Qu ery  input ： 

K  .1 ob    rx    (  computer  programmer  ； ) 

システム は 以下の 項目 を 返します。 

； ； ； Query  results: 

job    ^riacker  Alyssa  P)    ( computer  programmer) ) 
リ ob    i^Fect  Cy  D )    (  computer  programmer  ) ) 

入 カク エリ は ある 種の パターンに マッチす る データベース 内の ェン ト リ を 探す 

こと を 指示し ます。 この 例で は、 パターン は 3 つの 項目から 成る エントリ を 指 
定 しています。 最初が 文字 シンボルの job、  2 つ 目 は 任意の 値に 成り 得て、 3 番 
目 は 文字の リスト （computer  programmer) です。 マッチング リスト 内の 2 つ 目 
の 項目に 成リ 得る "任意 項" は pattern  wm'aWe (パターン 変数)？ x で 指定され ま 
す。 パターン 変数の 一般的な 形式 は クエスチョン マーク を 前に 置いた、 変数の 
名前と して 取られる シンボルです。 以下で は、 なぜ この ことが 単に？ を" 任意" 
を 表す パターンに 置く ので はなく、 パターン 変数の ために 名前 を 指定す る こと 
が 便利 であるか を 学びます。 システム は 簡単な ク エリに 指定され た パターンに 
マッチす る データベース 内の 全ての ェン ト リ を 表示す る ことで 応答し ます。 
パターン は 複数の 変数 を 持つ ことができます。 例えば、 以下の ク エリ 

i,  address   ？ x  ？ y) 

は 全ての 従業員の 住所 を 並べます。 

パターン はク エリ が 単純に パターンが データベース 内の ェン ト リ であるか 
どうか を 決定す る 場合に は 変数 を 持つ ことができません。 もしそう であれば 1 
つの 一致が 存在し ます。 そうでなければ 1 つも 一致 は 存在し ません。 

同じ パターン 変数が 1 つの ク エリ 内に 複数 存在す る ことができ、 同じ "任 
意 項" が 各位 置に 現われなければ いけない こと 指定し ます。 これが なぜ 変数が 
名前 を 持つ のかの 理由です。 例えば、 

supervisor  ？ x  rx) 

上の ク エリ は 自分自身 を 監督す る 全ての 人々 を 見つけます。 （しかし 私達の サン 
プル データベース 内の アサ ーシ ヨンに は そのような ェン ト リ が あり ません。 ） 
以下の ク エリ は、 
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(job   ？ x    ( computer  ？" type)) 

3 つ 目の 項目が 二 要素 リ ス ト であ リ その 1 つ 目の 要素が computer である 全て 
の 職種 ェン ト リ に 適合し ます。 

に"] ob に Bitdida 丄 e   Ben)    (  computer  wizard ) ； 

、；] ob に riacker  Alyssa  P)    (  computer  programmer  ) ) 

に job    i^Fect  Cy  D )    (  computer  programmer  ) ) 

に job    (Tweakit   Lem  E)    ( computer  technician) ) 

この 同じ パターンが 以下に は マッチ" しません"。 

i, 1 ob に rteasoner  Louis  ；    i,  computer  programmer  trainee  ； ) 

なぜなら ェン トリの 3 つ 目の 項目が 3 要素の リ ス ト であり、 パターンの 3 つ 目 
の 項目が そこ は 2 要素で なければ ならない と 指定して いるた めです。 も し 私達 
が パターン を 変更し 3 つ 目の 項目 が computer で始 まる 任意の リストで も 良い 
ようにし たければ、 以下の ように 指定 可能です。 61 

、；] ob    rx    (  computer    .    r  type  ； ) 

例えば、 以下の ク エリ は、 

computer    .    ？ type  ) 

次の データに 適合し ます。 

I.  computer  programmer  trainee  ； 

この 時？ type は リス ト （programmer  trainee) になり ます。 これ はまた 次の デ 

ータ にも 適合し ます。 

I.  computer  programmer  ； 

この 時？ type は リスト （programmer) になります。 さらに 以下の データに も 適 
合します。 

に computer) 

この 時？ type は空リ スト （） です。 

ク エリ 言語の 簡単な ク エリ の 処理 は 以下の よ う に 説明で きます。 

61 これ は Exercise  2.20 で 紹介され た ドッ ト 付き 末尾 記述 を 用いて います。 
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. システム はク エリ パターン 内の 変数に 対する、 パターン を 満たす 全ての 
割り当て を 見つけます一 つまり、 パター ン 変数が 値に より インスタンス 
化される ような （例示され るよう な)、 つまり 値に より 置き換えられ るよ 
うな 変数に 対する 値の 全ての 集合です。 結果 は データベース 内に 存在し 
ます。 

. システム はク エリに 対し、 パターン を 満たす 変数 割り当て と共に、 クェ 
リ パターンの 全ての ィ ン スタンス （事例） を 列挙す る ことで 応答し ます。 

もし パターンに 変数が 無い 場合、 ク エリ は その パターンが データベース 内に 存 
在す るか どうかの 決定に 簡約され る ことに 注意して 下さい。 もしそうならば、 
変数に 何の 値 も 割 り 当てない 空 割り当て がデー タ ベースに 対する その パターン 
を 満たします。 

Exercise  4.55: 以下の 情報 を データベースから 取り 出す 簡単な ク ェ 
リ を 与えよ。 

1.  Ben  Bitdiddle により 監督され る （supervisor) 全ての 人 

2.  経理 部門に 属す 全ての 人の 名前 （name) と 職種 （job) 

3.  Slumerville に 済む 全ての 人の 名前と 住所 （address) 

複合 ク エリ 

単純な ク エリ は ク エリ 言語の プリ ミ ティブな 命令 を 形成し ます。 複雑な 命 
令 を 形成す るた めに は、 ク エリ 言語 は 組み合わせの 手段 を 提供し ます。 ク エリ 
言語 を 論理 プロ グラ ミ ング 言語と 成す 物の 1 つに 組み合わせの 手段が 論理 式 
を 形成す るのに 用いられる 組み合わせの 手段 に 酷似す る ことがあ げられ ます。 
and,  or,  not です。 （ここで は and,  or,  not は Lisp の プリ ミ ティ ブ では あ リ ま 
せん。 ク エリ 言語の 組 込 命令です。 ） 

and を 以下の 様に 用いて 全ての コンピュータ プログラマの 住所 を 見つける こと 
がで きます。 

V  and  、； job    rDer son    ( computer  programmer ) ) 
( address   ？ per son  ？ where ) ) 

結果の 出力 は 以下の通りです。 

v.  and   v. "]  ob   ^.Hacker  Alyssa  P)    (  computer  programmer ) ) 

( address    ( Hacker  Alyssa  P)    (Cambridge    ( Mass   Ave )    78) ) ) 


476 


( and   (job    (Feet   Cy  D)    ( computer  programmer ) ) 

( address    ( Feet  Cy  D)    (Cambridge    (Ames   Street )    3) ) ) 

一般的に、 

( and  (queryi)  {query2)  ...  {queryn)) 

上の 式 は パターン 変数に 対する 全ての 値の 集合が 同時に 〈ゆ ena〉  ...  (queryn) 
を満す 時に 満たされます。 

簡単に ク エリ に関して は、 システム はク エリ を 満たす パターン 変数への 全ての 
割り当て を 見つける ことによ リ 複合 ク エリ を 処理し ます。 そして それらの 値に 
よる ク エリの ィ ン スタンス を 表示し ます。 

複合 ク エリ を 構築す る 別の 手段と して or を 通す 方法が あり ます。 例えば、 

、or   ( supervisor   ？ x   ( Bitdiddle  Ben)) 

( supervisor   ？ x   ( Hacker  a 丄 yssa  P; ) ) 

上の 式 は Ben  Bitdiddle、 または AlyssaP.  Hacker に 監督され る 従業員 全て を 
見つけます。 

(Hacker  Alyssa  P)    (Bitdiddle   Ben) ) 
(Hacker  Alyssa  P)    (Hacker  Alyssa  P) ) ) 
(Feet  Cy  D)    (Bitdiddle  Ben) ) 
(Feet  Cy  D)    (Hacker  Alyssa  P) ) ) 
(Tweakit   Lem  E)    (Bitdiddle   Ben) ) 
( Tweakit   Lem  E)    (Hacker  Alyssa  P) ) ) 
( Reasoner  Louis )    (Bitdiddle  Ben) ) 
( Reasoner  Louis )    ( Hacker  Alyssa  P ) ) ) 


(or   ( supervisor 

( supervisor 
(or   ( supervisor 

( supervisor 
(or   ( supervisor 

( supervisor 
(or   ( supervisor 

( supervisor 


一般的に、 

(or  (queryi)  (guerj/2) … (queryn) ) 

上の 式 は パターン 変数に 対する 全ての 値の 集合が、 、query{)  ...  {query n) の 内、 

少く とも 1 つ を 満たす 場合に 満たされます。 

複合 ク エリ はまた not を 用いても 形成で きます。 例えば、 

v.  and   v  supervisor    rx   Witdida 丄 e  Ben)) 

(not リ ob  ？ x    ( computer  programmer) ) ) ) 

上の 式 は Ben  Bitdiddle に 監督され るが、 コンピュータ プログラマ ではない 全 
ての 人 を 見つけます。 一般的に、 
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(not  (query i)) 


上の 式 は バタ 一 ン 変数に 対する 全ての 割 リ 当て が (query^ を 満たさない 場合 
に 満たされます。 62 

最後の 組み合わせ 形式 は lisp-value と 呼ばれます。 lisp- value が パターン 
の 最初の 要素の 時、 次の 要素 は （ィ ン スタンス 化された） 残り の 要素 を 引数と し 
て 適用され る Lisp の 述語で ある こと を 意味し ます。 一般的に、 

、丄 isp- value   (predicate)   iarai)  ...  {argn)) 

上の 式 は (predicate) が パターン 変数に 対して インスタンス 化された 〈cir め〉 ... 
(argn) に 適用され た 時の 値が true になる 場合の 割り当て により 満たされます。 

、 and   、sa 上 arv  ？ per son  ？ amount ； 、丄 isp 一 va 丄 ue   >   ？ amount   jOOOO) ； 

Exercise  4.56: 以下の 情報 を 取得す る 複合 ク エリ を 定式化せ よ。 

a  Ben  Bitdiddle に 監督され る 全ての 人の 名前と 住所 を 共に 

b  Ben  Bitdiddle よ り も 給料 （salary) が 安い 全ての 人 を その 給 
料と Ben  Bitdiddle の 給料と 共に 

c コンピュータ 部門で はない 人に 監督され ている 全ての 人 を そ 
の 上司の 名前と 職種と 共に 

ルール 

プリ ミ ティ ブなク エリ と 複合 ク エリ に加えて、 ク エリ 言語 はク エリ を 抽象 

化する 手段 を 提供し ます。 これら は7^^ (ルール） により 提供され ます。 以下の 
ルール は、 

I. rule    (lives-near   ？ person— 1 ？ person- 2) 

(. and  (address  ？ person - 1 (？ town  .  ？ rest-1 ) ) 
(address  ？ person - 2  ?town  .  ？ rest-2) ) 
(not    (same   ？ per son- 1 ？ person-2) ) ) ) 

62 実際に はこの not の 説明 は 簡単な 場合に 対しての み 有効です。 本当の not の 振舞 は 
より 複雑です。 not の 奇妙な 点に ついては 節 Section  4.4.2 と Section  4.4.3 にて 調査し ま 

す。 
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二人の 人が 同じ 街に 住んで いるの なら、 お 互いに 近くに 住んで いると 指定して 

います。 最後の not 節 はこの ルールが 全ての 人が その 人 自身の 近くに 住んで い 
ると 言う こ と を 防ぎます。 same リ レー シ ヨン はとても 簡単な ルールに より 定 
義 されます。 63 

、ru 丄 e    ( same   ？ x    rx) ； 

以下の ルール は ある 人が 監督す る 人が 同様に 監督者で ある 場合に 組織 内での 
"wheel" (重要人物） であると 宣言し ます。 

、： ruie    (wheel ？ person ソ 

( and   (supervisor   ？ mi dale-manager   ？ per son ) 
(supervisor   ？ x  ？ middle-manager))) 

ルールの 一般的な 形式 は 以下と な り ます。 

、： rule   (conclusion)  (body) ) 

(conclusion) が パターン であり (body) が 任意の ク エリです。 64 ルール は 大きな 
(例え 無限で も） アサ ーシ ヨンの 集合 を 表現す る ものと して 考える ことができ ま 
す。 即ち、 ルールの ボディ を 満たす 変数の 割り当て を 用いた ルールの 結果の 全 
ての インスタンスです。 簡単な ク エリ （パターン） を 説明した 時、 変数への 割り 
当て は、 インスタンス 化された パターンが データベース 内に 存在す る 場合に パ 
ターンが 満たされ ると 説明し ました。 しかし、 パターン は 明示的に アサ ーショ 
ン として データベース 内 に 存在す る 必要 は あ リ ません。 ルールに よ リ 暗示 さ れ 
る 暗黙 的な アサ ーシ ヨンに 成り 得ます。 例えば、 以下の ク エリ は、 

、丄 ives 一 near   ？ x  、！ 3i"tdida 丄 e  Ben)) 

次の 結果 を 生みます。 


63  2 つの 物が 同じで あるよ う にす るた めに は same は 必要で はない ことに 注意して 下さ 
い。 単に 同じ パターン 変数 を それぞれに 使用す る だけです。 実際に、 最初から 2 つの 物で 
なく 1 つの 物し か 持ちません。 例と して lives-near ルールの？ town や 下記の wheel ル 
ールの ？ middle- manager を 参照して 下さい。 same は 2 つの 物が 異なる こと を 強制す る 
場合に 便利です。 例えば lives- near ルールの？ person_l と？ person- 2 です。 同じ パター 
ン 変数 をク エリ の 2 つの 部分に 使う こ と は 両方の 場所に 同じ 値が 現れる こ と を 強制し ま 
す 力、 異なる パターン 変数 を 用いる こと は 異なる 値が 現れる こと を 強制し ません。 （異な 
る パターン 変数に 割り当てられた 値 は 同じに も 違う 値に も 成り 得ます。 ) 

64 私達 は same の 様に ボディの 無い ルール も 認めます。 また そのような ルール は、 ルー 
ルの 結論 （conclusion) が 任意の 変数の 値に よ リ 満た された こと を 意味す る と 解釈 します。 
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(lives - near    ( Reasoner  Louis )    ( Bitdiddle  Ben)) 
(lives-near    ( Aull   DeWitt )    (Bitdiddle   Ben) ) 

Ben  Bitdiddle の 近くに 住む 全ての コンピュータ プログラマ を 見つける ために 
は、 以下の ように 質問す る ことができます。 

1, and   (,  j  ob  ？ x    (  computer  programmer  ) ) 

(lives-near   ？ x    (Bitdiddle  Ben))) 

複合 手続の 場合と 同様に、 ルール は 他の ルールの 一部分と して （上記の lives- 
near  ルールで 見た よう に） 使用可能です。 または 再帰 的に 定義す る こと さえ も 
できます。 例と して、 以下の ルール は、 

、：! ：u 丄 e    (  outranked - bv  ？ staf エ- person  ？ boss  ) 

(or     supervisor    r  staff -person  ？ boss  ) 

( and   ( supervisor   ？ staff -person  ？ miadle-manager) 
( out ranked - by  ？ middle-manager   ？ boss ) ) ) ) 

もし ボスが ス タツ フの 上司で あるか、 （再帰 的に） スタッフの 上司より ボスが 上 

役 （outranked) であるなら ば ボス はス タツ フょリ 地位が 上で ある と 言えます。 

Exercise  4.57: 人 （person) その 1 が 人 その 2 を 置き換えられ ると 
は 人 その 1 が 人 その 2 と 同じ 仕事 を している か、 または 第三者 
(someone) が 人 その 1 と 同じ 仕事 をしつつ、 かつ 人 その 2 の 仕事 も 
行え、 そして 人 その 1 と 人 その 2 が 異なる 人で ある 場合で あると 
述べる ルール を 定義せ よ。 その ルール を 用いて 以下の 条件 を 見つ 
ける ク エリ を 与えよ。 

a  Cy  D.  Feet を 置き換えられる 全ての 人 

b 自分よ リ 給料の 高い 誰か を 置き換えられる 全ての 人 を 二人の 
給料と 一緒に。 

Exercise  4.58: ある 人が 自分が 働いて いる 同じ 部署に 上司 （監督者） 
がいない 場合に その 人 を "big  shot" (有力者） であると 述べる ルー 
ルを 定義せ よ。 

Exercise  4.59:  Ben  Bitdiddle は ある 会議 を 何度も 欠席して しまつ 
た。 彼の 会議 を 忘れる 癖 は 仕事 を 失う 恐れが ある。 Ben は 何 かし 
なければ ならない と 決心した。 彼 は 会社の 週 次 ミー ティ ング 全て 
を Microshaft データベースに 以下の アサ ーシ ヨンと して 加えた。 
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(meeting  accounting    (Monday  9am) ) 

(meeting  administration    ( Monday  10am)) 

(meeting  computer    (Wednesday  3pm) ) 

(meeting  administration   (Friday   lpm) ) 

各 アサ一 ショ ンは 部門の 全体 ミ一 ティ ング のた めの もの だ。 Ben 
はまた 全ての 部門に 渡る 全社 会議の ェン ト リ を 追加した。 会社の 
全 従業員が この 会議に 参加す る。 

i,  meeting  whole -company    (Wednesday  4pm) ； 

a 金曜の 朝に、 Ben は その 日の 全ての 会議 を データベースから 
ク エリ したいと 思った。 彼の ク エリ は どのような 物になる 力、？ 

b  Alyssa  P.  Hacker は 感心し なかった。 彼女 は 自分の 名前 を 指 
定 する こと で 彼女の 会議 を 尋ねる こ と がで きれば よ リ 便利に 
なる だろうと 考えた。 そのため 彼女 は ある 人の 会議 は 全ての 
whole-company (全社） 会議に 加えて その 人の 部門 会議 を 全て 
含む と言う ルール を 設計した。 Alyssa の ルールの ボディ を埋 
めよ。 

(.rule    i,  meeting-time   ？ per  son    r  dav-and-t  ime  ; 
(rule-body)) 

c  Alyssa は 水曜の 朝に 仕事場に 到着し、 その 日に 何の 会議が 
あるかに ついて 考えた。 上記の ルール を 定義した 上で、 彼女 
のが この こと を 見つける ために は どのような ク エリ を 行う ベ 
きか？ 

Exercise  4.60: 以下の ク エリ を 与える ことによ リ、 
、丄 ives - near  ？ person   (Hacker  Alyssa  P) ) 

Alyssa  P.  Hacker は 仕事場に 相乗り できる、 彼女の 近所に 住む 人 を 
見つける ことができる。 一方で、 お 互いが 近所に 住んで いる 全て 
の 人々 の ペア を 見つけたい 場合に は 以下の ク エリ を 用いる。 

、丄 ives - near  ？ per son- 1 ？ person - 2) 

彼女 はお 互いに 近所に 住んで いる 人々 の 各 ペアが 二度 づっ 挙げら 
れ ている ことに 気付いた。 例えば、 
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( lives-near  ( Hacker  Alyssa  P )  (Feet  Cy  D) ) 
( lives-near    (Feet  Cy  D)    ( Hacker  Alyssa  P) ) 

なぜ これが 起こる のか？ お 互いに 近く に 住んで いる 人々 の リス ト 
を 各 ペアが 一度し か 現れない ように 見つける 方法 は 存在す るか？ 
説明せ よ。 

プログラム としての 論理 

ルール を 論理的 意味合いの 一種で あると 見做す ことができます。 も し バタ 
ーン 変数に 対する 値の 割 リ 当てが ボディ を 満たす 場合、 それならば 結論 を 満た 
します。 必然的に、 ク エリ 言語 は ルール を 基に した tofficaZ  dedweiions (論理的 推 
理） を 実行す る 能力 を 有する と 見做す ことができます。 例と して、 Section  4.4 の 
始めに 説明した append 命令に ついて 考えて みまし よ う。 既に 述べた よう に、 
append は 以下の 2 つの ルールに て 特徴 づけら れ ます。 

• 任意の リスト y に 対し、 空 リストと y の append は y を 形成す る。 

• 任 忌の u,  v,  v,  z に对 し、 (.cons  u  v) と y の append はも し v と vappend 
が z を 形成す る 場合、 （cons  u  z) を 形成す る。 

これ を 私達の ク エリ 言語で 表現す るた めに、 以下の 関係に 対する 2 つの ルール 
を 定義し ます。 

append- to- f  or m  x  v  z) 

上の 関係 は "x と y の append は z を 形成す る" こと を 意味す ると 解釈で きます。 

、： ruie    ( appena-to-f orm リ ry  ？ y ) ) 
、： ruie    ( appena-to-f  orm    、！" u    .    ？ v)    rv  、！ *u    .    7z; ) 
( append -" to -: form  ？ v  ？ y  ？ z) ) 

最初の ルールに は ボディ が あ リ ません。 これ は 結果 部分が? y の 任意の 値 を 保 
持す る こと を 意味し ます。 2 つ 目の ルールが どのように ドッ ト 付き 末尾 記述 を 
リストの car と cdr に 名前 を 付ける ために 使用して いるかに ついて 注意して 下 
さい。 

これら 2 つの ルール を 与えられる ことで、 2 つの リス ト に対する append を 
求める ク エリ を 定式化す る ことができます。 

； ； ； Query  input ： 

K append- to- f  orm   ( a  b ソ 、c  d)    ？ z) 
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；;; Query  results: 

( append- to -f  orm   ( a  b ) 


より 印象的な の は、 同じ ルール を" （ab)( 
なる リスト は 何" という 質問に 使用で きる 
れ ます。 


(c  d)    (a  b  c  d)) 

：スォ し anpend しにり (a  b  c  d) に 

二と です。 これ は K 下の ように 行わ 


； ； ； Query  input ： 
( aupend- to-f  orm 
；;; Query  resulzs: 
( append- to- f  orm 

append すると (a  b 

です。 

； ； ； Qu ery  input ： 
( append- to- f  orm 
；;; Query  results: 
( append- to- f  orm 
( append- to- f  orm 
( append- to- f  orm 
( append- to- f  orm 


(a  b)    ？ y   (a  b 


d)) 


(a  b)    (c  d)    (a  b  c  d)) 

c  d) を 形成す る 全ての リストの ペア を 尋ねる こと も 可能 

？ x  ？ y   (a  b  c  d)) 

() (abed)    (a  b  c  d)) 
(a)    (bed)    (a  b  c  d)) 
(a  b)    (c  d)    (a  b  c  d)) 
(a  b  c)    (d)    (a  b  c  d)) 


( append- to -f  orm   (abed)    ( )    ( a  b  c  d) ) 

上記の ク エリ に対する 答 を 推論す る ルール を 用いる ことにて おいて、 ク エリ シ 
ス テム はかな リの 知性 を 示す ように 見える かもしれ ません。 実際に は 次の 節で 
学ぶ よ う に、 システム は ルール を ときほぐす 明確な アル ゴリ ズムに 従ってい る 

に 過ぎません。 残念ながら、 システムが append の 場合で は 見事な 程う まく 行 
きます 力、 一般的な 手法 はより 複雑な 場合に 分解され るか もしれ ません。 この 
こ と は Section  4.4.3 で 学びます。 

Exercise  4.61: 以下の ルール は リストの 直前の 要素 を 見つける 関係 
next-to を 実装す る。 

、！ •！！ 丄 e    (？ x  next-to  ？ y  m   (  rx  ？ y   .    ？ u) ) ) 
、！ 丄 e    (？ x  next-to   ？ y  m   (  r  v    .    rz) ； 
(？ x  next-to   ？ y  in  ？ z) ) 


以下の ク エリの 結果 を 答えよ。 
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(？ x  next-to  ？ y  in  (1 (2  3)  4) ) 
(？ x  next-to 1 in   (2 1 3 1) ) 


Exercise  4.62:  Exercise  2. 17 の last- pair 命令 を 実装す る ルール を 

定義せ よ。 これ は 空で はない リストの 最後の 要素 を 含む リスト を 
返す。 あなたの ルール を （last-pair  (3)  ？ x) , (last-pair  (1 2 
3)  ？ x), (last-pair  (2  ？ x)  (3) ) のよう なク エリに て 確認せ よ。 
あなたの ルール は （last-pair  ？ x  (3)) の 様な ク エリに 対し 正し 

く 動作す るだろう か？ 

Exercise  4.63: 以下の データべ一 ス （創世記 第 4 章 を 参照せ よ） は 
Ada の 子孫の 家系 を Cain を 経由して Adam まで 戻り ながら 迪っ 
ている。 

son  Adam  Cam) 

son  Cam  Lnoch; 
(son  Enoch  Irad) 
(son  Irad  Mehu j  ael ) 
(son  Mehu j  ael  Methushael ) 
(son  Methushael  Lamech) 
(wife   Lamech  Ada) 
(son  Ada   Jabal ) 
(son  Ada   Jubal ) 

"もし S が/ の 息子で あ リ 、 かつ、 f が G の 息子な ら ば、 S は G 
の 孫で ある" と" もし W が M の 妻で あ リ 、 かつ、 S が の 息子 
な ら ば、 S は M の 息子で ある "（こ れは恐 らく 今日より 聖書の 時代 
に はよ リ 正確であった だろう） の ルール を 定式化せ よ。 これら はク 
エリ システムに 対し Cain の 孫、 Lamech の 息子、 Methushael の 孫 
を 見つける こと を 可能に する。 （より 複雑な 関係 を 推論す るいくつ 
かの ルールに ついては Exercise  4.69 を 参照せ よ。 ） 


4.4.2 ク エリ システムの 働き 方 

Section  4.4.4 では ク エリ インタプリタ を 手続の 集合と して 紹介し ます。 この 
節で は 低 レベルの 実装 上の 詳細から は 独立した システムの 一般的な 構造に つい 
て 説明す る 概観 を 与えます。 インタプリタの 実装 を 説明した 後に、 私達 は イン 
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タブ リタの いくつかの 限界と 記号論理学の 演算 と は 異なる クェ リ 言語の 論理 演 
算の いくつかの 微妙な 行い 方 を 理解で きる 位置に 迪リ 着きます。 

ク エリ 評価 機が ク エリ を データベース 内の 事実と ルールに 対して マッチ さ 
せる ために ある 種の 探索 を 実行せ ねばな らな いこと は 明らかでしょう。 これ を 

行う 1 つの 方法 はク エリ システム を Section  4.3 の amb 評価 機 を 用いて 非 決定 
性 プロ ダラ ム と して 実装す る ことになります （Exercise  4.78 参照)。 別の 可能性 
にはス ト リームの 助け を 用いて 探索 を 管理す る 方法が あり ます。 私達の 実装 は 
この 2 つ 目の アプローチに 従います。 

ク エリ システム は 2 つの 中心と なる 演算、 pattern  matching 、パターン マツ 
チン グ） と unification(=L 二 フィケ一 シ 3 ン、 単一 ィ匕） の 周りに 体系化 されます。 
最初に パターンマッチング について 記述し、 この 演算が フレームの ス ト リーム 
を 用い た 情報 体系 と共に どのように 単純 ク エリと 複合 ク エリの 両方 を 実装 可 
能に する のか 説明し ます。 次に 私達 は ユニフィケーション、 つまり ルール を 
実装た めに 必要な パターンマッチングの 一般化に ついて 議論し ます。 最後に、 
Section  4.1 で 説明 された インタプリタ のために eval が 式 を 分類す る 方法と 同 
様の 方法で、 式 を 分類す る 手続 を 通して ク エリ インタ プリ タ 全体が どのように 
組み合わされ るかに ついて 示します。 

パターンマッチング 

pattern  mate/ier (パターン マツ チヤ） は ある データが 指定され た パターンに 
適合す るか どうか を 試す プログラムです。 例えば データ リスト （（a  b)  c  (a 
b)) は パターン （？ x  c  ？ x) に 対し パターン 変数? x が （a  b) に 束縛され る こと 
で 適合し ます。 同じ データ リストが パターン （？ x  ？ y  ？ z) に 対し？ x と？ z の 両者 
が （ab) に 束縛され、 ？ y が c に 束縛され る ことで 適合し ます。 これ はまた バタ 
ーン （（？ x  ？ y)  c  (？ x  ？ y)) に対して も？ x が a に、 ？ y が b に 束縛され る ことで 
適合し ます。 しかし、 これ は パターン （？ x  a  ?y) に は 適合し ません。 この バタ 
ーンが 2 つ 目の 要素が シンボル a である リスト を 指定して いるた め です。 

パターン マッチ ャはク エリ システム により 使用され ます。 ク エリ システム 
は 入力と して パターン、 データ、 /rame (フレーム） を 取ります。 フレーム はさ 
まざ まな パター ン 変数に 対す る 束縛 を 指定し ます。 パターン マツ チヤ は データ 
が フレームに 既に 存在す る 束縛と 一致す る 状態で パターンに 適合す るか どうか 
を チェック します。 もしそう であれば、 その 適合に より 決定され た 任意の 束縛 
を 増やした フレーム を 返します。 そうでなければ、 適合が 失敗した こと を 示し 
ます。 

例えば、 パターン （？ x  ？ y  ？ x) を 用いて （a  b  a) に 空の フレーム を 与えら 
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れた 場合に 適合 を 行う と？ x 力 S'a に、 ？ y が b に 束縛され る こと を 指定す るフレ 
ームを 返します。 同じ パターン、 同じ データで？ y が a に 束縛され ている と 指定 
する フレーム を 用いて 適合 を 行う と 失敗し ます。 同じ パターン、 同じ データで 
？ y がわ に 束縛され? x が 未 束縛で ある フレーム を 用いて 適合 を 行えば 与えられ 
た フレームに？ x の a への 束縛 を 増やした 物が 返されます。 

パターン マツ チヤ は ルール を 含まない 単純な ク エリ を 処理す るのに 必要な 
仕組みの 全てです。 例えば、 以下の ク エリ を 処理す る 場合、 

い"] ob    rx   (  computer  programmer  ； ) 

データベース 内の 全ての アサ ーシ ヨン を 探索し、 最初 は 空の フレーム を 考慮し 
て パターンに 適合す る 物 を 選択し ます。 探索 を 行った 各 適合に 対して、 適合 

により 返された フレーム を 用いて パターン を？ X の 値と 共に ィ ン スタンス 化し 

ます。 

フ レームの ス 卜 リーム 

フ レームに 対して パターンの テス ト を 行う こと はス ト リームの 使用 を 通し 
て 体系化され ています。 単一の フレーム を 与えられて、 マッチング 処理 はデー 
タ ベースの ェン トリ を 1 つづつ 通して 実行し ます。 各 データベース ェン ト リ に 
対して、 マツ チヤ は 適合が 失敗した こと を 示す 特別な シンボル か、 フレームに 
対する 拡張 を 生成し ます。 全ての データベース ェン ト リ に対する 結果 はス ト リ 
ーム 内に 集められ、 フィルタ を 通す ことで 失敗が 取り除かれます。 結果 は 与え 
られた フレーム を 適合 を 通す ことで データベース 内の ある アサ ーシ ヨンに 拡張 
した 全ての フレームの ストリームです。 65 

私達の システム では Figure  4.4 で 示される よう に、 ク エリ はフ レームの 入力 
ストリーム を 取リ、 スト リーム 内の 各 フレーム に対して 上記の マッチング 処理 
を 実行し ます。 言い替えれば、 入力 ストリーム 内の 各 フレーム に対して、 クェ 
リ は データベース 内の アサ ーシ ヨンに 対する 適合に よる、 全ての フレームの 拡 
張から 成る 新しい ス ト リーム を 生成し ます。 これらの ス ト リームの 全て は 次に 

65 マッチング は 一般的に とても 重い ので、 完全な マツ チヤ を データベースの 全ての 要 
素に 対して 適用す る こと は 防ぎたい と 考えます。 これ は 通常 は 高速で 粗い 適合と 最終 適 
合の 部品に 分解す る ことで 準備し ます。 粗い 適合 は データベース を フィルタし、 最終 適 
合の ための 候補の 小さな 集合 を 生成し ます。 手間 を かけて、 粗い 適合の いくつかの 成果 
がデー タ ベース が 候補 を 選択したい 時で はなく、 構築され た 時に 行える ように データべ 
ースを 事前に 準備す る ことができます。 データベースの 索引の 仕組みの 周りに は 莫大な 
技術が 構築され ています。 私達の 実装 は Section  4.4.4 で 説明され ている ように、 そのよう 
な 最適化の あまり 賢く はない 形態 を 含んで います。 
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input  stream 
of  frames 


query 
(job  ？ x  ？ y) 


output  stream  of  frames, 
filtered  and  extended 


stream  of  assertions 
from  data  base 

Figure  4.4: フレームの ストリーム を 処理す るク エリ 


組み合わされて 1 つの 大きな ス ト リーム を 形成し ます。 これ は 入 カス ト リーム 
内の 各フ レームの 全ての 可能な 拡張 を 含んで います。 この ス ト リ 一 ムがク エリ 
の 出力です。 

単純な ク エリ に 答える ために はク エリ を 単一の 空 フレームから 成る 入 カス 
ト リ ーム と共に 用います。 結果と しての 出 カス ト リ ームは 空に フレームに 対す 
る 全ての 拡張 を 含んで います （言い換えれば、 ク エリ に対する 全ての 答 を 含み 
ます)。 この フレームの ストリーム は 次に、 元々 のク エリの パターンと 各 フレー 
ム 内の 値で インスタンス 化された 変数の コピーの ス ト リーム を 生成す るのに 利 
用され ます。 そして これが 最終的に 表示され る スト リームです。 


複合 ク エリ 

フレームの ス ト リーム 実装の 真に 優雅な 点 は 複合 ク エリ を 扱う 時に 明白に 
なり ます。 複合 ク エリの 処理 は 適合の 結果が 指定され た フレームに 一致す ると 
いう 私達の マツ チヤが 要求す る 能力 を 利用し ます。 例えば、 2 つの ク エリの and 
を 取り扱う 以下のような ク エリで は 

V  and   ^  can-do- i ob    rx     computer  programmer   trainee  ) ) 
リ ob   ？ per son  ？ x) ) 

(簡単に言えば、 "コンピュータ プログラマ 見習いの 職 を 行える 全ての 人 を 見つ 
けろ"） まず 以下の パターンに 適合す る 全ての ェン ト リ を 見つけます。 

に can  -  do -，  ob   ？ x     computer  programmer  trainee  ) ) 
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input  stream 
of  frames 


output  stream 
of  frames 


data  base 

Figure  4.5:  2 つの ク エリ の and の 組合せ は フレームの ス ト 
リーム 上での 連続した 操作に よ リ 生成され る 


これ は フレームの ス ト リーム を 生成し ます。 各 フレーム は？ X に対する 束縛 を 含 
んで います。 次に ストリーム 内の 各 フレームに 対し、 与えられた？ X に対する 束 

縛に 一致す る 様に、 以下の パターンに 適合す る 全ての ェン ト リ を 探します。 

、―" |ob    rcer son  ？ x ； 

そのよう な 適合の それぞれ は？ x と？ person に対する 束縛 を 含む フレーム を 生 
成します。 2 つの ク エリの and は Figure  4.5 に 示される ように、 一連の 2 つの ク 
エリの コンポーネント の 組み合わせで あると 見做す こ と がで きます。 最初の ク 
エリ フィルタ を 通過す る フレーム は フィルタ を かけられ、 2 つ 目の ク エリ にて 
さらに 拡張され ます。 

Figure  4.6 は 2 つの ク エリ の or を 2 つの ク エリ コ ン ポー ネン トの 並列な 組 
み 合わせと して 求める ための 類似の 手法 を 示して います。 フレームの 入 カス ト 
リーム は 各クェ リ に よ り 別 々に 拡張され ます。 2 つの 結果 ストリーム は 次 に マ 
ージ され 最終の 出 カス ト リーム を 生成し ます。 

こ の 高い レベルの 記述 か ら でも 複合 ク エリ の 処理が 遅 くなる こと が は つ き 
リ とわ かります。 例えば、 ク エリ は 各 入力 フレーム に対して 複数の 出 カス トリ 
ームを 生成す るか もしれ ません。 そして 各ク エリ も 同様です。 最悪の 場合に 
はク エリ 数の 指数関数 とな る 多数の マツ チ ン グを 実行 し な ければ な リ ません 
(Exercise  4.76 参照)。 66 単純な ク エリの み を 扱う システムの ほうが とても 実用 

66 しかし、 この種の 指数関数 爆発 は and ク エリで は 一般的で はありません。 追加され た 
条件が 生成 される フレームの 数 を 増やす のでな く、 減ら す 傾向が あ る ためです。 
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input  stream 
of  frames 


output  stream 
of  frames 


data  base 

Figure  4.6:  2 つの ク エリ の codeor の 組合せ はフ レームの ス 
ト リーム を 並列に 操作し その 結果 を マージす る ことで 生成 
される 


的で はあり ますが、 複合 ク エリ を 扱う こと は 極めて 難しい のです。 67 

フレームの ス ト リームの 視点から、 ある ク エリの not はク エリが 満たされ 
る 全ての フレーム を 取り除く フィルタ として 働きます。 例えば、 以下の パター 
ンを 与えら える と、 

i,not    (, 1 ob    rx    (  computer  programmer  ) ) ) 

入 カス ト リームの 各 フレーム に対して （job  ？ x  (computer  programmer) ) を満 
たす 拡張 フレームの 生成 を 試みます。 入 カス ト リームから そのような 拡張が 存 
在す る 全ての フレーム を 削除し ます。 結果 は フレーム 中の？ x の 束縛が （job  ？ x 
(computer  programmer) ) を 満たさない フレーム のみから 成る ストリーム とな 
リ ます。 例えば 以下の ク エリの 処理に おいて は、 


67 複合 ク エリ を どのように 効果的に 扱う かに 関連す る データベース 管理 システムの 多 
数の 文献が 存在し ます。 
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( and   (supervisor   ？ x  ？ y ) 

(not リ ob  ？ x    ( computer  programmer) ) ) ) 

最初の 節 は？ x と？ y に対する 束縛 を 持つ フレーム を 生成し ます。 次に not 節 は 
これらから？ x に対する 束縛が? x が コンピュータ プログラマ であると いう 制約 
を 満たす 全ての フレーム を 削除す る ことで フィルタ リ ング します。 68 

lisp-value 特殊 形式 はフ レームの ス ト リ ーム 上の 同様な フィ ルタ として 実 
装され ます。 ス ト リーム 内の 各 フレーム を パターン 内の 任意の 変数 を インス タ 
ンス 化する ために 用い、 そして Lisp 手続 を 適用し ます。 入力 ストリームから 述 
語が 失敗す る 全ての フレーム を 削除し ます。 

ュ ニフィ ケ一シ ョ ン 

ク エリ 言語 内の ルール を 扱うた めに、 ルールの 結果が 与えられた ク エリ パ 
ターンに 適合す る ルール を 見付けられ ねばな リ ません。 ルールの 結果 は アサ 一 
シ ヨンに 似て いますが、 変数 を 含められる 所が 異なります。 そのため パターン 
マッチングの 一般化  一 tin が mfion (ュ ニフィ ケ一シ ョ ン） と 呼ばれます ーを必 
要と し、 その 中で" パターン" と "データ" の 両方が 変数 を 持ち 得ます。 

ユニファイア は 2 つの 定数と 変数 を 含む パターン を 取リ、 2 つの パターン 
を 等しく する 変数への 値の 割 リ 当て が 可能で ある か どうか を 決定し ます。 もし 
そうで あれば、 これらの 束縛 を 含む フレーム を 返します。 例えば （？ x  a  ？ y) と 
(？ y  ？ z  a) の ユニフィケーション は？ x,  ？ y,  ？ z が 全て a に 束縛され なければ な 
ら ない フレーム を 指示し ます。 一方で、 （？ x  ？ y  a) と （？ x  b  ？ y) のュニ フィケ 
ーシ ヨン は 失敗し ます。 2 つの パターン を 等しく できる？ y の 値 力ぶ 存在し ないた 
めです。 （両方の パターンの 2 つ 目の 要素が 等しくなる ために は？ y は b になら 
なければ なりません。 しかし、 3 番目の 要素が 等しくなる ために は？ y が a にな 
る しか あ リ ません)。 ク エリ システムで 用いられる ユニファイア は パターン マ 
ッ チヤの 様に、 フレーム を 入力と して 取り この フレームと 一致す るュニ フィケ 
ーシ ヨン を 実行し ます。 

ユニフィケーション アルゴリズム はク エリ システムで 最も 技術的に 難しい 
部分です。 複雑な パターン を 共な うため、 ユニフィケーションの 実行 は 演繹 を 
必要と する ように 見える かもしれ ません。 例えば、 （？ x  ？ x) と （（a  ？ y  c)  (a  b 
？ z)) を ユニフィケーション する ために は アルゴリズム は？ x は （a  b  c) に、 ？ y 

は b に、 ？ Z は C にならなければ いけない こと を 推論し なければ なりません。 こ 

68 この not の フィルタ 実装と、 記号論理学 における 通常の 意味での not の 間に は 微妙 
な 違いが 存在し ます。 Section  4.4.3 を 参照して 下さい。 
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の 処理 は パターン コンポーネント 間の 等式の 集合 を 解く ことと して 考える こと 
がで きます。 一般的に は、 これら は 連立方程式 であ リ、 これ を 解く ために は大 

量の 操作が 必要と なる でしよう。 69 例えば、 （？ x  ？ x) と （（a  ？ y  c)  (a  b  ？ z)) 
の ユニフィケーション は 以下の 連立方程式 を 指定す る こと だと 考えられる でし 
よ ラ。 

？ x  =  (a  ？ y  c) 
？ x     =     (a  b  ？ z) 

これらの 方程式 は 以下 を 暗示し ます。 

、a  ？ y  c)      =     (a  b  ？ z) 

これ は 順に 次 を 暗示し ます。 

a     =     a , 
？ 7     =  b, 
c     =     ？ z , 

従って 以下の通りです。 

rx     =     v  a  b  c ; 

パターン マッチが 成功す る 場合、 全ての パターン 変数 は 束縛され、 それらに 束 
縛され る 値 は 定数の み を 持ち ます。 これ はまた ここ まで 見て きた 全ての ュニフ 
ィ ケーシ ヨンの 例に 対しても 真です。 しかし 一般的に、 ユニフィケーションが 
成功す る 場合に は 変数の 値が 完全に は 決定され ると は 限り ません。 いくつかの 
変数 は 未 束縛の ままで、 他 は 変数 を 含む 値に 束縛され ます。 

(？ x  a) と （（b  ？ y)  ？ z) の ユニフィケーション について 考えます。 ？ x  =  (b 
？ y) であ Ua  =  ？ z であると 推論で きます。 しかし それ 以上？ x と？ y について 解 
くこと はでき ません。 この ユニフィケーション は 失敗 はしません。 確かに 2 つ 
の パターン を？ x と？ y に 値 を 割り当てる ことで 等しく する こと は 可能な ためで 
す。 この 適合が? y の 取り得る 値 を 全く 限定し ないた め、 結果 フレームに？ y の 
束縛 は 全く 入りません。 しかし この 適合 は? x の 値 は 限定し ます。 ？ y が どのよ 
うな 値 を 取っても、 ？ x は 必ず （b?y) になります。 従って？ x の （b  ?y) への 束 
縛 は フレームへ 入れられます。 もし？ y の 値が （パターン マッチ、 または この フ 
レームに 一致す る 必要の ある ユニフィケーション により） 後に 決定され フレー 

69 —  方 向の パターンマッチング では、 全ての パターン 変数 を 含む 等式 は 明白で 未知数 
(パターン 変数） について 既に 解かれて います。 
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ム に 追加 されたなら、 その 前に 束縛 さ れた？ X はこの 値 を 参照す る ことにな リま 
す。 70 


ルールの 適用 

ユニフィケーション は ルールから 推論 を 行わせる ク エリ システムの コンポ 
一 ネント に対する 鍵です。 これが どのように 達成され るかに ついて 学ぶ ために 
は、 ルールの 適用 を 含む ク エリの 処理に ついて 考えて みましょう。 例えば、 以 
下につ いて 考えます。 

、上 ive s — near   ？ x    ^riacker  Alyssa  P) ) 

この ク エリ を 処理す るた めに は、 最初に 通常の 上で 説明され た パターン マッチ 
手続 を 用いて この パターンに 適合す る アサ ーシ ヨンが データベース 内に 存在す 
るか どうか を 見ます。 （この場合に は 存在し ません。 私達の データベースに は 誰 
が 誰の 近くに 住んで いるかに ついての 直接の アサ ーシ ヨンが 全く 含まれて いな 
いためです)。 次の ス テツ プはク エリ パターンと 各 ルールの 結果との ュ ニフィ 
ケーシ ヨン を 試みる ことです。 この パターン は 以下の ルールの 結果と ュ ニフィ 
ケーシ ヨンす ると、 

、！ ^ 丄 e    (lives-near   ？ person— 1 ？ per son-2 ) 

( and  (address  rcerson-l に："" town  .  ？ rest-1 ) ) 
(address  ？ per son-2  (？ town  .  ？ rest-2) ) 
(not    (same  ？ per son- 1 ？ person-2) ) ) ) 

結果と して フレームに？ person-2 が （Hacker  Alyssa  P) に 束縛され、 ？ x 力3' (同 
じ 値と して)？ person-1 に 束縛され なければ ならない ことの 指定が 入る こと を 
発見し ます。 これで、 この フレームに 関連して、 この ルールの ボディに より 与え 
られた 複合 ク エリ を 評価し ます。 適合が 成功 すれば この フレーム は? person-1 
に対する 束縛 を 与える ことで 拡張され、 その 結果と して？ x の 値 も 決定し、 元々 
のク エリ パターン を インスタンス 化する のに 利用す る ことができます。 

一般的に、 ク エリ 評価 機 は 以下の 手法 を 用いて、 パターン 変数に 対する 束 
縛 を 指定す る フレーム 内の ク エリ パターン を 定めよう とする 時に、 ルール を 適 
用し ます。 

70 ユニフィケーション について 考える もう 1 つの 方法 は、 二つの 入力 パターンの 特殊 化 
である 最も 一般的な パターン を 生成 するとい うこと です。 言い換えれば、 （？ x  a) と （（b 
？ y)  ？ z) の ユニフィケーション は （（b  ？ y)  a) であり、 上で 議論した （？ x  a  ？ y) と （？ y 
？ z  a) の ユニフィケーション は （a  a  a) です。 私達の 実装に 対して は、 ュニ フィケ ーシ 
ヨンの 結果 を パターン ではなく、 フレーム として 考えた ほうがより 便利です。 
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• ク エリ を ルールの 結論と ユニフィケーション する ことで （成功 すれば） 元 
の フレームの 拡張 を 形成す る 

. 拡張され た フレーム を 参照しながら、 ルールの ボディに より 形成され た 
ク エリ を 評価す る 

これが どれほど Lisp の eval/apply 評価 機内での 手続 適用の ための 手法に 似て 
いるかに ついて 注意して 下さい。 

• 手続の パラメ タを その 引数に 束縛す る ことで 元々 の 手続 環境 を 拡張する 
フレーム を 形成す る 

. 拡張され た 環境 を 参照しながら、 手続の ボディに より 形成され た 式 を 評 
価す る 

2 つの 評価 機の 間の 類似 度 は 驚 くべき ことで はあり ません 手続 定義が Lisp に お 
ける 抽象化の 手段で あるよ う に、 ルール 定義 はク エリ 言語の 抽象化の 手段です。 
それぞれの 場合に おいて、 適切な 束縛 を 作成し、 ルール、 または 手続の ボディ 
を これらの 束縛 を 参照す る ことで 抽象化 を 巻き戻します。 

単純な ク エリ 

私達 はこの 節の 始めに ルール を 欠いた 単純な ク エリ を どのように 評価す る 
かにつ いて 学びました。 今では ルールの 適用の 仕方 も 学んだ ため、 単純な クェ 
リ を ルールと アサ ーシ ヨンの 両方 を 用いて どのように 評価す るかに ついても 説 
明す る ことができます。 

ク エリ パターンと フレームの ス ト リーム を 与えられた 時、 入 カス ト リーム 
内の 各 フレーム に対して 2 つの ストリーム を 生成し ます。 

. (パターン マツ チヤ を 用いて） データベース 内の 全ての アサ ーショ ンに 
対して パターンの 適合 を 行う ことにより 得られた 拡張 フ レームの ス ト 
リーム 

• (ユニファイア を 用いて） 全ての 可能な ルール を 適用す る ことにより 得ら 
れた 拡張 フ レームの ス ト リ ーム 71 

n ユニフィケーション は マツ チン グの 一般化で ある ため、 ユニファイア を 用 いて 両方の 
ストリーム を 生成す る ことにより システム を 簡略 化する ことができました。 しかし、 簡 
甲-な 場合 を ¥- 純な マツ チヤで 取り扱う こと は マッチ ン グ （適合） が どの ように （本格的な 
ユニフィケーションと は 逆に） それ 自身の 正し さに おいて 便利で ある こと を 説明し ます。 
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これらの 2 つの ス ト リーム をァ ペン ド する ことにより、 与えられた パターン を 
元の フレームに 一致して 満たす ことができる 全ての 方法に より 成り立つ ス ト リ 
ームを 生成し ます。 これらの ス ト リーム （入 カス ト リームの 各 フレームに 対し 
て 1 つ） はこれ で 全てが 1 つの 巨大な ス ト リームに 接続され ます。 従って この 
巨大 ス ト リ ームは 元の 入 カス ト リ ーム 内の 任意の フレーム を 与えられた パター 
ン への 適合 を 生成す るた めに 拡張した 全ての 方法から 成り立って います。 

ク エリ 評価 機と ドライバ ループ 

潜在的な マツ チン グ 操作の 複雑 さに 係ら ず、 システム は 任意の 言語の た 
めの 評価 機と そつく りに 体系化 されます。 マッチング 操作 を 統合す る 手続 は 
qeval と 呼ばれ、 Lisp の eval 手続の 役割と 同様な 役割 を 演じます。 qeval は 
入力と して ク エリと フレームの ストリーム を 取ります。 その 出力 は フレーム 
のス ト リームで あり、 ク エリ パターンへの 成功した マッチングに 相応します。 
これ は Figure  4.4 で 示される よう 入 カス ト リームの いくつか を 拡張して います。 
eval と 同様に、 qeval は 異なる 型の 式 （ク エリ） を 分類し、 それぞれ に対する 適 
切な 手続 を 呼び出 します。 各 特殊 形式 （and,  or,  not,  lisp-value) に 手続が 存 
在し、 また 単純な ク エリに も 手続が 存在し ます。 

こ の 章の 他の 評価 機の ための driver-loop 手続と 同様の ドライ バル 一 プが 
端末から ク エリ を 読み出します。 各ク エリに 対して、 ドライバ ループ は qeval 
を その ク エリ と 1 つの 空 フレーム と共に 呼び出します。 これにより 全ての 可能 
な 適合 （全ての 可能な 空 フレーム に対する 拡張） のス ト リ ームが 生成され ます。 
結果と しての ス ト リームの 各 フレーム に対して、 ドライバ ループ は 元の ク エリ 
を フレーム 内で 見つかった 変数の 値 を 用いて ィ ン スタンス 化します。 次に この 
ィ ン スタンス 化された ク エリの ス ト リーム は 表示され ます。 72 

ドライバ はまた 特別な コマンド assert! を チェック します。 これ は 入力が 
ク エリで はなく データベースに 追加す る アサ ーシ ヨン、 または ルールで る こと 
を 示します。 例えば、 

I.  assert  ！ ( i ob    ( Bitdiddle  Ben) 

( computer  wizard ；)) 
( assert  ！    (rule    (wheel ？ person) 

( and   (supervisor   ？ middle-manager   ？ person) 

72 私達が フレームの （リス ト ではなく） ス 卜 リーム を 使う 理由 は、 ルールの 再帰 的 適用 
はク エリ を 満たす 無限の 数の 値 を 生成す る こ と がで き る からです。 ストリームに 組 込ま 
れた 遅延 化された 評価が ここで は 重要です。 システム は 応答 を 1 つづつ それらが 生成 さ 
れた 順に、 有限 か 無限の 数の 応答が あるかに 係らずに 表示し ます。 
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( supervisor  ？ x  ？ middle-manager)))) 


4.4.3 論理 プロ グラ ミ ン グは 記号論理学 なのか？ 

ク エリ 言語 内で 使用され る 組み合わせの 手段 は 最初 は 記号論理学の and, 
or,  not 命令と 同じに 見える かも しれません。 実際に ク エリ 言語の ルールの 適 
用 は、 推論と いう、 まともな 手段 を 通して 達成され ます。 73 しかし、 この クェ 
リ 言語の 記号論理学 を 用いた 同定 は 実際に は 有効で はあり ません。 ク エリ 言語 
が 論理的な 命題 を 手続 的に 解釈す る confro;  sfrMrfMre (制御 構造） を 提供す るた 
めです。 私達 は 頻繁に この 制御 構造 を 活用す る ことができます。 例えば プ ログ 
ラマの 監督者 全て を 見る ける ために は 以下の 2 つの 論理的に 等価な 形式の どち 
ら かをク エリ と して 策定す る ことができます。 

V  and リ ob    rx    ( computer  programmer ) )    ( supervisor  ?x  ？ y ) ) 

または 

( and   (supervisor   ？ x  ？ y )    (job  ？ x    ( computer  programmer ) ) ) 

もし 会社に （通常の場合 として） プログラマより 多くの 監督者が 存在す るので 

あれば、 2 つ 目よりも 最初の 形式 を 用いた ほうが 良いです。 なぜなら データべ 
ースは and の 最初の 節に より 生成され た 中 間 結果 （フレーム） 全てに 対して 探 
索され ねばならない ためです。 

論理 プ ログ ラミ ン グの 目的 は プログラマに 演算 問題 を 2 つの 分離され た 問 
題、 "何" が 求めら るべき かと "どのように" これが 求められるべき かに 分解す 
る 技術 を 与える ことです。 これ は 記号論理学の 命題の 部分集合 を 選択す る こと 
で 達成され ます。 こ れは 人が 演算 し た い 対象 全て を 記述す るのに 十分に 強く、 
けれども 制御 可能な 手続 的 解釈 を 行う に 十分に 弱い 物です。 一方で、 ここでの 
意図 は 論理 プロ ダラ ミ ング 言語で 指示され た プログラム は 計算機に よ リ 実行 さ 
れ 得る 実効 的な プロ グラムで な ければ な リ ません。 制御 （" どの ように" 演算す 
る 力、） は 言語の 評価 順の 使用に 影響 を 受けます。 私達 は 節の 順と 各 節の 中の 下 
位 目標の 順と を 操作し、 演算が 実効 的、 かつ 効率的で あると 考えれ られる 順で 
行われる よ う にせねば な リ ません。 


73 推論の 特定の 手段が まともで あると いう こと は 自明な 主張で はあり ません。 も し 真 
となる 前提で 開始 し たので あれば、 真と なる 結論の みが 導 き 出される こと を 証明し なけ 
れ ばな りません。 ルール 適用で 表現され た 推論の 手法 は modus  portens (肯定 式） という 親 
しみ ある 推論の 手法で あ リ、 もし が 真で あ リ かつ A  implies  B(A な ら ば B) が 真で あ 
るなら ば、 B は 真で ある と 結論 づけ る こと がで きます。 
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私達の ク エリ 言語 は 単なる そのような 手続 的に 解釈 可能な 記号論理学の 部 
分 集合で あると 見做す ことができます。 アサ ーシ ヨン は 単純な 事実 （アト ミツ 
クな 命題） を 表現し ます。 ルール は ルールの ボディが 持つ 複数の 場合に 対する、 
ルールの 結論が 持つ 推測の 結果 を 表現し ます。 ルール は 自然な 手続 的 解釈 を 持 
ちます。 ルールの 結論 を 成立させる ために は、 ルールの ボディ を 定めます。 従 
つて、 ルール は 演算 を 提示して います。 しかし、 ルール はまた 記号論理学の 命 
題で あると も 見做す ことができる ため、 同じ 結果が 全体 的に 記号論理学の 中で 
働く ことにより 得られる こと を 主張す る こ と で、 論理 プロ グラ ム により 遂行 さ 
れた 任意の "推論" を 正当化す る ことができます。 74 

無限ループ 

論理 プロ グラムの 手続 的な 解釈の 結果 は 絶望的に 非 効率な プログラム を 一 
部の 問題に 対して 構築す る こ と が 有 り 得る こ と です。 極端に 非 効率な 場合に は 
システム は 演繹 を 行う 無限ループに 落ち込んで しまいます。 簡単な 例と して、 
縁組の データベース を 構築した と 考えて みましょう。 以下 を 含みます。 

assert  ！    (married  Minnie   Mickey) ) 

ここで 以下 を 尋ねた 場合、 

I, married  Mickey  ？ who ； 

応答 は 有りません。 なぜなら システム はもし A が B に 結婚した 場合、 B が 
に 結婚す る ことに なること を 知ら ないた めです。 そのため 以下の ルール を 宣言 
します。 

assert  ！    (rule に married  ？ x    rv)    (married    ry  ？ x; ) ) 


74 私達 はこの 命題 を 以下に 同意す る こ と で 制限し な ければ な リ ません。 "推論" が 論理 
プロ グラムに よ リ 正当化 される に 言及す る において、 私達 は 演算が 停止す る こ と を 前提 
としてい ます。 残念な ことに、 例え この 制限され た 命題 もク エリ 言語の 私達の 実装に お 
いて は 正しくありません。 （そして 同時に Prolog の プログラムに とっても、 そして 他の 
ほとんどの 現在の 論理 プログラミング 言語に おいても これ は 正しく あり ません)。 原因 は 
私達の not と lisp-value の 使用の ためです。 この 先で 議論す るよう に、 ク エリ 言語で 実 
装され た not は 常に 記号論理学の not と 一致し ません。 そして lisp-value は 複雑さ を 
増します。 私達 は ¥. 純に not と lisp-value を 言語から 削除し、 プログラム を 単純な ク 
エリ， and,  or のみ を 用いて 書く ことに 同意す る ことで、 記号論理学と 一致す る 言語 を 実 
装す る ことができます。 しかし、 これ は 言語の 表現力 を 大きく 制限して しまいます。 論 
理 プロ グラ ミ ング における 主要な 研究課題の 1 つ は 過度に 表現力 を 犠牲に する ことなく、 
記号論理学 とより 一致す る 方法 を 見つける ことです。 
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そして 再び 質問し ます。 

I, married  Mickey  ？ who ； 

残念ながら、 これ は システム を 無限ループに 追い やります。 以下のと おりです。 

. システム は married ルールが 適用 可能で ある こと を 見つけます。 言い 
換えれば、 ルールの 結論 （married  ？ x  ？ y) は 成功裏に ク エリ パターン 
(married  Mickey  ？ who) と 単——ィ 匕し、 7x 力、 Mickev に、 7  y カ^?  who に 束 
縛され る フレーム を 生成し ます。 

. 1 つの 答 は 直接 データベース 内の アサ ーシ ヨンと して 現れます： (married 
hmme  Mickev) 

. married ルール もまた 適用 可能です。 そのため インタプリタ は 再度 ルー 
ルの ボディ を 評価し、 今回 は （married  Mickey  ？ who) に 等しく なります。 

これで システム は 無限ループの 中です。 実際に、 システムが 簡単な 答、 （married 
Minnie  Mickey) を ループに 入る 前に 見つける かどう か は、 システムが データ 
ベース 内の アイテム を チェック する 順に 関連す る 実装 上の 詳細に 依存し ます。 
これ は 起こ り 得る ループの とても 単純な 種類の 例です。 相互に 関連す る ルール 
の 蓄積 は 予想す る ことが よ リ 難しい ループへ と 導きます。 そして ループの 出現 
は and 内の 節の 順 （Exercise  4.64 参照） か、 または システムが ク エリ を 処理す る 
順に 関連す る 低 レベルの 詳細に 依存し ます。 75 

not の 問題 

も う 1 つの ク エリ システムの 予測で きない 出来事 は not に 関連し ます。 
Section  4.4.1 の データベース を 受け取った 時、 以下の 2 つの ク エリ について 考 
えてみ ます。 

75 これ は 論理の 問題で はなく、 私達の インタプリタ により 提供され る 手続 的な 解釈の 
問題です。 ここで ループに 陥らない インタプリタ を 書く こと もで きました。 例えば アサ 
ーシ ヨンと ルールから 導き だせる 全ての 証明 を 深さ 優先 探索で な く  、 幅 優先 探索で 列挙 
する こと もで きました。 しかし、 そのような システム は 私達の プログラムの 中に おける 
推論の 順序 を 活用す る ことが ょリ 難しくな ります。 そのような プログラムの 中に 洗練 さ 
れた 制御 を 構築す る 試みが deKleer  et  al. 1977 に 説明され ています。 そのような 深刻な 制 
御上の 問題に 導かない 別の テク ニッ ク と して、 特定の 種類の ループの 検知 器の ような 特 
別 な 知識 を 組 込む ことがあります （Exercise  4.67)。 しかし、 推論の 実行に おいて 無限の 
小道 を 下る ことから 確実に システム を 防ぐ 一般的な 理論体系 は 有り ません。 が 真 
である こと を 示す ために は、 が 真で ある こと を 示せ" という 様式の 悪魔の ルール 
を いくつかの 適切に 選択され た 関数/に対して 想像して みて 下さい。 
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( and   (supervisor   ？ x  ？ y ) 

(not    Kjob  ？ x    ( computer  programmer) ) ) ) 
( and   (not リ ob  ？ x   ( computer  programmer ) ) ) 

( supervisor   ？ x  ？ y ) ) 

これらの 2 つの ク エリ は 同 じ 結果 を 生成し ません。 最初の ク エリ は データべ 一 
ス 中の （supervisor  ？ x  ？ y) に 適合す る 全ての ェン ト リ を 見つけ、 次に 結果の 
フレームから ？ x の 値 力 《 （job  ？ x  (computer  programmer) ) を 満たす 物 を 削除 
します。 2 つ 目の ク エリ は 入力 フレームから （."job  ？ x  (computer  programmer)) 
を 満たす 物 を 消す フィルタから 開始し ます。 入力 フレーム だけで は 空で あるた 
め、 データべ ース 力、 ら (job  ？ x  (computer  programmer)) を 満たす るノ 《ターン 
が 存在す るか 確認し ます。 通常 はこの 形式の ェン ト リ が 存在す るので、 not 節 
は 空の フレーム を 取り除き、 空の フレームの ストリーム を 返します。 結果と し 
て、 複合 ク エリ 全体が 空 ストリーム を 返します。 

問題 は not の 私達の 実装 は 本当に 変数の 値上の フィルタ としての 役目 を果 
たす こ と を 意図して います。 も し not 節が いく つかの 束縛され ていない 変数 を 
持つ フレームと 処理 さ れた 場合 （上記の 例 に お け る ？ x が 行 うように）、 システム 
は 予想外の 結果 を 生成し ます。 同様の 問題が lisp-value の 使用で も 起こ リ ま 
す。 Lisp の 述語 は その 引数の いくつかが 未 束縛な 場合 働く ことができません。 
Exercise  4.77 を 参照して 下さい。 

ク エリ 言語の not が 記号論理学の not と 異なる ずっと 深刻な 部分が あ リ ま 
す。 論理学で は 命題 "not  P" を P は 真で はない こと を 意味す る と 解釈し ます。 
しかし、 ク エリ システム では" not  は P が データベース 内の 知識から 推論 不 
可能で ある こと を 意味して います。 例えば、 Section  4.4.1 の 社員 情報 データべ 
ースを 与えられた 場合、 システム は 幸いに も 全ての 種類の not 命令 を 推論す る 
ことができる でしよう。 例えば BenBitdiddle は 野球の ファンで はない、 外で 
雨 は 振って いない、 2  +  2 は 4 ではない などです。 76 

Exercise  4.64:  Louis  Reasoner  (if 呉って outranked-bv  ノレ一ノレ (Sec- 
tion 4.4.1)  を データベースから 削除して しまった。 彼 はこの こと 
に 気付いた 時、 直ぐに 再 インストールした。 残念な ことに、 彼はル 
ール にわず かな 変更 を 行い、 以下の よう に 入力した。 


76 ク エリ （not  (baseball-fan  (Bitdiddle  Ben) )) について 考えて みましょう。 シス 
テム は データベースに （baseball- fan  (Bitdiddle  Ben) ) が 無い こと を 知り、 そのため 
空 フレーム は パターン を 満たさず 初期値の フレームの ス ト リームから 取リ 除かれません。 
ク エリ の 結果 は 従って 空フ レームで あり、 これが 入 カク エリ のィ ン スタンス 化に 用いら 
れ、 (not  (baseball-fan  (Bitdiddle  Ben))) が 生成され ます。 
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(rule    ( outranked - by   ？ staff -person  ？ boss ) 

(or   ( supervisor   ？  staff -person  ？ boss ) 

( and   ( outranked - by  ？ middle-manager   ？ boss ) 
( supervisor   ？  staff -person 

？ middle-manager)))) 

Louis が こ の 情報 を システムに 入力して 直ぐに、 DeWitt  Aull が や 
つてき て Ben  Bitdiddle の 上司 は 誰か を 調べよ うとした。 彼 は 以下 
のク エリ を 入力した。 

に outranked - by    (Bitdiddle  Ben)    ？ who ) 

回答 を 行った 後、 システム は 無限ループ へと 陥った。 何故で ある 
か、 説明せ よ。 

Exercise  4.65: 組織 内での 昇進の 日 を 待ち望んで いる Cy  D.  Feet 
は 全ての 重役 を 探す ク エリ を 入力して みた （Section  4.4.1 の ルール 
wheel を 用いた）。 

I.  wheel    rwho ) 

驚いた ことに システム は 以下の 内容 を 応答した。 

； ； ； Querv  results: 
\_  wheel ( Warbucks   Oliver  ) ) 
(wheel    (Bitdiddle  Ben) ) 
( wheel    (Warbucks   Oliver ) ) 
( wheel    (Warbucks   Oliver ) ) 
( wheel    (Warbucks   Oliver ) ) 

何故、 Oliver  Warbucks は 4 度 表示され たの か？ 

Exercise  4.66:  Ben はク エリ システム を 一般化 し 会社に 関する 統計 

を 提供す る。 例えば、 全ての コンピュータ プログラマの 給料の 合 
計 を 求める ために は、 以下の ように 入力す る ことができ るだろう。 

に sum  ？  amount    ( and   (job   7x   ( computer  programmer ) ) 
( salary  ？ x  ？ amount ) ) ) 

全般に、 Ben の 新しい システム は 以下の 形式の 式 を 可能に する。 
ac  cumulation- function  (variable)   (querv  pattern)  j 
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ここで accumulation-function  (ま sum,  average, ま た は maximum 

のよう な 物で ある。 Ben はこれ を 実装す る の は 簡単な はず だ と 考 
えた。 単純に ク エリ パターン を qeval に 追加す るだろう。 これ は 
フレームの ス ト リーム を 生成す るだろう。 すると 彼 はこの ス ト リ 
ームを map 関数 を 通す ことで ス ト リーム 内の 各 フレームから 指定 
した 変数の 値 を 抽出し、 結果の 値の ス ト リーム を accumulation (集 
積） 関数へ と 与える だろう。 Ben が 実装 を 完成し、 丁度 試験 を 行お 
う と した 時に Cy が 依然と して Exercise  4.65 の wheel ク エリ の 結 
果に 悩みながら 歩いて きた。 Cy 力 《Ben に システムの 応答 を 見せた 
時、 Ben はうな つてから "なんて こった。 私の 簡単な 集積の 仕組み 
は 動かない!" と 述べた。 

Ben は 何に 気付いた のか？ この 状況 を 救い出す ため 用いられる 手 
段の 要点 を 述べよ。 

Exercise  4.67: ク エリ システムに ループ 検知器 を インス トールし、 
テキス ト と Exercise  4.64 で 説明され たよう な 単純な ループ を 防ぐ 
ための 手段 を 工夫せ よ。 一般的な アイデア は、 システムに 現在の 
推論の 連鎖の ある 種の 履歴 を 管理 させ、 既に 取り組んで いる クェ 
リ の 処理 を 始めない よう にす る ことで ある。 どのよう な 種類の 情 
報 （パターンと フレーム） が この 履歴に 含まれる か、 そして どのよ 
う に 検査が 行われるべき かにつ いて 説明せ よ。 （Section  4.4.4 にお 
ける ク エリ システムの 実装の 詳細 を 学んだ 後に、 あなた は シス テ 
ムを 変更して ループ 検知器 を 入れたい と 思う だろう）。 

Exercise  4.68:  Exercise  2. 18 の reverse 命令 を 実装す る ルール を定 

義 せよ。 これ は 与えられた リ ス トの 逆順で 同じ 要素 を 含む リスト 
を 返す。 （ヒント： append-to-form を 使用せ よ）。 あなたの ルール 
は （reverse  (1 2  3)  ？ x) と （reverse  ？ x  (1 2  3)) の 両方に 回 

答す る ことができ るだろう か 1 

Exercise  4.69:  Exercise  4.63 で 策定した データベースと ルール か 
ら 始めて、 孫の 関係に "great" を 追加す るた めの ルール を 工夫せ 
よ。 これ は システムに 対し Irad 力 《 Adam の great- grandson (ひ 孫) 
である^と、 また Jabal と Jubal 力） great- great- great- great- great- 
grandsons (ひひ ひひ ひ 孫）  である こと を 推論す る こ と を 可能に しな 
ければ ならない。 （ヒント ： 例えば Irad に関する 事実 を （（great 
grandson)  Adam  Irad) として 表現す る。 リストの 終端が 単語 
grandson であるか を 決定す る ルール を 書け。 これ を 用いて？ rel が 
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grandson で 終わる リストで ある 場合に、 関係 （（great  .  ？ rel) ？ x 
？ y) を 導き出す ことが 可能な ルール を 表現せ よ）。 あなたの ルール 
を ( (great  grandson)  ？ g  ？ ggs) と 、 rrelationship  Adam  Irad^ 

のよう なク エリ を 用いて 確認せ よ。 

4.4.4 ク エリ システムの 実装 

Section  4.4.2 は どのように ク エリ システムが 働く かにつ いて 説明した。 ここ 
では 完全な システムの 実装 を 公開す る ことにより 詳細 を 知らせる。 

4.4.4.1 ドライバ ループと インスタンス 化 

ク エリ システムの ための ドライバ ループ は 繰り返し 入力 式 を 読み込みます。 
も し 式が 追加 されるべき ルール か アサ ーシ ヨンで あるの ならば そ の 情報が 追加 
されます。 そうでなければ 式はク エリで あると 見做されます。 ドライバ はこの 
ク エリ を 評価 機 qeval に 単一の 空の フレームから 成る 初期 フレー ムス ト リーム 
と共に 渡されます。 評価の 結果 はク エリ を データベース 内で 見つかった 変数の 
値で 満たす ことにより 生成され た フレームの ス ト リームです。 これらの フレー 
ムは、 フレームの ス ト リームに ょリ 提供され た 値 を 用いて 変数が インスタンス 
化された 元の ク エリの コピーから 成る 新しい ス ト リーム を 形成す るのに 用いら 
れ ます。 そして この 最終的な ス ト リームが 端末に 表示され ます。 

def ine input-prompt      h  ；  ；  ；    Query   input  ： " ； 
def ine   output -prompt    ■' ；  ；  ;    Query  results  : " ) 

( def  ine    (query-driver-loop ) 

(prompt-f or- input   input-prompt ) 
(let    ( (q   (query - syntax - process  (read)))) 
( cond   ((assertion-to-be-added?  q) 

( add - rule - or - as sert ion ！  ( add- assert ion-body  q) ) 
(ne wline ) 

(di splay   "Assertion  added  to  data  base.1') 
(query- driver-loop)) 
(else 
(ne wline ) 

(di splay   output -prompt ) 
(display- stream 
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( stream-map 
(lambda   (frame ) 
( instantiate 

q 

frame 

( lambda   ( v  f ) 

( contract-quest  ion-mark  v) ) ) ) 
(qeval q   ( singleton- stream  '())))) 
(query- driver-loop))))) 

ここで、 この 章の 他の 評価 機と 同様に、 ク エリ 言語の 式に 対して 抽象 構文 を 
用います。 式の 構文の 実装 は 述語 assertion-to- be-added? と セレクタ add - 
assertion- body を 含めて、 Section  4.4.4.7 にて 与えられます。 add  -  rule  -  or - 
assertion! は Section  4.4.4.5 で 定義され ます。 

入力 式の どんな 処理 を 行う 前に も、 ドライバ ループ は 処理 をより 効率的に 
する 形式へ と 構文 的に 変換し ます。 これ は パターン 変数の 表現の 変更 を 含み ま 
す。 ク エリが 初期化 される 時、 未 束縛で ある 任意の 変数 は 表示され る 前に 入力 
時の 表現に 戻されます。 これらの 変換 は 2 つの 手続、 query-syntax-process 
と contract— question— mark によ リ 実行され ます (Section  4.4.4.7)。 

式 を インスタンス 化する ために はまず コピー を 行い、 式 中の 全ての 変数 を 
与えられた フレーム 内の それらの 値に て 置き換えます。 値 は それら 自身が イン 
スタンス 化されます。 それらが 変数 を 含む 可能性が あるた めです （例えば、 式 
の 中の？ x が ユニフィケーションの 結果と して？ y に 束縛され、 ？ y が 同様に 5 に 
束縛され ている 場合)。 変数が インスタンス 化で きない 場合に 取るべき 行動 は 
手続 instantiate の 引数に 渡されます。 

dei ine    (instantiate   exp  irame  unbound- var -handle r ; 
( dei ine    ( copy  exp) 
( cond   ( ( var?  exp) 

(let    ( (binding   (binding- in- frame   exp  frame ) ) ) 
(if  binding 

( copy    (binding- value  binding ) ) 
( unbound- var-handler   exp  frame ) ) ) ) 
( (pair?  exp) 

( cons    ( copy   (car   exp))    ( copy   ( cdr  exp)))) 
(else  exp ) ) ) 
( copy  exp) ) 
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束縛 を 操作す る 手続 は Section  4.4.4.8 で 定義 されます。 
4.4.4.2 評 <而 機 

query-driver-loop によ り 呼ばれる qeval 手続 はク エリ システムの 基本的 
な 評価 機です。 入力と して ク エリと フレームの ストリーム を 取り、 拡張され た 
フ レームの ス ト リ ームを 返します。 Chapter  2 で 総称 的な 命令 を 実装した のと 同 
様に、 get と put を 用いた データ 適 従に よる 呼 出に ょリ 特殊 形式 を 判別し ます。 
特殊 形式と は 判別され ない 任意の ク エリ は 単純な ク エリ と 見做され simple- 
query  により 処理され ます。 

(, def ine    (qeva 上 query  frame-stream) 

、丄 et i, ( qproc    i,get に" type  query)    'qeva 上) ソ) 
(if  qproc 

(qproc    ( contents   query)  frame-stream) 
(s imp le -query  query  frame-stream)))) 

type と contents は Section  4.4.4.7 で 定義され、 特殊 形式の 抽象 構文 を 実装し 

ます。 

単純な ク エリ 

simple-query 手続 は 単純な ク エリ を 扱います。 引数と して 単純な ク エリ 
(パターン） を フレームの ス ト リームと 共に 取り、 ク エリの データベースへの 適 
合 全てに より 各 フレーム を 拡張する ことにより 形成され たス ト リーム を 返し 
ます。 

def  ine    (  s impie - query  query-pattern  frame-stream) 
( stream - fl at map 
(lambda   (frame ) 

(stream - append - delayed 
( f ind- assert ions   query-pattern  frame ) 
(delay   (apply - rules   query-pattern  frame)))) 
frame-stream) ) 

入力 ストリーム 中の 各 フレームに 対し、 find- assertions(Section  4.4.4.3) を 
用いて データベース 内の 全ての アサ一 シ ヨンに 対して パターン を 適合し、 拡張 
フ レームの ス ト リ 一ムを 生成し ます。 そして apply- rules  (Section  4.4.4.4) を 
用いて 全ての 可能な ルール を 適用し、 拡張 フレームの も う 1 つの ス ト リ 一ム 
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を 生成し ます。 これらの 2 つの ストリーム は (stream-append-delayed(Section 
4.4.4.6) を 用いて） 接続され、 与えられた パターンが 元の フレームに 一致して 満 
たされる ことが 可能な 全ての 手段で ス ト リ ームを 作り ます （Exercise  4.71 参照)。 
個別の 入 カフ レームに 対する ス ト リ ームは stream-flatmap  (Section  4.4.4.6) 
を 用いて 接続され、 元の 入 カス ト リーム 内の 任意の フレームが 与えられた バタ 
ーンを 用いて 適合 を 生成す るた めに 拡張され る ことができる 全ての 手段に よ 
リ、 1 つの 巨大な ストリームが 形成され ます。 


複合 ク エリ 

and ク エリ は Figure  4.5 にて 説明され ている ように conjoin 手続に よ リ 扱わ 
れ ます。 conjoin は 入力と して 結合 （conjuncts) と フレームの ストリーム を 取 
リ、 拡張され た フレームの ストリーム を 返します。 最初に conjoin は フレーム 
のス ト リ ームを 処理し、 結合 内の 最初の ク エリ を 満たす 全ての 可能な フレーム 
の 拡張の ストリーム を 探します。 次に、 これ を 新しい フレームの ストリームと 
して 用いて、 再帰 的に ク エリの 残りに 対して conjoin を 適用し ます。 

1, def ine    (conjoin   coniuncts  frame-stream) 
i, if    (  empty- con  junction?   conjuncts  ) 
frame-stream 

(conjoin   (rest - conjuncts   conjuncts ) 

(qeval    (first- conjunct   conjuncts ) 
frame-stream)))) 

以下の 式 は 

( put    1  and    1 qeval  conjoin) 

qeval に 対し、 and の 型に 遭遇した 場合に conjoin を 呼び出す よう に 設定し 
ます。 

or ク エリ も 同様に、 Figure  4.6 に 示される よ う に 扱われます。 or の 多様な 選 
言肢 に対する 出 カス ト リーム は 別々 に 求められ、 Section  4.4.4.6 の interleave- 
delayed 手続 を 用いて 結合され ます。 （Exercise  4.71 と Exercise  4.72 を 参照） 

def  ine    (disjoin  dis  nunct  s  frame-stream) 
、if    ( empty-di s junction?   di s junct s ) 
the-empty- stream 
(interleave - delayed 
( qeval ( i lr st-di s junct   dis j unct s ) 
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frame-stream) 
( delay   (disjoin   (rest-disjuncts   dis juncts ) 
frame-stream))))) 
(put    ' or    1 qeval  disjoin) 

論理 積 （conjuncts) と 論理和 （disjuncts) の 構文の ための 述語 と セレクタ は Section 
4.4.4.7 で 提供され ます。 

フ ィ ルタ 

not は Section  4.4.2 にて 概説され た 手法に よ リ 扱われます。 入 カス ト リ ーム 
内の 各フ レーム を 否定され たク エリ を 満たす よう に 拡張する こ と を 試みます。 
そして 拡張で きない 場合に のみ 出 カス ト リームに 与えられた フレーム を 含め 
ます。 

def ine    (negate   operands ェ rame - stream) 
(stream-flatmap 
(lambda   (frame ) 

、if    ( stream-null? 

(qeval    (negated- query  operands ) 

( singleton- stream  frame ) ) ) 
(singleton-stream  frame ) 
the - empty - stream) ) 
frame-stream) ) 
(put    ' not    1 qeval  negate ) 

lisp-value は not に 似た フィルタです。 ス ト リーム 内の 各 フレーム は パタ一 
ン 内の 変数 を インスタンス 化する ために 用いられ、 指定され た 述語が 適用され、 
述語が 偽 を 返した フレーム は 入 カス ト リームから 取り除かれます。 未 束縛な パ 
ターン 変数が 存在す る 場合 に は 結果 は エラ 一となります。 

V def ine    (lisp - value   call   irame - stream) 
(stream-flatmap 
(lambda   (frame ) 
、if    ( execute 

、 instantiate 
call 
frame 
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(lambda   ( v  f ) 

(error   "Unknown  pat  var :  LISP-VALUE" 

V)))) 

(singleton-stream  frame ) 
the-empty- stream) ) 
frame-stream) ) 
(put    r lisp-value    1 qeval   lisp-value ) 

execute は 述語 を 引数に 適用し ますが、 述語 式 を 評価し 適用す る 手続 を 得な け 
れば なりません。 しかし 引数 は 評価して はいけ ません。 なぜなら それら は 既に 
実際の 引数で あり、 その （Lisp における） 評価が 引数 を 生成す る 式で はないた 
めです。 execute が 基礎 を 成す Lisp システムの eval と apply を 使用して 実装 
されて いる ことに 注意して 下さい。 

^define    (execute  exp; 

V  apply   (eva 丄 （^predicate  exp) 

us er- init  ial- environment ) 
(args   exp) ) ) 

特殊 形式 always-true はク エリ に 対し 常に 満たされた 状態 を 与えます。 これ は 
その 中身 （通常 は 空） を 無視し、 単純に 入 カス ト リ 一ムの 全ての フレーム を 通 
します。 always-true は rule-body セレクタ （Section  4.4.4.7) に よ り 利用 さ れ、 
ボディ 成しで 定義され た ルールに 対し ボディ を 提供し ます。 （言い換えれば、 そ 
の 結果 部分が 常に 満たされます。 ） 

(, def ine    (  a 丄 wavs —  " true   ignore   frame-stream;  irame-stream) 
(put    ' always-true    ' qeval   always-true ) 

not と lisp-value の 構文 を 定義す る セレクタ は Section  4.4.4.7 で 提供され ます。 

4.4.4.3 パターンマッチング により アサ 一シ ョ ンを 見つける 

find-assertions は simple-query  (Section  4.4.4.2) に よ リ 呼 はれ、 入力 と 
して パターンと フレーム を 取ります。 フレームの ストリーム を 返し、 各 フレー 
ムは 与えられた 物 を 与えら えた パターンへの データベースの 適合に より 拡張 さ 
れ ています。 fetch-assertions  (Section  4.4.4.5) を 用いて データベース 内の 全 
ての アサ ーシ ヨンの ス ト リーム を 得ます。 これ は パターンと フレーム に対して 
適合す るか 確認され なければ な リ ません。 ここで fetch-assertions する 理由 
は、 私達 は 良く 簡単な テスト を ここで 適用す るた めです。 この テスト は 適合 を 
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成功す る 候補の プールから データベース 内の ェン ト リ を 数多く 削減す る ことが 

できます。 システム は 例え fetch-assertions を 削除して 単純に データベース 
内の 全ての アサ ーシ ヨンの ス ト リ ームを 確認す る だけで も 動く でしよう。 しか 
し 演算 は 効率的で はなくな リ ます。 より 多くの マツ チヤに 対する 呼 出 を 行わね 
ばなら なくなる ためです。 

、deiine    (f  ma- assert ions  pattern  frame ； 
(stream-flatmap 
( lambda   ( datum) 

(check- an -assertion  datum  pattern  frame)) 
(fetch-assertions   pattern  frame ) ) ) 

check-an-assertion は 引数と して パターン、 データ オブジェ ク ト （アサ一 ショ 
ン)、 フレーム を 取り、 拡張され た フレーム を 含む 1 要素の ストリーム か、 適合 
を 失敗した 場合に the- empty  -  stream を 返します。 

V  dei ine    (check- an -assertion 

assertion  querv-pat   querv-irame ； 
(let  ^match-result 

(pattern-match  query-pat   assertion  query-frame ) ) ) 
(if    ( eq?  mat ch-re suit    1  failed) 
the - empty - stream 

( s inglet on- stream  match-result)))) 

基本的な パターン マツ チヤ は シンボル: failed 力 \ 与えられた フレームの 拡張 
を 返します。 マツ チヤの 基本的な 考え は パターン を データに 対して 要素 毎に 確 
認し、 パターン 変数に 対する 束縛 を 集積し ます。 もし パターンと データ ォブジ 
ェク 卜が 同じであるなら、 適合 は 成功し そこまで 集積され た 束縛の フレーム を 
返します。 そうでなければ、 もし パターンが 変数なら ば、 変数 を データに 対し 
て 束縛す る ことで 現在の フレーム を 拡張する こと をフ レーム 内に 既に 存在す る 
束縛に 一致す るまで 行います。 も し パターンと データの 両方が ペアであるなら、 
(再帰 的に） パターンの car を データの car に对 して 適合 を 行い フレーム を 生 
成します。 次に この フレームの 中で パターンの cdr を データの に対して 適合 を 
行います。 もし これらの 場合 全てが 当て 嵌らない 場合、 適合 は 失敗し、 シンポ 
； 1/  failed を 返します。 

dei  ine    (pattern-mat  ch  pat  aat  frame  ) 
( cond   ( ( eq?  frame    1  failed )    1  failed) 
( ( equal?  pat  dat )    frame ) 
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( ( var?  pat )    ( extend- if -consistent  pat  dat  frame)) 
((and   (pair?  pat )    (pair?  dat)) 
(pattern-match 

( cdr  pat ) 

( cdr  dat ) 

(pattern-match    (car  pat )    (car  dat )  frame))) 
(else    '  failed) ) ) 

次が、 フレーム 内に 既に 存在して いる 束縛に 一致す るなら、 新しい 束縛 を 追加 
する ことにより フレーム を 拡張する 手続です。 

、deiine    ( extend- if -consistent   var  dat  frame ； 
(let    "Dinding   (binding- in- frame  var  frame  ) ) ) 
( if  binding 

(pattern-mat ch 

( binding- value  binding)    dat   frame ) 
(extend  var  dat  frame ) ) ) ) 

もし フレーム 内の 変数に 対する 束縛が 無い 場合、 単純に 変数の データに 対する 
束縛 を 追加し ます。 そうでなければ この フレーム 内で、 データ を フレーム 内の 
変数の 値 に対して 適合 を 行レ 、ます。 もし 格納され て いた 値が 定数の み を 持つな 

らば、 つまり extend-if-consistent によ り パターンマッチングの 間に 格納 さ 
れ たの であれば、 適合 は 単純 に 格納 されて いた 値と 新しい 値が 同じで あるか ど 
うか を 確認し ます。 もしそうならば、 フレーム を 変更せ ずに 返します。 そうで 
ないならば、 失敗 を 示す 印 を 返します。 しかし 格納され たいた 値 は、 それが ュ 
二 フィケ ーシ ヨンの 間に 格納され たので あれば パターン 変数 を 含む 場合が あり 
ます （Section  4.4.4.4 参照)。 格納され た パターンの 新しい データに 対する 再帰 
的な 適合 はこの パターン 内の 変数に 対する 束縛の 追加、 または 確認 を 行います。 
例えば、 ？ x が （f  ？ y) に 束縛され? y が 未 束縛で ある フレーム を 持って いると し 
ましょう。 そして この フレーム を？ x の （f  b) への 束縛で 拡大 させたい としま 
す。 私達 は? x を 探し、 それが （f  ？ y) に 束縛され ている の を 見つけます。 この 
ことが この 同じ フレームの 中で 提案され た 新しい 値 （f  b) に対して （f  ？ y) を 
適合させる ことへ と 導きます。 最終的に、 この 適合 は？ y から b への 束縛 を 追加 
する ことによ リ この フレーム を 拡張し ます。 ？ x は （f  ？ y) への 束縛 を 維持し ま 
す。 格納され ていた 束縛 を 変更す る ことはありません。 また 与えられた 変数に 
対して 複数の 束縛 を 格納す る こと もぁリ ません。 

extend-if-consistent によ り 使用され る 束縛 を 操作す るた めの 複数の 手 
続 は Section  4.4.4.8 で 定義され ます。 
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末尾 ドッ 卜 付き パターン 

パターンが ドッ ト とそれ に 続く パターン 変数 を 含む 場合、 その パターン 変 
数 は データ リストの （次の 要素で はなく） 残リに 適合し ます。 誰かが 予想す る 

よ う に Exercise  2.20 にて 説明され た ド ッ ト 付き 末尾 記述と 同様です。 私達が 実 
装した ばかりの パターン マツ チヤ はドッ トを 探しません 力、 私達が 望む とおり 
に 振舞います。 これ は queiy-driver-loop で 用いられる Lisp の read プリ ミ 
ティ ブがク エリ を 読み込み リ スト 構造と して 表現す る 時に ドッ ト を 特別な 方法 
で 扱うた めです。 

read がドッ トを 見た 時、 次の 項目 を リ ス トの 次の 要素に する ので はな く 
(cons の car のこと、 cdr は リストの 残り）、 リスト 構造の cdr を 次の 項目に し 
ます。 例えば、 パターン （computer  ？ type) に対する！ ■ead により 生成され る 
リスト 構造 は 式 （cons  '  computer  (cons  '？" type  ' () ) ) を 評価す る ことによ 
リ 構築され ます。 また パターン （computer  .  ？ type) に対する 場合 は 式 （cons 
' computer  '?type) を 評価す る ことによ リ 構築され ます。 

従って pattern-match が 再帰 的に データ リストと ドット を 持つ パターン 
の car と cdr を 比較す るに つれ、 最終的に はドッ トの 後ろの 変数 （パターンの 
cdr) が データ リストの 部分 リストに 対して 適合され、 その リストに 対して その 
変数が 束縛され ます。 例えば、 パターン （computer  .  ？ type) を （programmer 
trainee) に 適合す •£) ことほ ？ type を リスト (programmer  trainee) に; ill 合 3 
せます。 

4.4.4.4 ルールと ユニフィケーション 

apply-rules は find-assertions の 類似の ルールです (Section  4.4.4.3)。 入 
力と して パターンと フレーム を 取リ、 データベースから ルール を 適用す る こと 
により 拡張 フ レームの ス トリ ームを 形成し ます。 stream-flatmap は apply-a- 
rule を (fetch-rules によ リ 選択され た (Section  4.4.4.5)) 恐ら く 適用 可能な 
ルールの ス ト リ ームに 対し map し、 結果の フレームの ス ト リ 一 ム群を 結合し 
ます。 

V def ine    (applv-rules  pattern  frame ) 
(stream-flatmap    (lambda  (rule) 

( apply- a- rule  rule  pattern  frame ) ) 
( fetch-rules  pattern  frame))) 

apply-a-rule は Section  4.4.2 で 概説され た 手法 を 用いて ルール を 適用し ます。 
最初に ルールの 結論 を 与えられた フレーム 内の パターンと ユニフィケーション 
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を 行う ことで 引数 フレーム を 増大させます。 これが 成功した ならこの 新しい フ 
レーム 内で ルールの ボディ を 評価し ます。 

しかし この 全てが 起こる 前に、 プログラム は ルール 内の 全ての 変数 を 個別 
の 新しい 名前に 変更し ます。 この 理由 は 異なる ルールの 適用に 対する 変数が 御 

互いに 混同され る こと を 防ぐ ためです。 例えば、 もし 2 つの ルールの 両方が? x 
と 名付けられた 変数 を 用いる 場合、 それぞれが 適用され た 時に？ x に对 する 束縛 
を フレームに 追加す るか も しれません。 これら 2 つの？ x は 御 互いに 関係が あり 
ません。 そして 私達 は 2 つの 束縛が 一致す る はず だと 考える よ う に 惑わされて 
はいけ ません。 変数 名 を 変える のでな く、 より 賢い 環境 構造 を 工夫す る こと も 
できる でしよう。 しかし、 私達が ここで 選択した 改名に よる 取り組み 方 は 最も 
効率的で はない としても、 最も 簡単です （Exercise  4.79 参照)。 以下が apply-a- 
rule 手続です。 

def ine    (  applv-a-rule  rule   query-pattern  querv-f  rame  ) 
(let    ( ( clean-rule    (rename - variables - in  rule))) 
(let    ( (unif y-result 

(unif y-match  query -pat tern 

( conclusion   clean-rule ) 
query-frame ) ) ) 
(if    ( eq?  unif y-result    1  failed ) 
the - empty - stream 
(qeval    (rule-body  clean-rule) 

( singleton- stream  unif y-result )))))) 

セレクタ rule-body と conclusion は ルールの 部分 を 抜き出します。 これ 
は Section  4.4.4.7 で 定義され ます。 

私達 は ユニークな （unique、 独自の） 識別子 （例えば 番号） を 各 ルールの 適用 
に 関連 付けし、 この 識別子 を 元の 変数 名に 接続す る ことで、 ユニークな 変数 名 
を 生成し ます。 例えば、 もし ルール 適用 識別子が 7 なら、 ルール 内の 各? x を？ x- 
7  (こ、 各？ y を？ y  —  7  (こ 変更す るで し よ う。 (make — new — variable と new-rule- 
application-id  は Section  4.4.4 マの 構文 手続に 含まれます。 ） 

def  ine    (rename  -  variables -  in  rule  ) 
、丄 et    、  rule- apDli  cat  ion-id   (new-rule-apDlication-ia) ) ) 
(define    ( tree- walk  exp) 
( cond   ( ( var?   exp ) 

(make-new-variable 
exp  rule-applicat ion-id) ) 
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( (pair?  exp) 
( cons    (tree-walk   (car  exp)) 

(tree-walk   ( cdr  exp)))) 
( else  exp ) ) ) 
(tree-walk  rule))) 

ユニフィケーション アル ゴリ ズムは 手続と して 実装され、 入力と して 2 つの パ 
ターンと フレーム を 取り、 拡張され た フレーム か シンボル failed を 返します。 
ユニファイア は パターン マツ チヤ に似てい ますが、 対照的で ある ことが 異な リ 
ます 一つ まリ、 変数が 適合の 両 サイドに 存在す る ことが 許されます。 unify- 
match は 基本的に は pattern-match と 同じです 力5'、 （以下で "***" の マーク を 
付けた） 拡張 コードの 存在が 異な リ ます。 これ は 適合の 右側の オブジェ ク トが 
変数で ある 場合 を 扱います。 

^define    (unif v-match  pi p2 ェ rame) 

( cond   ( ( eq?  frame    1  failed )    1  failed) 
( ( equal?  pi p2)   frame ) 
( ( var?  pi) ( extend- if -poss ible  pi p2 
( ( var?  p2)    ( extend- if -poss ible  p2  pi 
((and   (pair?  pi)    (pair?  p2)) 
(unif y-match   ( cdr  pi ) 
(cdr  p2) 

(unif y-match  (car  pi ) 
(car  p2) 
frame ) ) ) 

(else    ' failed) ) ) 

ュニ フィケ一 ショ ン において は 一方 向 マッチング のよう に、 既存の 束縛に 一 
致す る 場合の み 提案され た フレームの 拡張 を 受け入れたいです。 手続 extend - 
if - possible は ユニフィケーション において 使用され、 パターン マッチに て 利 
用され る extend- if-consistent と 同じです が、 下記の プログラムで" が 
マークされ ている、 2 つの 特別な チェックが 異なります。 最初の ケースで は、 も 
し 適合 を 試す 変数が 未 束縛で あり、 かつ それに 対して 適合 させようと している 
値 それ 自体が （異なる） 変数で ある 場合に、 その 値が 束縛され ている か を 確認す 
る 必要が あります。 そしても しそうで あれば、 その 値 を 適合す る 必要が ありま 
す。 もし 適合の 両側が 共に 未 束縛で ある 場合、 それぞれ を 御 互いに 束縛し ます。 
2 つ 目の チェック は 変数 を、 変数 を 含む パターン に対して 束縛す る 試み を 
取り扱います。 そのような 状況 は 変数が 両方の パターン 内で 繰り返される 場合 


frame ) ) 
frame  J )      ；  一 * 
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に 常に 起こり 得ます。 例えば 2 つの パターン、 （？ x  ？ x) と （？ y  <?y を 含む 式 >) 
を、 ？ x と？ y の 両方が 未 束縛で ある 場合の フレーム 内に て ユニフィケーション 
を 行う 場合に ついて 考えて みて 下さい。 最初の？ x は？ y に対して 適合し、 ？ x か 
ら？ y への 束縛 を 作成し ます。 次に 同じ？ x が 与えられた？ y を 含む 式に 対して 適 
合されます。 ？ x は 既に？ y に対して 束縛され ている ため、 これ は 結果と して？ y 
を その 式に 対して 適合す る ことになります。 もし 私達が ユニファイア を 2 つの 
パターン を 同じに する パターン 変数に 対する 値の 集合 を 見つける ものと して 考 
えてい るなら、 これらの パターン は？ y が? y を 含む 式に 等しい ような？ y を 見 付 
ける 命令 を 暗示し ます。 そのような 方程式 を 解く 一般的な 手法 は 存在 しません 
ので、 私達 は そのような 束縛 を 却下し ます。 このような 場合が 述語 depends- 
on? により 認識され ます。 77 

一方で、 変数 を それ 自体へ 束縛す る 試み を 拒否した くはありません。 例と 
して、 （？ x  ？ x) と （？ y  ？ y) のュニ フィケ ーシ ヨンに ついて 考えて みましょう。 
二度目の？ x を？ y へ 束縛す る 試行 は？ y (？ x の 新しい 値） に対する ？ y (？ x に 格納 さ 


77 —  般的に、 ？ y を？ y を 含む 式に ユニフィケーション を 行う 場合に は、 方程式? y  = 
<expression  involving  ?y> の 不動 点 を 見つけられなければ な り ません。 偶に 解が 存在す 
る 式 を 構文 的に 形成す る ことが 可能です。 例えば、 ？y  =  (f  ？ y) は 不動 点 （f  (f  (f  ... 
))) を 持つ ように 見えます。 これ は 式 （f  ？ y) で 始め、 繰り返し？ y を （f  ？ y) で 置き換え 
る こと で 生成で きます。 残念ながら 全ての そのよう な 方程式が 意味の あ る 不動 点 を 持つ 
わけで はあり ません。 ここで 浮かび上がる 問題 は 数学で 無限級数 を 扱う 場合の 問題と 似 
ています。 例えば、 私達 は 2 が 方程式 j/= 1  +  J//2 の 解で ある こと を 知っています。 式 
1  +  J//2 で 始めて、 繰り返し y を 1+ リ /2 で 置き換え ていく と 以下の 様になり ます。 

2  =  y  =  l  +  -  =  l+-(l  +  -\  =  H  }--  =  .... 

リ  2  2  V       2 ノ  2  4 


これ は 以下の 式へ と 導きます。 

1 1 1 
2  =1+2  +  4  +  8+--- 
しかし、 も し 同じ 操作 を 式 j/  = l  +  2j /の 解が- 1 であると いう 結果から 始める と、 

-1 = y  = 1 +  2y  = 1 +  2(1 +  2y) = 1 +  2  +  %  = . . . , 
これ は 以下の 式へ と 導きます。 

一 1 =  1  +  2  +  4  +  8  +  .... 

これらの 2 つの 等式 を 導き出した 形式的な 操作 は 同一で あるに も 係らず、 最初の 結果 は 
無限級数 に関して 有効な 正しい 主張と なります が、 2 つ 目 はそう ではありません。 同様 
に、 私達の ユニフィケーションの 結果に 対して 無計画に 構文に 従い 構築され た 式 は エラ 
一へ と 繋る でしよう。 
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れた 値） に 適合し ます。 これ は unify- match の equal? 節に より 担当され ます。 


^define    (extend - if - possible   var  val frame ) 

(let    ( (binding   (binding- in- frame  var  frame ) ) ) 
( cond  (binding 

(unif y-match 
(binding- value  binding )   val  frame ) ) 
((var?  val)  ； 場 

(let    ( (binding   (binding- in- frame  val  frame))) 
( if  binding 

(unif y-mat ch 

var    (binding- value  binding )    frame ) 
(extend  var  val  frame ) ) ) ) 
(( depends - on?   val   var  frame )  ； *** 

■failed) 

(else    ( extend  var  val   frame ) ) ) ) ) 

depends-on? は パターン 変数の 値で あると 提案され た 式が その 変数に 依存す る 
か を 確認し ます。 これ は 現在の フレームと 比較して 行われなければ なり ません。 
式が テス ト 変数に 依存す る 値 を 既に 持つ 変数の 存在 を 含む かも しれない ためで 
す。 depends-on? の 構造 は 簡単な 再帰 木の 探索で あり、 この 中で 必要な 場合い 
つで も 変数の 値 を 置き換えます。 

def ine    (depends-on?   exp  var  frame ) 
( dei ine    (tree-walk  e) 
( cond   ( ( var?   e ) 

(if    (equal?   var  e ) 
true 

( let    ( (b   (binding- in- frame   e  frame ) ) ) 
(if  b 

(tree-walk    (binding- value  b) ) 
false)))) 

( (pair?  e) 
(or    (tree-walk   (car  e ) ) 

(tree-walk   ( cdr  e ) ) ) ) 
(else  false ) ) ) 
(tree-walk  exp)) 
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4.4.4.5 データべ一 スの 保守 

論理 プロ ダラ ミ ング 言語の 設計に おける 重要な 問題の 1 つ は、 与えられた 
パターンの 確認に おいてで きる 限り 少ない データベースの ェン ト リ が 検査され 
るよう に 物事 を 準備す る ことです。 私達の システム では、 全ての アサ ーシ ヨン 
を 1 つの 大きな ストリームに 格納す る ことに 加えて、 car が 静的な シンボルで 
ある 全ての アサ ーシ ヨン を その シンボルで 索引 付けられた テーブル 内の 分離 さ 
れたス ト リ ームに 格納し ます。 パターンに 適合す るか も しれない アサ ーシ ヨン 
を 取り出す ために は、 最初に パターンの car が 静的な シン ボルで あるか を 確認 
します。 もしそうならば、 （マツ チヤ を 用いて 確認す るた め） 同じ car を 持つ 全 
ての 格納され た アサ ーシ ヨン を 返します。 も し パターンの car が 静的な シンポ 
ル でない 場合に は、 格納され た アサ ーシ ヨン を 全て 返します。 より 賢い 方法で 
は フレーム 内の 情報 も 活用す るか、 パターンの car が 静的な シンボル でない 場 
合に も 最適化 を 行 うこと に 挑む こと がで きる でしよう。 私達 は 検索 作成の 基準 
(car を 用いる、 静的 シンボルの 場合の み を 扱う） を この プログラムの 中に 構築 
する こと を 避けました。 その代わり に 私達の 基準 を 具現す る 述語と セレクタ を 
呼び出します。 

(define   THE - ASSERTIONS  the-empty- stream) 
(. def ine    (fetch-assertions  pattern  frame  ) 
(. if    (use-index?  pattern ) 

( get- indexed- as sert ions  pattern ) 
(get-all-assertions))) 
(define    (get-all- as sert ions )    THE- ASSERTIONS ) 
(define    (get -indexed- as  sert  ions  pattern ) 

(get-stream    ( index - key - of   pattern )    'assertion -stream)) 

get-stream は テーブル 内の ス ト リ ームを 探し、 そこに 何にも 格納され ていな 
い 場合に は空ス ト リーム を 返します。 

(, def  ine   (get-stream  key l key2 ) 
(let    ((s    (get   keyl   key2) ) ) 
(if   s   s  the- empty- stream) ) ) 

ルール も 同様に ルールの 結論の car を 用いて 格納され ます。 しかし ルールの 結 
論 は 任意の パターン であるた め、 変数 を 含められる ことが アサ ーシ ヨンと は異 
な リ ま す。 car が 静的な シ ン ボルで ある パターン は 結論が 変数で 始 ま る ルール 
と、 結論が 同じ car を 持つ ルールに も 適合で きます。 従って、 car が 静的な シ 
ン ボルで ある パターンに 適合す るか も しれない ルール を 取り出す 場合、 結論が 
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変数で 始まる 全ての ルールと、 結論が その パターンと 同じ car を 持つ ルール を 
取り出します。 この 目的の ために、 結論が 変数で 始まる 全ての ルール を テープ 
ル 内の 分離され たス ト リームに、 シンボル？ で 索引 付けして 格納し ます。 

dei ine iHE-RULES  the-empty- stream ) 
( dei ine    (fetch-rules  pattern  frame ) 
に if    (use-index?  pattern ) 

( get- index ed- rule s  pattern ) 
(get-all- rules) ) ) 
(define    (get-all-rules)    THE - RULES) 
( dei ine    (get - indexed - rule s  pattern ) 
( stream-append 
(get-stream  、： Lndex - key - of   pattern)    1  rule-stream) 
(get-stream    '？  'rule-stream))) 

add - rule - or - assertion ！ は  query-driver-loop によ り 使用され アサ一 ショ ン 
と ルールと データベースに 追加し ます。 各 アイテム は 適切で あれば イン デック 
スに 格納され、 データベース 内の 全ての アサ一 シ ヨン、 または ルールの ス トリ 
—ムに 格納され ます。 

dei  ine    (add  -  rule  -  or  -  assertion!    assert  ion) 
v.  if    (rule?   assertion ) 

(add - rule ！  assertion) 
( add-as sert ion ！    assertion) ) ) 
( dei ine    ( add - as sert ion !  assertion) 

( store -as sert ion- in- index  assertion) 
(let    ((old-assertions   THE- ASSERTIONS ) ) 
(set ！    THE - ASSERTIONS 

( cons-stream  assertion  old-assertions) ) 

'ok)) 

( dei ine    (add - rule!    rule ) 

( store- rule-in- index  rule ) 
(let    ((old-rules   THE - RULES)) 

(set!    THE - RULES    ( cons-stream  rule   old-rules ) ) 

'ok)) 

実際に アサ ーシ ヨン、 または ルール を 格納す るた めに は、 索引 を 付けられ るか 
を 確認し ます。 もしそう であれば、 適切な ストリームに 格納し ます。 
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(define    (store-assert ion- in- index  assertion) 
(if    ( indexable?   assertion ) 

(let    ((key    ( index - key - of   assertion) ) ) 
(let  ((current-assertion-stream 

(get-stream  key    'assertion-stream) )) 
(put  key 

1  as sert ion- stream 
( cons-stream 
assertion 

cur rent -assertion-stre am  )))))) 
( dei ine    (store - rule - in - index  rule ) 
(let    (.  ^pattern    ( conclusion  rule))) 
(if      indexable?  pattern ) 

(let    ( (key   ( index - key "- of   pattern) ) ) 
( let    ((cur rent -rule-stream 

(get-stream  key  'rule-stream))) 
(put  key 

1  rule-stream 

( cons-stream  rule 

current-rule-stream))))))) 

以下の 手続 は データベースの ィ ンデ ックス （索引） が どのように 使用され かに 
ついて 定義し ます。 パターン （アサ ーシ ヨン、 または ルールの 結論） が 変数、 ま 
た は 静的な シ ン ボルで 始 まる 場合に テー ブル に 格納 されます。 

dei  ine  、： Lndexab 丄 er  pat  ； 
(or   ( constant 一 symbol?    (car  pat ) ； 
( var?    (car  pat ) ) ) ) 

パターン がその 下に 格納され る テーブル 内の キー は （変数で 始まる 場合 に は)？、 
または パター ンの 始めの 静的な シ ン ボルです。 

dei  ine    、 index - key - of  pat ) 
(let    、 (kev に car  pat ) ) ; 

(if    (var?  key)    1 ？  key))) 

インデックス は パターン が 静的な シ ン ボルで 始 ま る 場合、 パターンに マッチす 
るか も しれない アイテム を 取得す るた めに 利用され ます。 

dei  ine    ^use-index  r  pat  ；      const  ant  -  svmbol?     car  pat ) ) ; 
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Exercise  4.70: 手続 add-assertion! と add-rule! 内の let の 束 

縛の 目的 は 何 か？ 以下の add-assertion! の 実装の 誤り は 何 か？ ヒ 
ン ト ： Section  3.5.2 における 1 の 無限 ス ト リ 一ムの 定義 を 思い出 
せ ： (define  ones  (cons-stream 1 ones; ) 

^define    (add - assertion !  assertion) 

( st ore -assert ion- in- index  assertion) 
(set ！    THE - ASSERTIONS 

(cons-stream  assertion  THE - ASSERTIONS  " 

•ok) 


4.4.4.6 ス ト リーム 命令 

ク エリ システム は Chapter  3 に は 存在し なかった いくつかの ス ト リ 一ム 命令 
を 用います。 

stream - append - delayed と inter 丄 eave - delayed は stream-append と 

interleave(Section  3.5.3) と 同じです 力 人 それら カミ (Section  3.5.4 の integral 
の 様に） 遅延 化された 引数 を 取る ことが 異な リ ます。 これ はいくつ かの 場合に 
おいて ループ を 先送り します。 （Exercise  4.71 参照） 

dei ine    (  stream-append- delayed   si   delaved  -  s2) 
、if    ( stream -null?  si) 
(force   delayed - s2) 
( cons-stream 
( stream-car   si ) 
( st ream -append -delayed 
( stream-cdr  si) 
delayed - s2)))) 
( dei ine    ( interleave - delayed  si  delayed - s2) 
(if    ( stream-null?  si) 
(force   delayed - s2) 
( cons-stream 
( stream-car  si) 
、 interleave - delayed 
(force   delayed-s2 ) 
(delay   ( stream-cdr  si)))))) 
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stream-flatmap はク エリ 評価 機 を 通して 使用され 手続 を フレームの ス トリ一 
ム上 に対して map し、 結果と しての 複数の フレームの ス ト リ 一ムを 接続し 
ます。 stream-flatmap は Section  2. 2. 3 にて 通常の リス ト のために 導入され た 
flatmap 手続の ス ト リ 一ム 向け 類似品です。 しかし 通常の flatmap と 異な リ、 
単純に ス ト リーム を append していく ので はなく、 相互 配置 処理に より 蓄積し 
ます。 (Exercise  4.72 と Exercise  4.73 参照;） 

dei ine    (stream-flatmap  proc   s  ； 
(flatten- stream    ( stream-map  proc  s ) ) ) 

( dei ine    (flat ten-stream   stream ) 
、if    ( stream-null?  stream) 
the-empty- stream 
(interleave - delayed 
( stream-car   stream ) 

( delay    (flatten- stream    ( stream- cdr  stream)))))) 

評価 機 はまた 以下の 単純な 手続 を 用いて 単一 要素から 成る ス ト リーム を 生成し 
ます。 

V dei ine    ( s ing 丄 eton - stream  x) 

( cons-stream  x  the - empty - stream) ) 


4.4.4.7 ク エリ 構文 手続 

qeval(Section  4.4.4.2) によ リ 用いられる type と contents は、 特殊 形式 
がその car に 存在す る シンボル により 判別され る こと を 指示し ます。 これら 
は Section  2. 4.2 の type-tag と contents 手続と 同じです 力 《、 エラーメッセージ 
が 異なり ます。 

def ine    ( tvce   exu  ) 
^ if    (pair?  exp) 
(car  exp) 

(error   "Unknown  expression  TYPE "  exp))) 
( def  ine    ( contents  exp) 
v.  if    (pair?  exp) 
(cdr  exp) 

(error   "Unknown  expression  CONTENTS "  exp))) 
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以下の 手続 は Section  4.4.4.1 の query-driver-loop にて 使用され ます。 これ は 
ルールと アサ一 シ ヨンが 'データベースに （assert!   <rule-or-assertion>) の 

形式の 式に より 追加され る こと を 指示し ます。 

dei ine    (assertion-to-be- added  r  exp) 


( dei ine    ( add-as sert ion-body  exp)    (car   ( contents  exp))) 

以下 は 特殊 形式 and,  or,  not,  lisp- value のた めの 構文 定義です。 （Section 
4.4.4.2) 

dei  ine  (emDtv- corn  unction?   exps  )    (null?   exps  ノ) 

( dei ine  (first-conj unct   exps )    (car  exps)) 

( dei ine  (rest-con juncts   exps )    ( cdr  exps)) 

( dei ine  ( empty-di s junction?   exps )    (null?  exps)) 

( dei ine  (f  ir st-dis j  unct   exps )    (car  exps)) 

( dei ine  (rest-dis juncts   exps )    (cdr  exps)) 

( dei me  (negated- query  exps )    ( car  exps)) 

( dei ine  (predicate   exps )    (car  exps)) 

( dei ine  ( args   exps )    (cdr  exps)) 

以下の 3 つの 手続 は ルールの 構文 を 定義し ます。 

dei  ine    (rule?   statement ) 

(tagged-list?   statement  'rule)) 

( dei ine    ( conclusion  rule )  ( cadr  rule)) 
( dei ine    (rule-body  rule ) 

、if    (null?    ( cddr  rule ) )  r ( always-true )    ( caddr  rule))) 

q"aery-driver-loop(Section  4.4.4.1) は query-syntax-process を 呼び、？ symbol 
の 形態 を 持つ 式の パターン 変数 を 内部 形式 （？  symbol) に 変形し ます。 これ は 
言って みれば、 （job  ？ x  ？ y) のよう な パターンが 実際に は 内部的に システムに 
ょリ （job  (？  x)  (？  y)) と 表現され ている という ことです。 これによ リク ェ 
リ 処理の 効率が 良くな リ ます。 システムが 式が パターン 変数で あるか を 確認す 
るのに シンボルから 文字 を 抽出す る 必要が 無しに、 式の car が シンボル？ であ 
る か ど うか を 確認す る ことにより 確認で きる こと を 意味す る ためです。 構文 変 
形 は 以下の 手続に より 達成され ます。 78 


78 多くの Lisp システム は 通常の read 手続 を reader  macro  characters^ リ一 タマ クロ キ 
ャラ クタ） を 定義す る ことによ リ 変更し、 そのような 変形 を 実行させる 能力 を ユーザに に 
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(define    ( query- syntax-proce s  s  exp) 

( map -over- symbol s   expand - question - mark  exp) ) 
( dei ine    (map-over- symbols  proc   exp ) 
( cond   ( (pair?  exp) 

( cons    (map- over- symbols  proc    (car  exp)) 

(map- over- symbols  proc    ( cdr  exp)))) 
( ( symbol?   exp)    (proc   exp) ) 
(else  exp ) ) ) 
( dei ine    ( exp and- quest  ion -mark   symbol ) 
(let    "chars    ( symbol ->st  ring  symbol))) 

(if    ( str ing=?    ( substring   chars   0 1) " ? " ) 
(list  '？ 

( str ing->  symbol 
( substring   chars 1 ( string- length  chars)))) 
symbol ) ) ) 

一旦、 変数が このように 変形 されれば、 パターン 内の 変数 は？ で 始まる リストで 

あり、 静的な シンボル （データベースの 索引 付けの ために 必要、 Section  4.4.4.5) 
はた だの シンボルです。 

dei  ine    (  var?   exp  )    ( tagged-li st?   exp    '？) ) 
( dei ine    ( const ant- symbol?   exp)    ( symbol?  exp)) 

他と は 異なる 変数が ルールの 適用の 間に 以下の 手続 を 用いて 構築され ます 

(Section  4.4.4.4)。 ルール 適用の ための 独自 識別子 は 数値で あり、 ルールが 適用 
される 度に ィ ンク リメ ント されます。 

dei  ine   rule-counter  0) 
V  dei me    (new - rule - application - id) 

(set!    rule-counter    (+ 1 rule -counter ) ) 
rule-counter) 

( dei ine    (make - new - variable  var  rule -application-id) 
( cons    '？    ( cons   rule- application-id   (cdr  var)))) 

与えて います。 クオート された 式 は 既に このような 取り扱われ ています。 リーダー は 評 
価 機が 式 を 見る 前に 自動的に' expression を （quote  expression) に 変形し ます。 私達 
は 同様に？ expression が （？  expression) に 変形され るよう に 準備す る こと も 可能で し 
た。 しかし、 明快 さの ために、 私達 はこ こに 明示的に 変形 手続 を 含めました。 

exDand-quest  ion-mark と contract-auest  ion-mark は 名目'」 に string を 持つ レヽヽ つ 
かの 手続 を 使用し ます。 これら は Scheme の プリ ミ ティ ブ です。 
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query-driver-loop が 回答 を 表示す るた めに ク エリ を インスタンス 化する 時、 
全ての 未 束縛の パターン 変数 を 表示に 適した 形式に 以下 を 用いて 戻します。 

def ine    (  contract-quest  ion-mark  variab 丄 e  ノ 
( string->  symbol 
( string -append   " ？ " 

、if    (number?    ( cadr  variable ) ) 

( string-append   ( symbol- > string   ( caddr  variable ) ) 

( number- > string   ( cadr  variable ) ) ) 
( symbol - > string   ( cadr  variable )))))) 

4.4.4.8 フレームと 束縛 

フレーム は 変数と 値の ペアで ある 束縛の リストと して 表現され ます。 

^define  (make -binding  variable   va 丄 ue) 

( cons  variable  value ) ) 

(define  (binding- variable  binding)    (car  binding ) ) 

(define  (binding- value  binding )    ( cdr  binding ) ) 

(define  (binding - in - frame   variable   frame ) 

( assoc   variable   frame ) ) 

(define  ( extend  variable   value  frame ) 

( cons  (make -binding  variable   value )    frame ) ) 

Exercise  4./1: 

Louis  Reasoner  (ま なぜ simple-query と disjoin の 手続 (Section 
4.4.4.2) は 以下の よ う な 定義で はな く  、 明示的な delay 命令 を 用い 
て 実装され たの か 不思議だった。 

(define     simple -query  query -pat  tern  irame-stream) 
(stream-flat map 
( lambda   (frame ) 
( stream-append 
( f ind- assert ions   query-pattern  frame ) 
(apply - rules   query-pattern  frame ) ) ) 
frame-stream)) 
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(define    (disjoin  di s junct s  frame-stream) 
(if    (empty-disjunction?   disjunct s ) 
the - empty - stream 
( interleave 
(qeval ( i lr s t-di s j unc t   disjunct s ) 

frame-stream) 
(disjoin   (rest-dis junct s   disjunct s ) 
frame-stream)))) 

あなた は これらのより 簡単な 定義 を 望まない 振舞いへ と 導く クェ 
リの例 を 与える こと がで き る か？ 

Exercise  4.72: なせ disjoin と stream-f  latmap は 単純に それら を 

append せずに 相互 配置す るの か？ なぜ 相互 配置の ほうがよ リ 良 
く 働く のか を 説明す る 例 を 与えよ。 （ヒント ： なぜ 私達 は Section 
3.5. 3 において interleave を 使用した のか？） 

Exercise  4.73: なぜ； flatten— stream  (ま 明示 fl 勺 (こ delay を 用レヽ るの 

か？ 以下の ように 定義した 場合に 何が 間違って いるの か？ 

^define    (flat ten-stream   stream ； 
、if    ( stream- null?  stream) 
the - empty - stream 
( interleave 
(stream -car   stream ) 

(flatten- stream   ( stream-cdr   stream) ) ) ) ) 

Exercise  4.74:  Alyssa  P.  Hacker はよ リ 簡単な 版の stream— flatmap 
negate,  lisp-value,  find-assertions の 中で 使用す" £) しと を 
提案した。 彼女 は フレームの ス ト リーム 上に map される 手続 はこ 
れらの 場合に おいて 常に 空ス ト リーム か、 単一 要素の ス ト リーム 
を 生成す る。 そのため これらの ストリーム を 接続す る 場合、 相互 
配置す る 必要が 無い と 気付いた。 

a  Alyssa の プログラムに 欠けて いる 式 を 埋めよ。 

f,def ine    v  simple - stream -ェ丄 atmap  proc   s ) 

( simple- flatten    ( stream-map  proc   s ) ) ) 
(define    (simple-flatten  stream) 
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( stream-map  {??) 

(stream-filter  {??)   stream) ) ) 


b ク エリ システムの 振舞 はこの ように 変更した 場合に 変化す る 
だろう か？ 

Exercise  4.75: ク エリ 言語に 対して 新しい 特殊 形式 unique を 実装 
せよ。 unique は 正確に データベース 内の 1 つの 項目が 指定され た 
ク エリ を 満たす 場合に 成功し なければ ならない。 例えば、 

^unique    (job  7x   ( computer  wizard ) ) ) 

上の 式 は i つの 項目の ス ト リーム を 表示し なければ ならない。 

I,  unique    (job    (Bitdiddle   Ben)    ( computer  wizard  ；)) 
Ben はた だ 1 人の コンピュータ ウイ ザ一 ド であるた めで ある。 次に、 
(.unique    (job   7x   (  computer  programmer ) ) ； 

上 は空ス ト リーム を 表示し なければ ならない。 複数の コンビ ユー 
タ プログラマが 存在す るた めで ある。 さらに、 

v. and   、job    rx  7 j  ；      unique    、job   ？ anvone   7 j  ; ) ) 

上 はた だ i 人に ょリ 埋められた 役職と その 人達 を 全て 表示し なけ 
れ ばなら ない。 

unique を 実装す るに は 2 つの 部分が 存在す る。 1 つ 目 はこの 特 
殊 形式 を 扱う 手続 を 書く ことで あり、 2 つ 目 は qeval に その 手続 
を 呼 出させる ことで ある。 2 つ 目の 部分 は 自明 だ。 qeval は その 
呼 出 を データ 適 従の 方法に 従うた めで ある。 もし あなたの 手続が 
uniquely-asserted という 名前であるなら、 やらなければ いけな 
いこと は 以下で ある。 

、put    1  unique    'aeva 上 uniquely - asserted) 

こ れで qeval は 型 （car) がシ ン ボル unique である 全ての ク エリに 

対して この 手続 を 呼び出す。 

真の 問題 は 手続 uniquely-asserted を 書く ことで ある。 これ は 入 
力と して unique ク エリの contents(cdr) を フレームの スト リー 
ム と共に 受け取る。 ストリームの 各 フレームに 対し、 qeval を 用い 
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て 与えられた ク エリ を 満たす フレームの 全ての 拡張の ス ト リーム 
を 見つけなければ ならない。 正確に 1 つの アイテム のみ を 持た な 
ぃス ト リーム は 全て 取り除かれなければ ならない。 残った ス ト リ 

ームは unique ク エリ の 結果で ある 1 つの 巨大な ス ト リ ームに 蓄積 
する ために 戻されなければ ならない。 これ は 特殊 形式 not の 実装 
に似てい る。 

あなたの 実装 を 正確に 1 人 だけ を 監督す る 全ての 人々 を 並べる ク 
エリ を 形成す る ことにより テス ト せよ。 

Exercise  4.76: 一連の ク ェ リ の 結合 としての and の 実装 （Figure 
4.5) は 洗練され ている が 非 効率 だ。 and の 2 つ 目の ク エリの 処理に 
おいて 最初の ク エリ により 生成され た 各 フレーム に対して データ 
ベース を 走査し なければ ならない ためで ある。 もし データベース 
が n 個の 要素 を 持ち、 典型的な ク エリ が n に 比例した 数 （仮に n/fc 
個） の 出力 フレーム を 生成す る 場合、 最初の ク エリ により 生成され 
た各フ レームに 対する データベースの 走査 は n2/fc の パターン マツ 
チヤの 呼 出 を 必要と する。 別の 取リ 組み方と して は and の 2 つの 
節 を 分離して 処理し、 矛盾の ない 出力 フレームの 全ての ペア を 探 
す ことになるだろう。 もし 各ク エリ が n/fc 個の 出力 フレーム を 生 
成す るなら、 これ は ri2/fc2 回の 無 矛盾 テスト を 実行し なければ な 
らな いこ と を 意味す る。 の 係数が 現在の 手法で 必要な 適合 数よ リ 
もより 少ない。 

この 戦略 を 用いる and の 実装 を 工夫せ よ。 入力と して 2 つの フレ 
ームを 取り、 両フ レームの 中の 束縛が 無 矛盾で ある こと を 確認し 
なければ ならない。 も しそうであるなら 束縛の 2 つの 集合 を マー 
ジ する フレーム を 生成す る。 この 操作 は ユニフィケーションに 似 
ている。 

Exercise  4.77:  Section  4.4.3 にお レヽて not と lisp-value 力 《ク エリ 

言語に 対 しもし これらの フィルタ リン グ 命令が 変数が 束縛され て 
いない フレームに 適用され た 場合に "間違った" 回答 を 与える こと 
が ある こと を 学んだ。 この 欠陥 を 直す 方法 を 工夫せ よ。 1 つの 考え 
は フィルタリング を "遅延" の 様式で 実行す る こと だ。 フレームに 
"プロ ミ ス" を 追加す る ことで 十分な 変数が その 操作 を 可能に する 
場合に のみ それ を 果たす ようにす る。 フィルタ リ ングの 実行 は 全 
ての 他の 命令が 実行 を 終える まで 待つ ことができる。 しかし、 効 
率の ために 生成され る 中間 フレームの 数 を 削減で きる よう フィル 
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タ リ ン グ をで きる だ け 早 く 実行 したい。 

Exercise  4.78: ク エリ 言語 をス トリ ーム 処理で はな く 非 決定 性プ 

ログ ラムと して、 Section  4.3 の 評価 機 を 用いて 実装され るよう に 
再設 計せ よ。 この 取り組み 方に おいて は、 各ク エリ は （全ての 回答 
のス ト リームで はなく） 単一の 回答 を 生成し、 ユーザ は try-again 
を 入力す る ことで より 多くの 回答 を 見る ことができる。 この 節で 
構築 し た 仕組みの 多 く は 非 決定 性 探索 と バックトラック により 組 
込まれて いる ことに 気付かなければ ならない。 しかし、 新しい ク 
エリ 言語の 振舞に ここで 実装され たものから わずかな 違う ことに 
も 気付く だろう。 この 違い を 説明す る 例 を 見つける ことができる 
だろう か？ 

Exercise  4.79:  Section  4.1 で Lisp 評価 機 を 実装した 時に、 どのよ 
うに ロー  力 ル 環境 を 使用して 手続の パ ラ メタ 間の 名前 衝突 を 防 ぐ 
かにつ いて 学んだ。 例えば 以下 を 評価す る 場合に おいて、 

(, def ine    (  square  x)    (*  x  x ; ) 
(define    (sum- of -squares  x  y ) 
(+   ( square  x)    ( square  y ) ) ) 
( sum- of -squares   3  4) 

square の x と sum-of— squares の x の 間に 混 舌し は 無い。 'よせ' な ら 
各 手続の ボディ を ローカル 変数の ための 束縛 を 含める ために 特別 
に 構築した 環境の 中で 評価す るからで ある。 ク エリ システム では 
ルール 適用に おける 名前 衝突 を 避ける ために 異なる 戦略 を 用いた。 
ルール を 適用す る 度に 変数 名 を 唯一で ある こと を 保証され た 新し 
い 名前に 変えて いる。 Lisp 評価 機に 対する 同様の 戦略 は ローカル 
な 環境 を 排除し、 手続 を 適用す る 度に 手続の ボディの 中の 変数 を 
改名す る ことになるだろう。 

ク エリ 言語に 対して 改名で なく、 環境 を 用いる ルール 適用 手法 を 
実装せ よ。 あな たの 環境 構造 上 に 巨大 システム を取リ 扱うた めに、 
ク エリ 言語 内に ブロック 構造 化された 手続に 同等な ルールの よう 
な 構成 概念 を 作る ために 構築で き る か 確かめよ。 こ れの何 か を 文 
脈 中での 推論 を 行う 問題に、 問題解決の 手段と して 関連 付ける こ 
と はでき るだろう 力、？ （例えば "もし P が 真で あると するならば、 
A と B を 推論す る ことができる")。 

(この 問題に は 明確な 回答 や ルール は 存在し ない。 良い 回答 は 恐ら 
く 博士号の 価値が あるだろう。 ） 
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5 


レジスタ マシンに よる 演算 


私の 目 的 は 天の 機械 は 神 か ら の 授か リ 物 や 生き物で はな く 、 時計 
仕掛の よ う な 物で ある こと を 示す こと です。 （そして 時計が 魂 を 持 
つと 信ずる 人 は その 理由 を その 仕事に 対する メーカーの 栄光に 帰 
する でしよう。） それ は ほとんど 全ての 多様な 運動が 最も 単純な 物 
質の 力に より 引き起こされる とする 限り において、 時計の 全ての 
動作が 1 つの 錘に ょリ 引き起こされ るのと 全く 同じように。 

― Johannes  Kepler  (Herwart  von  riohenburg への キ ボほ, 160o ) 

私達 はこの 本 を プロセス を 学ぶ ことと、 プロセス を Lisp で 書かれた 手続 を 用い 
て 説明す る ことにより 始めました。 これらの 手続の 意味 を 説明す るた めに、 い 
くつ かの 評価 モデル を 用いました。 Chapter 1 の 置換 モデル、 Chapter  3 の 環境 
モデル、 Chapter  4 の メタ 循環 評価 機です。 私達の メタ 循環 評価 機の 調査 は 特に 
Lisp のよう な 言語が どのよ う に 解釈され るの かにつ いての 謎の 大部分 を 氷解 さ 
せました。 しかし メタ 循環 評価 機です ら も 重要な 疑問 を 未知の 状態に 残 します。 
Lisp システム 中の 制御の 仕組み は 明らかにしない ためです。 例えば、 この 評価 
機 は 部分 式の 評価が この 式の 値 を 用いる 式に どのように その 値 を 返す のかに つ 
いて 説明し ません。 また この 評価 機 は、 ある 再帰 関数が 反復 プロセス （つまり、 
定量 的な 記憶 域で 評価され る もの） を 生成す るのに 対し、 一方で 他の 再帰 関数 
が 再帰 プロ セ ス を 生成す る こと もまた 説明し ません。 これら の 疑問 は 未解決の 
ままです。 なぜなら メタ 循環 評価 機 は それ 自身が Lisp プログラム であり、 それ 
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故に 根底に 存在す る Lisp システムの 制御 構造 を 引き継ぐ ためです。 よ り 完全 
な Lisp 評価 機の 制御 構造の 説明 を 与える ために は、 Lisp それ 自身よ リ もよ リ 
プリ ミ ティ ブな レベルに ついて 取り組まねば なり ません。 

この 章で は プロセス を 旧来の 計算機の 個々 の 操作 を 用いて 説明し ます。 そ 
のよう な 計算機、 つまり register  machine( レジスタ マシ ン） は registers に レ ジス 
タ） と 呼ばれる 固定長の 記憶 要素の 集合の 中身 を 操作す る insfracfions (命令） を 
順に 実行し ます。 典型的な レジスタ マシンの 命令 は プリ ミ ティブな 操作 をい く 
つかの レ ジス タの 中身に 対して 適用し、 その 結果 を 他の レ ジス タに 割り当て ま 
す。 レジスタ マシンに より 実行され る プロセスの 私達の 説明 は 伝統的な 計算機 
向けの" 機械語" に とても 良く 似て いるでしょう。 し 力、 し、 何ら かの 特定の 計算 
機の 機械語に 注 力す る 代わりに、 私達 はいくつ かの Lisp 手続 を 調査し、 各 手続 
を 実行す る ための 特定の レジスタ マシン を 設計し ます。 従って 私達 はこの 目的 
に 機械語の コンピュータ プログラマ ではなく、 ハードウェア ァーキ テク トの視 
点から 取り組みます。 レジスタ マシンの 設計に おいて、 私達 は 再帰の ような 重 
要な プログラミング 構造 を 実装す るた めの 仕組み を 開発し ます。 また レジスタ 
マシンの 設計 を 記述す るた めの 言語 も 与えます。 Section  5 .2 では これらの 記述 
を 用いて 設計した マシン を シミュレート する Lisp プログラム を 実装し ま す。 

私達の レジスタ マシンの プリ ミ ティ ブな 命令の 多 く はとても 簡単です。 例 
えば ある 命令 は 2 つの レジスタから 取得した 数値 を 足し、 結果 を 生成して 3 つ 
目の レジスタに 格納し ます。 そのような 命令 は 簡単に 記述され た ハー ドウ エア 
により 実行され る ことができます。 しかし、 リスト 構造 を 取り扱う ために はメ 
モ リ 操作 命令 car,  cdr,  cons もまた 使用 します。 これ は 複雑な ス ト レー ジ （記 
憶 領域） 獲得の 仕組み を 必要と します。 Section  5.3 でよ リ 初歩 的な 命令 を 用い 
ての それらの 実装に ついて 学びます。 

Section  5.4 では レジスタ マシンに よる 簡単な 手続の 形式 化に ついての 経験 
を 貯めた 後に、 Section  4.1 のメ タ 循環 評価 機に ょリ 説明され た アル ゴリ ズムを 
実行す る マシン を 設計 します。 こ れが Scheme が どの よ う に 解釈 さ れる のかに 
ついての 私達の 理解の ギヤ ッ プを、 評価 機の 制御の 仕組みに 対する 明確な モデ 
ルを 与える ことにより、 埋める ことでしょう。 Section  5.5 では Scheme プ ログ 
ラム を 評価 機の レジスタ マシンの レジスタと 命令 を 用いて 直接 実行可能な 一連 
の 命令に 変換す る 簡単な コ ン パイ ラ について 学びます。 
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5.1 レジスタ マシンの 設計 

レジスタ マシン を 設計す るた めに は、 その data  pai/is (データ パス） （レジス 
タと 命令） と これらの 命令 を 順序 付ける coniroZfer (コン 卜 ローラ） を 設計す る必 
要が あります。 簡単な レジスタ マシンの 設計 を 説明す るた めに、 2 つの 整数の 
最大公約数 （GCD) を 求める ために 使用した ユー ク リツ ドの アルゴリズム を 検討 
しましょう。 Section  1.2.5 で 学んだ ように、 ユークリッドの アルゴリズム は 反 
復 プロセス にて 以下の 手続に て 指定され るよう に 実行され る ことができます。 

(, def ine    (gcd  a  b) 
(if    (=  b  0) 
a 

(gcd  b   (remainder  a  b) ) ) ) 

この アルゴリズム を 実行す る 機械 は 2 つの 数値、 a と b を 追跡し なけれ ぱいけ 
ません。 そうする ことで これらの 数値が それらの 名前と 共に 2 つの レジスタに 
格納され る ことが 推測で きます。 必要と される 基本的な 命令 は レジスタ b の 値 
が 0 であるか どうか を 確認し、 レジスタ a の 中身 を レジスタ b の 中身で 割った 
余り を 求めます。 剰余の 命令 は 複雑な 処理です が、 当座 は 剰余 を 求める プリ ミ 
ティ ブな 手法が 存在す ると 仮定し ます。 GCD アルゴリズムの 各 サイクル におい 
て、 レジスタ a の 中身 は レジスタ b の 中身で 置き換えられ、 レジスタ b の 中身 
は a の 古い 中身 を b の 古い 中身で 割った 場合の 余りで 置き換えられなければ 
なりません。 もし これらの 置換が 同時に 行われれば 便利でしょう。 しかし 私達 
の レジスタ マシンの モデルで はた だ 1 つの レジスタ のみが 各 ステップで 新しい 
値 を 割り当てられる ことができます。 置換 を 達成す るた めに は、 私達の 機械 は 
3 つ 目の" temporary" (—時的な） レジスタ を 使用し ます。 これ を t と 呼びます。 
(最初に 剰余 は t に 置かれます。 次に b の 中身が a に 置かれます。 最後に もに 
格納され ている 剰余が b に 置かれます。 ) 

この 機械の レジスタと 命令 を Figure  5.1 に 示される データ パス 図 を 用いて 
説明す る ことができます。 この 図で は、 レジスタ （a,  b,t) は 長方形で 表現され 
ます。 値 を レジスタに 割り当てる 方向 は X が 頭の 後ろに ぁリ、 データの 元から 
レジスタ を 指す 矢印に より 示されます。 X は 押された 時に 元の 値が 指定され た 
レジスタに" flow" する （流れる） ボタン だと 考える ことができます。 各 ボタン 
の 横に ある ラベル は その ボタン を 参照す るのに 使われる 名前です。 この 名前 は 
自由で、 かつ 記憶 を 助ける 値 を 持つ こと を 選択す る ことができます。 （例えば、 
a<-b は ボタン を 押す と レジスタ b の 中身 を a に 割り当てる こと を 意味し ます)。 
レジスタ に対する データ 元は 別の レジスタ である こと も 可能で （a く- b の 代入の 
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Figure  5.1: gcd マシンの データ パス 


ように)、 また （t く-： T の 代入の ように） 命令の 結果 や、 定数 （変更で きない 組 込 
の 値、 データ パス 図で は 定数 を 持つ 三角形で 表現され る） にもな り 得ます。 

定数と レジスタの 中身から 値 を 求める 命令 は データ パス 図で は 命令に 対す 

る 名前 を 持つ 台形に ょリ 表現され ます。 例えば Figure  5.1 で！ ■em と 印され た 箱 
は それに 取り付けられた レジスタ a と b の 中身の 剰余 を 求める 命令 を 表し ま 
す。 ボタンの 無い 矢印 は 入力 レジスタと 定数から 箱へ と 指し、 別の 矢印 は 命令 
の 出力 値から レジスタ へと 接続して います。 テスト は その テスト を 表す 名前 を 
持つ 円で 表現され ます。 例えば、 私達の GCD マシン は レジスタ b の 中身が ゼロ 
であるか を テス ト する 命令 を 持ちます。 テスト はまた その 入力 レジスタと 定数 
からの 矢印 を 持ちます。 しかし 出力の 矢印 を 持ちません。 その 値 は データ パス 
でな く コントローラに ょリ 使用され ます。 全体として は、 データ パス 図 は 機械 
にと つて 必要と される レジスタと 命令と、 それらが どのように 接続され るべき 
か を 示して います。 もし 私達が 矢印 を 配線に、 X ボタン を スィッチ だと 見れば、 
データ パス 図 は 電子 部品から 構築す る こと がで き る 機械の 配線図 に とても 似て 
います。 

データ パスに 対し 実際に GCD を 求める ために は、 複数の ボタンが 正しい 順 
序で 押される 必要が あ リ ます。 私達 はこの 順序 を Figure  5.2 で 図示され る コ ン 
トロー ラ図を 用いて 説明し ます。 コントローラ 図の 要素 は データ パスの コンポ 
一 ネント が どのように 操作され るべき かで あるか を 示します。 コントローラ 図 
の 長方形の 箱 は 押 されるべき データ パスの ボタン を 判別 します。 そして 矢印 は 
ある ステップから 次への 順 を 示します。 図の 中の ひし 形 は 選択 を 表現し ます。 
ひし 形 内で 確認され た データ パスの テストの 値に 依存し、 2 つの 順路 矢印の 1 
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start 


Figure  5.2:  gcd マシンの コントローラ 


つに 従います。 私達 は コントローラ を 物質的な アナロジー を 用いて 解釈す る こ 
とがで きます。 この 図 を ビー玉が 転がって いる 迷路 だと 考える のです。 ビー玉 
が 箱に 転がり込んだ 時に、 箱に より 名付けられた データ パス ボタン を 押します。 
ビー玉が （b  =  0 の テストの よう な） 決断 点に 転がり込んだ 時には、 示された テ 
ストの 結果に より 決定され た 道に 乗り その 点 を去リ ます。 これら を もとに、 デ 

ータ パスと コントローラ は 完全に GCD を 求める ための 機械 を 説明し ます。 私達 
は コントローラ （転がる ビー玉） を start と 印 さ れた 地点 か ら、 レジスタ a と b 
に 数値 を 置いて から 開始し ます。 コントローラが done に迪リ 着いた 時、 GCD 
の 値 は レジスタ a の 中に 見つかり ます。 

Exercise  5.1: 以下の 手続で 指定され る 反復 アルゴリズム を 用いて 
階乗 を 求める レジスタ マシン を 設計せ よ。 この マシンに 対する デ 
ータ パスと コン ト ローラの 図 を 描け。 

(aefine   (iactorial n) 

に define    ( iter  product  counter) 
(. if    (>   counter  n) 
product 

( iter    ( *   counter  product ) 
(+   counter  1)))) 

(iter 1 1)) 
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5.1.1 レジスタ マシン を 記述す るた めの 言語 

データ パスと コントローラの 図 は GCD の 様な 簡単な 機械 を 表現す るに は 適 
切です。 しかし それら は Lisp インタプリタの ような 大きな 機械 を 記述す るに は 
扱いに くい 物です。 複雑な 機械 を 扱う こと を 可能に する ために、 私達 は テキス 
ト 形式で データ パスと コントローラの 図に ょリ 与えられる 全ての 情報 を 表現す 
る 言語 を 作成す る ことにします。 ま ず は 直接 図 を 写し 取る 表記法 か ら 始め ま す。 

機械の データ パス を レジスタと 命令 を 記述す る ことによ リ 定義し ます。 レ 
ジス タを 記述す るた めに、 それに 名前 を 与え、 それに 対する 代入 を コント ロー 
ル する ボタン を 指定し ます。 これらの ボタン 全てに 名前 を 与え、 ボタンの コン 
トロールの 下に レジスタに 入れられる データ の 代入 元 を 指定 します。 （代入 元 
は レジスタ、 定数、 または 命令です)。 命令 を 記述す るた めに、 それに 名前 を 与 
え、 その 入力 （レジスタ、 または 定数） を 指定し ます。 

機械の コントローラ を instructions ゆ 令） の 列と して、 その 列の entry 
points (ェン トリ ポ イン 卜、 入口） を 特定す る te&ds (ラベル） と共に 定義し ます。 

. レジスタに 値 を 割り当てる ために 押す データ パス ボタンの 名前。 （これ は 
コントローラ 図の 箱に 対応す る） 

•   test (テスト） 命令、 特定の テスト を 実行す る。 

• 直前の テス トの 結果に 基づく コントローラ ラベルに より 示された 地点へ 
の 条件 分岐 （branch 命令)。 （テス ト と 分岐 は 共に コントローラ 図の ひし 
形に 対応す る）。 もし テストが 偽で あれば、 コントローラ は 命令 列の 次の 
命令へ と 続ける。 そうでなければ、 コントローラ は ラベルの 次の 命令 か 
ら 続ける。 

• 無条件 分岐 （goto 命令） は 実行 を 続ける 地点に コントローラ ラベル を 名 
付ける 

機械 は コント ローラの 命令 列の 初め か ら 開始し、 列の 終わ リ に迪リ 付いた 時に 
実行 を 停止す る。 ただし 分岐が 制御の 流れ を 変更した 場合、 命令 は それが 並べ 
られた 順に 向かい 実行され る。 

rigure  5.J: 丄 A  specification  01  the  GCD  machine. 

( data-paths 
(registers 
( (name  a) 

(buttons    ( (name   a<-b )    (source    (register  b) ) ) ) ) 
( (name  b) 


531 


(buttons    ( (name  b<-t )    ( source 
( (name  t ) 
(buttons    ( (name   t<-r )    ( source 
(operations 
( (name   rem)    ( inputs    (register  ； 
( (name  =)    ( inputs    (register  b) 
( controller 
test - b 
(test  =) 

(branch    (label   gcd-done ) ) 

(t<-r) 

(a<-b) 

(b<-t) 

( goto    (label  test - b)) 
gcd-done ) 


(register  t ) ) ) ) ) 

( operation  rem. 

) (register  b) ) ) 
(constant   0) ) ) ) ) 


label 

test 

conditional  branch 
button  push 
button  push 
button  push 
unconditional  branch 
label 


Figure  5.3 はこの 方法で 記述され た GCD マシン を 示します。 この 例 は これらの 
記述の 一般性 を 暗示して いるに 過ぎません。 GCD マシン はとても 単純な 場合で 
あるから です。 各 レジスタ はたった 1 つの ボタンし か 持たず、 各 ボタンと テス 
トは コントローラ によりた だ 1 度し か 利用され ていません。 

残念な ことに、 このような 記述 を 読む こと は 難しい ことです。 コント 口一 
ラの 命令 を 理解す るた めに は、 常に ボタンの 名前と 命令の 名前の 定義に 戻らね 
ばな ら ず、 ま た ボ タ ン が 何 をす るの か 理解す るた めに は 命令の 名前の 定義 を 参 
照す る 必要が あるでしょう。 従って 私達 はこの 表記法 を 変形し、 データ パスと 
コントローラの 記述からの 情報 を 組み合わせる ことで 全て を 一緒に 見られる よ 
うにし ます。 

記述の この 形式 を 得る ために、 自由 裁量な ボタンと 命令の 名前 を それらの 
振舞の 定義に より 置き換えます。 つまり、 （コントローラの 中で)" ボタン t く- r 
を 押せ" と 言い、 別に （データ パスの 中で)" ボタン t く- r は rem 命令の 値 を レジ 
スタ t に 代入" と "rem 命令の 入力 は レジスタ a と b の 中身" と言う 代わり に、 
これから は （コ ン トロ一 ラの 中で)" レジスタ a と b の 中身 上での rem 命令の 値 
を レジスタ t に 代入す る ボタン を 押せ" と言う ことにします。 同様に、 （コント 
ローラの 中で ）"= テス ト を 実行せ よ，， と 言い、 別に （データ パスの 中で )"= テス 
トは レジスタ b の 中身と 定数 0 の 上で 動作す る" と言う 代わりに、 これから は 
"= テスト を レジスタ b の 中と 定数 0 の 上で 実行せ よ" と 言います。 データ パス 
の 記述 は 省略し、 コントローラの 命令 列の み を 残します。 従って、 GCD マシン 
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は 以下の よう に 記述され ます。 


に controller 
test - b 

(test    (op  =)    (reg り) ( const   0) ; 
(branch    (label  gcd-done ) ) 
(assign  t    (op  rem)    (reg  a)    (reg  b ) ) 
(assign  a   (reg  b ) ) 
(assign  b    (reg  t ) ) 
(goto    ( label  test-b ) ) 
gcd-done ) 

この 記述の 形式 は Figure  5.3 で 説明され たもの よ リ も 読み 易いで しょう。 しか 
し 同時に 欠点 も 持ちます。 

. 大きな 機械に 対して はより 冗長で ある。 データ パス 要素の 複雑な 記述が 
その 要素が コントローラ 命令 列 内で 触れられる 度に 繰り返される ため。 
(これ は GCD の 例で は 問題 にならない。 命令と ボ タンの それぞれ がた だ 1 
度し か 使用され ないた め)。 さらに、 データ パス 記述の 繰リ 返しが 実際の 
機械の データ パス 構造 を 分かりにく  くす る。 大きな 機械に とってい くつ 
の レジスタ、 命令、 ボタンが 存在し、 それらが どのように 相互 接続され 
ている のか は 自明で は 無い。 

• 機械の 定義 内の コントローラの 命令 は Lisp 式の 様に 見える ため、 それら 
が 自由 裁量な Lisp 式で はない こと を 簡単に 忘れて しまう。 それら は 正 
式な 機械の 命令の み を 記述で きる。 例えば、 命令 は 直接に は 定数と レジ 
スタの 中身の みに 対して 操作が で き る 。 他の 命令の 結果 に対して はで き 
ない。 

これらの 欠点に も 係らず、 私達 はこの レジスタ マシンの 言語 を この 章 を 通して 
使用し ます。 データ パスの 要素と 接続 を 理解す る ことよりも コントローラ を理 
解す る ことにより 関係して いくため です。 しかし、 私達 は データ パスの 設計 は 
実際の 機械の 設計に おいて、 とても 重要で ある こと を 肝に 命じて おかねば なり 
ません。 

Exercise  5.2: レジスタ マシン 言語 を 用いて Exercise  5.1 の 反復 階乗 
機械 を 記述せ よ。 
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(controller 
gcd-loop 

(assign  a  (op  read)) 
(assign  b  (op  read)) 
test - b 

(test  (op  =) 
(reg  b) 
(const  0)) 
(branch  (label  gcd-done)) 
(assign  t 

(op  rem) 
(reg  a) 
(reg  b)) 
(assign  a  (reg  b)) 
(assign  b  (reg  t)) 
(goto  (label  test - b》 
gcd-done 

(perform  (op  print) 

(reg  a)) 
(goto  (label  gcd-loop))) 


Figure  5.4: 入力 を 読み込み 結果 を 表示す る gcd マシン 


アクション 

GCD マシン を 変更して、 GCD が 欲しい 数値 を 入力し、 端末に 答が 表示され 
るよう にして みましょう。 私達 は 読み込み や 表示が できる 機械 を どのように 作 
るかに ついては 議論し ません。 しかし （私達が Scheme にて read と display を 
使う 時に 行うよう に） それらが プリ ミ ティブな 命令と して 既に 存在す ると 仮定 
します。 1 

read は 私達が 使用 してきた、 その 中で レジスタに 格納す る ことができる 値 
を 生成す る 命令の よ う な 物です。 しかし read は 入力 を どの レジスタから も 取 
得しません。 その 値 は 私達が 設計 している 機械の 外側の 部品で 起 こ る 何 か に 依 
存 しています。 私達 は 私達の 機械の 命令に そのよう は 振舞 を 持つ こと を 許し ま 
す。 従って read の 使用 を 描き、 記述す る こと を 他の 任意の 値 を 求める 命令と 

1 この 仮定 は 多量の 複雑さ を 言い繕って います。 通常、 Lisp システムの 実装の 大きな 
部分が 読み込みと 表示 を 可能に する ことに 関して ささげられ ています。 
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全く 同様に 行います。 

一方で、 print は 私達が 使用して きた 命令と は 基本的な 意味に おいて 異な 
ります。 これ は レジスタに 格納で きる 出力の 値 を 生成し ません。 この種の 命令 
は aC な on (アクション） として 参照す る ことにします。 データ パス 図で はァ クシ 
ヨン は 値 を 求める 命令と 同じように、 アクションの 名前 を 含む 台形と して 表現 
します。 矢印 は 任意の 入力 （レジスタ、 または 定数） から アクションの 箱へ と 指 
します。 また ボタン を アクションと 関連 付ける こと もします。 ボタン を 押す と 
アクションが 起こ り ます。 コントローラに アクション ボタン を 押させる ために、 
perform (パフ オーム、 実行） と 呼ばれる 新しい 種類の 命令 を 用います。 従って 
レジスタ a の 中身 を 表示す る アクション はコン ト ローラの 命令 列の 中で その 命 
令に よ リ 表現され ます。 

i.perf  orm   (on  print ) に reg  a) ) 

Figure  5.4 は 新しい GCD マシンの データ パス と コントローラ を 示して います。 
回答 を 表示した 後に マシン を ストップさせる 代わりに、 再開 させて います。 そ 
のた め 数値の ペア を 読み込み、 それらの GCD を 計算し、 結果 を 表示す る こと を 
繰リ 返します。 こ の 構造 は Chapter  4 の インタ プ リ タ にて 使用 した ドライ バル 
ープ に似てい ます。 

5.1.2 機械 設計に おける 抽象化 

私達 はこれ から 頻繁に、 実際に は 複雑な "プリ ミ ティ ブな" 命令 を 含む 機械 

を 定義し ます。 例えば Section  5.4 と Section  5.5 では Scheme の 環境の 操作 を プ 
リ ミ ティブと して 扱います。 そのような 抽象化 は それにより 機械の 部品の 詳細 
を 無視す る こと を 可能に し、 設計の 他の 側面に 集中す る こと を 可能に する ため 
有益です。 しかし、 私達が 数多くの 複雑さ を 敷物の 下に 隠して しまった 事実 は 
機械 設計が 非現実的 である こ と を 意味し ません。 私達 は 常に 複雑な "プリ ミテ 
ィ ブ" をより 簡単な プリ ミ ティ ブな 命令で 置き換える こ と がで きます。 

GCD マシンに ついて 考えます。 マシン は レジスタ a と b の 中身の 剰余 を 求 
める、 結果 を レジスタ t に 割り当てる 命令 を 持ちます。 もし GCD マシン をプ 
リミ ティブな 剰余 命令 を 使用す る こと 無しに 構築したい 場合、 より 単純な 命令、 
例えば 引き算 を 用いて どのように 剰余 を 求める のか を 指定し なければ なり ませ 
ん。 実際に、 この 方法で 剰余 を 見つける Scheme の 手続 を 描く ことができます。 

def ine    (remainder  n  d) 
v.  if    (<  n  d)   n   (remainder    (-  n  d)   d) ) ) 
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従って GCD マシンの データ パス 内の 剰余 命令 を 引き算 命令と 比較 テス トで 
置き換える ことができます。 Figure  5.5 は 緻密 化された マシンの データ パスと 
コントローラ を 示します。 GCD コントローラ 定義 内の 以下の 命令 は、 

に assign  t    Kop  rem)    (reg  a;    、reg  b ) ) 

Figure  5.6 に 示される ように、 ループ を 含む 一連の 命令に より 置き換える こと 
がで きます。 

Figure  5.6:  i  Figure  5.5 の GCD マシンの コン トロ一 ラの 命令 列 


1, controller  test - b 

(test    (op  =)    ( reg  b)    v  const  0)) 

(branch    ( label  gcd-done ) ) 

(assign  t    (reg  a) ) 
rem - loop 

(test    (op  <)    (reg  t)    (reg  b) ) 

(branch    ( label   rem - done)) 

(assign  t    (op  -）    (reg  t )    (reg  b) ) 

(goto    (label   rem - loop) ) 
rem-done 

(assign  a   (reg  b ) ) 

(assign  b    (reg  t ) ) 

(goto    (label  test - b)) 
gcd-done ) 

Exercise  5.3: 平方根 を 求める 機械 を Section  1.1. 7 で 説明され たよ 
う に ニュー ト ン法を 用いて 設計せ よ。 

dei ine     sqrt  x) 
(def ine    、 good-enough?   guess ; 

(<    ( abs    (-   ( square   guess )   x) )  0.001)) 
(def ine    ( improve   guess ) 

( average   guess    (/  x  guess))) 
(def ine    ( sqrt- iter  guess ) 
(if    (good- enough?   guess ) 
guess 

( sqrt-iter    ( improve  guess)))) 
( sqrt-iter  1.0)) 
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good-enough? と improve 命令 は プリ ミ ティブと して 存在す る と 
して 始めよ。 次に これら を 算術 演算子 を 用いて どのように 展開す 
るか 示せ。 sqrt マシン 設計の 各 版 を データ パス 図 を 描き、 レジス 
タマ シンの コントローラ 定義 を 記述す る ことで 説明せ よ。 

5.1.3 サ ブル一 チン 

演算 を 実行す る 機械 を 設計す る 時、 私達 は 良く コンポーネント を 複製す る 
ので はなく、 演算の 異なる 部品に よ リ 共有され る コンポーネント を 準備す る こ 

と を 好みます。 2 つの GCD 演算 を 含む 機械に ついえ 考えて みましょう。 1 つ は 
レジスタ a と b の 中身の GCD を 求め、 も う 1 つ は レジスタ c と d の GCD を 求 
めます。 私達 はまず プリ ミ ティブな gcd 命令 を 持つ と 仮定す る ことから 始め、 
次に 2 つの gcd の インスタンス をよ リ プリ ミ ティ ブな 命令 を 用いて 展開す るで 
しょう。 Figure  5.7 は 結果と しての 機械の データ パスの GCD の 部分 を、 それら 
が 機械の 残 リ の 部分 にどの ように 接続され ていか を 除いて 示して います。 この 
図 はまた 機械の コントローラ シーケンス （命令 列） の 対応す る 部分 も 示して い 
ます。 

この 機械 は 2 つの 剰余 命令の 箱と 2 つの 等値 テストの 箱 を 持って います。 
も し 複製され た コンポ ーネン トが 剰余の 箱の よう に 複雑な ら、 これ は 機械 を 構 
築す るのに 経済的な 方法で はあり ません。 私達 はよ リ 大きな 機械の 演算に 影響 
を 与えない ように 与えられた 場合に、 同じ コンポーネント を 両方の GCD 演算 
に 用いる ことで データ パス コンポーネントの 複製 を 防ぎます。 もし レジスタ a 
と b の 値が コ ン ト ローラが gcd-2 に 取り掛かつ ている 時に 必要 無い ので あれ 
ば （または もし これらの 値が 安全の ために 他の レジスタに 移動して おく ことが 
できる のなら ば)、 機械 を 変更し、 レジスタ c と d でな く、 レジスタ a と b を 
2 つ 目の GCD を 1 つ 目と 同じに 求める おおが できます。 もし これ を 行うなら、 
Figure  5.8 に 示される コントローラ シーケンス を 得ます。 
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gcd-1 

(test  (op  =)  (reg  b)  (const  0)) 
(branch  (label af ter-gcd-1 )) 
(assign  t  (op  rem)  (reg  a)  (reg  b)) 
(assign  a  (reg  b)) 
(assign  b  (reg  t)) 
(goto  (label  gcd-1)) 


gcd-2 

(test  (op  =)  (reg  d)  (const  0)) 
(branch  (label  after-gcd-2) ) 
(assign  s  (op  rem)  (reg  c)  (reg  d)) 
(assign  c  (reg  d) ) 
(assign  d  (reg  s) ) 
(goto  (label  gcd-2)) 
after-gcd-2 


af ter-gcd-1 


Figure  5.7:  2 つの gcd 演算 を 持つ 機械の データ パス とコン 

トロ一 ラ シーケンスの 一部 


Figure  5.8:  i  2 つの 異なる gcd 演算に 対して 同じ データ パスコ ン 

ポ一 ネント を 使用す る 機械の コントローラ シーケンスの 一部 


(test    v op  =)    (reg  b ；    k  const   0) ) 
(branch    (label   after - gcd - 1)) 
(assign  t    (op  rem)    ( reg  a)    (reg  b) ) 
(assign  a   (reg  b) ) 
(assign  b    (reg  t ) ) 
(goto    (label  gcd-1 ) ) 
af ter-gcd-1 

gcd-2 

(test    (op  =)    (reg  b)    ( const   0) ) 


gcd - 
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(branch    (label af ter-gcd-2 ) ) 
(assign  t    (op  rem)    ( reg  a)    (reg  b ) ) 
(assign  a   (reg  b ) ) 
(assign  b    (reg  t ) ) 
(goto    (label  gcd-2) ) 
af ter-gcd-2 

私達 は データ パス コンポーネントの 複製 を 削除し ました。 （そうする ことで デ 
—タ パス は Figure  5.1 の 状態に 戻りました)。 しかし コントローラ は 今では それ 
ら のェン ト リ ポィ ン 卜の ラベルの みが 異なる 2 つの GCD シーケンス を 持ち ま 
す。 これら 2 つの シーケンス を 1 つの シーケンス 一gcd  subroutine (サブ ル一チ 
ン) 一への 分岐に より 置き換え たほうが 良くなる でしよ う。 サブルーチンの 終 
わり に メインの 命令 列の 正しい 場所へ と 戻り ます。 これ を 次のように 達成す る 
ことができます。 gcd に 分岐す る 前に、 （0 か 1 のよう な） 識別す るた めの 値 を 
特別な レジスタ、 conti 皿 e に 置きます。 Figure  5.9 は 結果と しての コント 口一 
ラ シーケンスの 関連す る 部分 を 示して います。 これ はた だ 1 つの gcd 命令 列の 
コピー を 含みます。 

Figure  5.9:  |  Figure  5.8 でコン トロ一 ラ シーケンスの 重複 を 防ぐ た 
め continue レジスタ を 用いる 

gcd 

(test    (op  =)    (reg  b)    k  const   0) ) 
(branch    (label  gcd - done)) 
(assign  t    (op  rem)    ( reg  a)    (reg  b ) ) 
(assign  a   (reg  b ) ) 
(assign  b    (reg  t ) ) 
(goto    (label  gcd) ) 
gcd - done 

(test    (op  =)    (reg  continue)    (const   0) ) 
(branch    (label   af ter-gcd-1 ) ) 
(goto    (label   af ter-gcd-2) ) 

；; gcd を 必要と する 場所から その 場所へ と 分岐す る 前に 
；; レジスタ continue に 0 を 置く 
^assign   continue    ( const   0) ； 
、goto    (laoe 丄 gca)) 
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af ter-gcd- 


；; gcd の 二度目の 使用の 前に は レジスタ continue に 1 を 置く 

assign   continue    (  const 1) ； 
(goto    (label  gcd) ) 
af ter-gcd-2 

これ は 小さな 問題に 対応す るのに 妥当な 取 リ 組み方です。 しかし も し 数多 く の 

GCD 演算が コントローラ シーケンスの 中に ある 場合に は 困った ことにな りそう 
です。 GCD サブルーチンの 後に 実行 を どこで 続ける か を 決定す るた めに、 デー 
タ パス 内の テス ト とコン ト ローラ 内に 分岐 命令が GCD を 置く 全ての 場所に 対 
して 必要と なる でしよう。 サブルーチン を 実装す るた めの よ リ 強力な 手法 は、 
continue レジスタに サブルーチンが 終了した 時に 実行が 続行し なければ なら 
ない 場所の コン トロー ラ シーケンス 内の ェン ト リ ポイントの ラベル を 持たせる 
こ と です。 こ の 戦略の 実装に は レ ジス タマ シンの データ パスと コントローラの 
間に 新しい 種類の コネクションが 必要です。 ラベルの 値 を レジスタから 取得し 
指定され た エントリ ポイントから 実行 を 再開す るのに 使用で きる ような 方法の 
ため、 レジスタに コントローラ シーケンス 内の ラベル を 代入す るた めの 方法が 
必要です。 

この 能力 を 反映す るた めに、 レジスタ マシン 言語の assign 命令 を 拡張し、 
レジスタに 値と して ラベル をコン トロー ラ シーケンスから （特別な 種類の 中身 
として） 代入す る こと を 許可す る 拡張 を 行います。 また goto 命令に も 静的 ラ 
ベルに ょリ 記述され たェン ト リ ボイ ント のみでな く、 レジスタの 中に より 表 
された エントリ ポイントから 実行 を 続行す る こと を 許可す る 拡張 を 行います。 
これらの 新しい 構造 物 を 用いる ことで、 continue レジスタ 内に 格納され た 場 
所に 分岐す る ことにより、 gcd サブルーチン を 停止す る ことができます。 これ 
は Figure  5.10 に 示された コントローラ シーケンス へと 導きます。 

higure  5.10: ふ Assigning  labels  to  the  continue  register  simplifies 
and  generalizes  the  strategy  shown  in  Figure  5.9. 

gcd 

(test    (op  =)    (reg  b)    ( const   0) ) 
(branch    (label  gcd-done ) ) 
(assign  t    (op  rem)    ( reg  a)    (reg  b) ) 
(assign  a   (reg  b ) ) 
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(assign  b    (reg  t ) ) 
(goto    (label  gcd) ) 
gcd-done 
(goto    (reg  continue ) ) 

；; gcd を 呼ぶ 前に、 continue に gcd が 戻るべき ラベル を 代入し ま 
す 

I.  as  sign   continue    、上 abel   aiter-gcd- 1 ) ) 
(.goto   (label  gcd)) 
af ter-gcd- 1 

；; 異なる 継続 を 持つ 2 つ 目の gcd 呼 出 
(assign   continue    (label   after - gcd - 2) ) 
(goto   (label  gcd) ) 
after - gcd - 2 

複数の サブルーチン を 持つ マ シ ン は 複数の 継続 レジスタ （例 え ば gcd-contimie, 
factorial-continue) を 用いる か、 または 全ての サブルーチンが 単一の continue 
レジスタ を 共有す る ことができる でしよう。 共有 はよ リ 経済的で すが、 別の サ 
ブルー チン （sub2) を 呼び出す サブルーチン （subl) を 持って いない か 注意し な 
ければ なりません。 subl が continue の 中身 を 何 か 他の レジスタに、 continue 
を sub2 の 呼 出の ために 設定す る 前に 保存し なければ、 subl は 完了した 時点で 
どこに 行けば 良い のか 知る ことができません。 次の 節で 開発され る 再帰 を 扱 
う 仕組み はこの 入れ子の サブルーチン 呼 出の 問題に もより 良い 解法 を 提供 し 
ます。 

5.1.4 再帰 実装に スタック を 使用す る 

ここまでに 説明され た アイデア を 用いて、 その プロセスの 各 状態 変数に 対 
応 する レ ジス タを 持つ レ ジス タマ シン を 指定す る ことにより、 任意の 反復 プロ 
セスを 実装す る ことができます。 この 機械 は レジスタの 中身 を 変更しながら、 
繰り返し コントローラの ループ を、 ある 停止 条件が 満た される ま で 実行 します。 
コントローラ シーケンスの 各地 点に おいて、 （反復 プロセスの 状態 を 表現す る） 
機械の 状態 は レジスタの 状態 （状態 変数の 値） によ リ 完全に 決定され ます。 

しかし、 再帰 プロセス を 実装す る 場合に は 追加の 仕組み を 必要と します。 以 

下の階 乗 を 求める ための 再帰 手法に ついて 考えましょう。 これ は Section  1.2.1 で 
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最初に 調査し ました。 

(, def ine   (factorial n; 

(if    (=  n 1) 1 (*    (factorial (- n 1) ) n) ) ) 

この 手続から 見て とれる ように、 n! の 演算 は （n  — 1)! の 演算 を 必要と します。 
私達の GCD は 以下の 手続 か ら モデル 化されて います が、 

(, def  ine    (gcd  a  b; 

(if    (=  b  0)    a   (gcd  b   (remainder  a  b) ) ) ) 

同様に 別の GCD を 求める 必要が あります。 しかし、 元の 演算から 新しい GCD 
演算へ と 簡約す る GCD 手続と、 部分 問題と して 別の 階乗 を 求める 必要が ある 

factorial の 間に は 重要な 違いが あり ます。 GCD において は 新しい GCD 演算 
に対する 答 は 元の 問題の 答です。 次の GCD を 求める ために は、 単純に 新しい 引 
数 を GCD マシンの 入力 レジスタに 置き、 機械の データ パス を 同じ コントローラ 
シーケンス を 実行す る ことによ リ再 利用し ま す。 機械が 最後の GCD 問題 を 解く 
こと を 完了した 時には、 演算 全体 を 完了した ことにな リ ます。 

階乗の 場合 （または 任意の 再帰 プロセス） において は 新しい 階乗の 部分 問題 
の 回答 は 元の 問題の 回答で はあり ません。 （n  — 1)! に対して 得られた 値 は 最終 
回答 を 得る ために n で 乗算し なければ なり ません。 も し GCD の 設計 を 真似し、 
階乗の 部分 問題 を レジスタ n を デクリメント （1 引く） し、 階乗 マシンに 戻る こ 
のよ リ 解決したい としても、 その 結果に 乗算 を 行う 有効な 古い!！ の 値 は 既に 存 
在し ません。 従って 部分 問題 上で 働く ための 2 つ 目の 階乗 マシンが 必要です。 
この 2 つ 目の 階乗の 演算 は それ 自身が 階乗の 部分 問題 を 持ち、 それ は 3 つ 目の 
階乗 マシン を 必要と し、 以下 繰り返されます。 各階 乗 マシンが その 中に 別の 階 
乗 マシン を 持った め、 総計の 機械 は 同様な 機械の 無限の 入れ子 を 含み、 従って 
固定長の 有限 数な 部品から 構築す る こと はでき ません。 

それ にもかかわらず、 も し 機械の 各 入れ子の ィ ン スタンスが 同じ コンポ 一 
ネント を 使用す るよう に 準備が できれば 階乗 プロセス を レジスタ マシンと して 
実装で きます。 具体的に 言えば、 n! を 求める 機械 は （n-1)! を 求める 部分 問題、 
(n  -  2)! の 部分 問題、 以下 繰 り 返しの 仕事に 同じ コ ン ポー ネ ン ト を 使用せ ねば 
なりません。 これ はもつ ともらし く 見えます。 例え 階乗 プロセスが 同じ 機械の 
コピーの 未 束縛の 数値が 演算 を 実行す るのに 必要 だと 指図した としても、 これ 
らの コピーの ただ 1 つが 一度に 有効になる 必要が あるた めです。 この 機械が 再 
帰の 部分 問題に 遭遇した 時に、 メインの 問題 上の 仕事 を 中断し、 同じ 物理 部品 
を 部分 問題 上の 仕事に 再 利用し、 そして 中断した 演算 を 続ける ことが 可能です。 

部分 問題の 中で は、 レジスタの 中身 は メインの 問題の 中の 物と 異なり ます。 
(この場合に は レジスタ n はデク リ メ ン ト されます)。 中断され た 演算 を 続ける 
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continue  ~ >-  controller 


； set  up  final  return  address 


(controller 

(assign  continue  (label  fact-done)) 
fact-loop 

(test  (op  =)  (reg  n)  (const 1 )) 
(branch  (label  base-case)) 

Set  up  for  the  recursive  call  by  saving  n  and  continue. 
Set  up  continue  so  that  the  computation  will  continue 
at  after-fact  when  the  subroutine  returns - 
(save  continue) 
(save  n) 

(assign  n  (op  -)  (reg  n)  (const 1 )) 
(assign  continue  (label  after-fact)) 
(goto  (label  fact-loop)) 
after-fact 
(restore  n) 
(restore  continue) 

(assign  val (op つ (reg  n)  (reg  val)) 

(goto  (reg  continue)) 
base-case 

(assign  val  (const 1 )) 

(goto  (reg  continue)) 
fact-done) 


； val  now  contains  n(n 
； return  to  caller 

； base  case : 1 ! = 1 
； return  to  caller 


1)! 


Figure  5.11: 再帰 階乗 マシン 
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こと を 可能に する ために、 機械 は 部分 問題が 解決 し た 後に 必要 となる 全ての レ 
ジス タの 中身 を 保存し なければ なりません。 そうする ことで、 中断した 演算 を 
続ける 時に これらの 値が 再 格納され る ことができます。 階乗の 場合に は、 デク 

リ メ ン ト された レジスタ n の 階乗の 演算が 完了した 時に 再 格納され る ように n 
の 古い 値 を 保存し ます。 2 

予測 可能な 限界が 入れ子の 再帰 呼 出の 深さ に は 存在し ないた め、 任意の 数 
の レジスタ 値 を 保存す る 必要が あるでしょう。 これら の 値 は 保存され た 順の 逆 
順に 再 格納され ねばな リ ません。 入れ子の 再帰で は 突入す る 最後の 部分 問題が 
最初に 完了す るた めです。 この ことが stacfc (スタック）、 つま リ" last  in,  first 
out"(LIFO, 後 入れ 先 出し） データ 構造 を レジスタ 値の 保存への 使用す る こと を 
指示して います。 レジスタ マシン 言語 を 拡張し、 2 つの 種類の 命令 を 追加す る 
ことで スタック を 含める ことができます。 値 は スタックに save 命令 を 用いて 
置かれて、 restore 命令 を 用いて スタックから 再 格納され ます。 スタック 上に 
一連の 値が save された 後に、 連続した！ ■estore が これらの 値 を 逆順に 取り出 
します。 3 

スタックの 助け を 借り る ことで 階乗 マシンの 各階 乗 部分 問題の ために、 デ 
ータ パスの 単一の コピー を 再 利用す る ことができます。 同様な データ パス を 操 
作す る コント ロー  ラシ ーケン スの再 利用 についても 同様の 設計 上の 問題が 存在 
します。 階乗 演算 を 再 実行す るた めに は， コントローラ は 単純に は 最初に 反復 
プロセス のように ループバック する こと はでき ません。 （n  — 1)! を 解いた 後に 
は 機械 は 依然 として そ の 結果 と n を 掛ける 必要が あ るた めです。 コントローラ 
は n! の 演算 を 中断し、 部分 問題 （n  — 1)! を 解き、 そして n! の 演算 を 続けな け 
れ ばな リ ません。 階乗 演算の この 見方 は Section  5.1. 3 で 説明され た サブ ルー チ 
ンの 仕組みの 使用 を 推奨 してお り、 こ れは コントローラに レジスタ continue 
を 使用 させて 部分 問題 を 解く 列の 一部へ と 移動し、 そして メイン 問題 を 中止し 
た 場所 か ら 続行 します。 このよう にして continue レジスタ に 格納 さ れ たェン 
ト リ ボイ ントに 帰る 階乗の サブルーチン を 作る ことができます。 各 サブ ルー チ 
ン呼 出の 周りで は、 continue を n レジスタに 行う のと 同じように 保存し 再 格 
納 します。 階乗 演算の 各" レベル" が 同じ ccmtimie レジスタ を 利用す るた めで 


2 古い II を 保存す る 必要 は 無い と 主張す る 人が いるか も しれません。 デク リメ ン卜 し、 
部分 問題 を 解決した 後に、 单 純に 古い 値 を 回復す るた めに ィ ンク リメ ン 卜する ことが で 
きる と 思われる でしよう。 例え この 戦略が 階乗に 対して は 働いた としても、 それ は 一般 
的に はう まく 行きません。 レジスタの 古い 値が 常に 新しい 値から 求められ ると は 限らな 
いためです。 

3Section  5.3 において， ょリ プリ ミ ティ ブな 命令 を 用いて どのように スタック を 実装す 
るかに ついて 学びます。 
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す。 つま リ、 階乗 サブルーチン は それが 自分自身 を 部分 問題と して 呼び出す 時 

に、 新しい 値 を continue に 設定し なけれ ぱいけ ません。 しかし 部分 問題 を 解 
くた めに 呼び出し た 場所 に 戻る ため に 古い 値が 必要 となる のです。 

Figure  5.11 は 再帰; factorial 手続 を 実装す る 機械の ための データ パスと コ 
ント ローラ を 示して います。 この 機械 は スタックと 3 つの レジスタ、 n,  val, 
contimie を 持ちます。 データ パス 図 を 単純化す るた めに、 レジスタ 代入 ボタン 
に は 名前 を 付けず、 スタック 命令 ボタン （レジスタ を 保存す る sc と sn、 レジ 
スタに 戻す！ x と rn) のみに 付けて います。 機械 を 運用す るに は、 レジスタ n に 
階乗 を 求めたい 数 を 入れ、 それから 機械 を 開始し ます。 機械が fact-done に迪 
リ 着いた 時に 演算 は 完了し、 答 は レジスタ val に 見つかります。 コントローラ 
シーケンス では n と continue が 各 再帰 呼 出の 前に 保存され、 その 呼 出から 戻 
る 時に 再 格納され ます。 呼 出からの 復帰 は contimie に 格納され た 場所に 分岐 
する ことにより 達成され ます。 continue は 機械が 開始した 時に 最後の 復帰が 
fact-done に 向かうよ う に 初期化 されます。 階乗 演算の 結果 を 持つ val レジス 
タは 再帰 呼 出の 前に 保存され ません。 val の 古い 中身 は サブルーチンから 復帰 
後に は 役に立たない ためです。 部分 問題に ょリ 生成され た 新しい 値の みが 必要 
とされます。 

例え 原理 上 は 階乗 演算が 無限の 機械 を 必要と する と しても、 Figure  5.11 の 
機械 は 実際に は 限りが 無い かもしれ ない スタック を 除けば 有限です。 しかし、 
スタックの どんな 特定の 物理 実装 も 有限の サイ ズを 持ち、 この こと が 機械に よ 
リ 扱う ことが 可能な 再帰 呼 出の 深さ を 制限し ます。 この 階乗の 実装 は 再帰 アル 
ゴ リズム を スタック で 容量が 増加 さ れた 通常の レジスタ マシンと して 実現す る 
ための 一般的な 戦略 を 説明し ます。 再帰 部分 問題に 遭遇した 時には その 現在の 
値が 部分 問題が 解決され た 後に 必要 とされる レジスタ を スタック 上 に 保存 し ま 
す。 次に 再帰 部分 問題 を 解決し、 保存され た レジスタ を 戻して メイン 問題の 実 
行 を 続行し ます。 continue レジスタ は 常に 保存され なければ なりません。 保存 
する 必要の 有る レジスタが 他に 存在す るか どうか は 機械に 依存し ます。 全ての 
再帰 演算が 部分 問題の 解決の 間に 変更され る レジスタ の 元の 値 を 必要と はしな 
いためです。 （Exercise  5. 4 参照)。 

二重 再帰 

よ リ 複雑な 再帰 プロセス、 Section  1.2.2 で 紹介した フィ ボ ナツ チ 数の 木 再帰 
演算に ついて 調査して みましょう。 

(, def ine   (fib  n) 
(if    (<  n  2) 
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(+   (fib    (-  n 1)) (fib    (-  n  2))))) 

階乗と 同じ様に、 再帰 フィボナッチ 演算 を レジスタ マシンと して レジスタ n, 
val,  continue と 用いて 実装す る ことができます。 この 機械 は 階乗の ものより 
も、 より 複雑です。 コントローラ シーケンスの 中に 二箇所の 再帰 呼 出の 実行が 
必要な 箇所が 存在す るた めです。 一度 目 は Fib(n— 1) を 求める ために、 二度 
目 は Fib(n  — 2) を 求める ためです。 これらの 各 呼 出に 準備す るた めに、 後に 
その 値が 必要と なる レジスタ を 保存し、 レジスタ n に 再帰 的に 求める (n  — 1 
または n  — 2) 必要の ある フィボナッチ 数 を 設定し ます。 そして continue に 戻 
リ 先の メイン シーケンスの エントリ ポイント （それぞれ afterfib-n-1 または 
afterfib-n-2) を 割り当てます。 そうしたら fib-loop へ と 飛び ま す。 再帰 呼 
出から 帰る 時には、 回答 は val の 中に あります。 Figure  5. 12 はこの 機械の ため 
のコン トロー ラ シーケンス を 示して います。 

rigure  5.1^: 丄 Controller  for  a  machine  to  compute  Fibonacci  num- 
bers. 

( controller 

(assign   continue    (label   fib - done)) 
I lb-loop 

(test    (op   < )    (reg  n)    ( const   2) ) 
(branch    (label   immediate-answer ) ) 
；; Fib(n  - 1) を 求める 準備 
( save   continue ) 

(assign   continue    (label  afterfib-n-lj) 

(save  n)  ；  n の 古い 値 を 保存 

( assign  n   (op  -)    ( reg  n)    (const 1)) ； n を n-1 で 

上書き 

(goto    (label  fib-loop)) ； 再帰 呼 出の 実行 
afterf  ib-n-1 ； リ ターン 日 寺に， val ； ^' Fib (れ一 1) を 持つ 
restore  n) 
に restore   continue ) 

；; Fib(n  -  2) を 求める 準備 

に assign  n   乂 op  -)    ( reg  n)      const   2) ) 
( save   continue ) 

(assign   continue    (label  afterfib-n-2)) 
(save   val)  ； Fib(n  — 1) を 保存 
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( goto    (label   fib - loop)) 
afterf  ib-n-2  ； リ ターン 日 寺に， val ^'Fib(n-  2) を 持つ 

(assign  n   (reg  val)) ； n カミ' ここで Fib(n  —  2；) を 持 

； val が ここで Fib(n— 1) を 


つ 


(restore   val ； 


持つ 


(restore   continue ) 


assign  val 

(op  +)    (reg  val) 
( goto    (reg  continue)) 
の 中に ある 
immediate -answer 

(assign  val ( reg  n) ) 
( goto    (reg   cont inue ) ) 
f ib - done ) 


； Fib(n  - 1) +  Fib(n  — 2) 
(reg  n) ) 

； 呼び出しから 戻る， 答 は val 
； 基底の 場合： Fib(n)  =  n 


Exercise  5.4: 次の 手続の それぞれ を 実装す る レジスタ マシン を 指 
定 せよ。 各 マシンに 対して、 コントローラ 命令 列 を 書き、 デ一 タパ 
スを 示す 図 を 描け。 

a 再帰 指数 計算 

(define    (, expt  b  n) 
(if    (=  n  0) 

(*  b    (expt  b   (-  n 1))))) 

b 反復 指数 計算 

(define    (expt  b  n) 

(define    (expt - iter   counter  product ) 
(if    (=   counter  0) 
product 

( expt-iter    (-   counter 1) 

(*  b  product ) ) ) ) 

( expt-iter  n 1) ) 
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Exercise  5.5: 階乗と フィボナッチの 機械 を いくつかの 非 自明な 入 
力 を 用いて 手動で シ ミュレ 一 ト せよ。 （少なく とも 1 回の 再帰 呼 出 
を 必要と する）。 実行中の 各 重要な 地点に おける スタックの 中身 を 
示せ。 

Exercise  5.6:  Ben  Bitdiddle はフィ ボナ ツチ マシンの コントローラ 
シーケンスが 余分な save と restore を 持ち、 よ リ 速い マシン を 作 
るた めに 取り除く ことができる ことに 気付いた。 これらの 命令 は 
どこに あるか? 

5.1.5 命令の 要約 

私達の レジスタ マシン 言語の コントローラ 命令 は 以下の 形式の 内 1 つ を 持 

つ、 各 {inputi)  t よ (reg<reg,ister-najiie>) 力、 (const  <  const  an  t-value>) の 何 

れ かです。 これらの 命令 は Section  5.1.1 で 導入され ました。 

、 assign  {register-name)    (reg  〈registe:r~name" ) 
に assign  {register-name)    (  const   [const ant-value) ) ) 
( assign  (register - name) 

( op  { oper at i on-name) ) 

(inputi)  .  • .  (inputn) ) 
(perform   ( op  (operation-name) )    (inputi)   ...  (input  n}) 
(test    ( op  (oper  at  ion-name) )    (inputi)  ...  {inputn}) 
(branch    (label  (label-name) ) ) 
( goto    (label  (label-name) ) ) 

レジスタ を 用いて ラベル を 保存す る こと は Section  5.1. 3 で 導入され ました。 

に assign  (register-name}    (label 、丄 abe 丄 一 najne) ) ) 
goto    (reg  {register-name; ; ) 

スタック を 使用 す る 命令 は Section  5. 1.4 で 導入 されました。 

に save   (register - name)  j 

V  restore   {register-name} ) 

ここまでで 見た く coiistaiit-vaAie〉 の 種類 は 数値の みです。 しかし 後程、 文字列、 
シンボル、 それに リスト を 使用し ます。 

(const   "  abc") は 文字列 " abc" , 
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( const   abc  ) は シンポ ノレ abc, 
(const    (a  b  c)) は リスト （a  b  c) 
(const    ()) は 空 リスト 


5.2 レジスタ マシン シミュ レ一タ 

レジスタ マシンの 設計 を 良く 理解す るた めに、 私達 は 設計した 機械 を 期待 
通りに 実行され るか 確認す るた めに テスト をす る 必要が あり ます。 設計の テス 

トを 行う 1 つの 方法と して Exercise  5.5 と 同様に コン ト ローラの 命令 を 手動で 
シミュレート する 方法が あり ます。 しかし これ は 簡単な 機械 を 除いて とんでも 
なく 退屈な 方法です。 この 節で は レジスタ マ シ ン 言語で 記述 された 機械の ため 
の シミュレータ を 構築し ます。 この シミュレータ は 4 つの インターフェイス 手 
続 を 持つ Scheme の プログラムです。 1 つ 目 は レジスタ マシンの 記述 を マシン 
の モ デル を 構築す るた めに 利用し ます （データ 構造の 部品 が シミュレートされ 
る マシンの 部品に 対応し ます) 。残りの 3 つが モデル を 操作す る ことにより 機 
械の シミュレーション を 可能に します。 


、make— machine   (register-names)   (operations)  (controller) ) 

与えられた レジスタ、 命令、 コントローラ を 持つ 機械の モデル を 
構築し、 返します。 

、 set 一: register 一 contents  ！    〈JHach ュ 一 ^0づ6ヱ〉 

(register-name) 
(value; ； 

与えられた 機械で シミュレート される レジスタに 値 を 格納し ます。 
、 get -register- content  s   [machine -model)   (register-name) ) 

与えられた 機械の シミュレート される レジスタの 中身 を 返す。 

に start   (machine-model) ) 

与えられた 機械の 実行 を シミュレート する。 コントローラ シーケ 
ンスの 最初から 開始し、 シーケンスの 最後に 迪リ 着いた 時に 停止 
する。 
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これらの 手続が どのよう に 利用され るかの 例と して、 Section  5.1.1 の GCD マシ 
ンのモ デル となる gcd-machine を 以下の よう に 定義 します。 

^define   gcd - machine 
に make - machine 
• (a  b  t) 

(list  (list  1  rem  remainder) ( list  '= =) ) 
' (test - b   (test    (op  =)    (reg  b)    ( const   0) ) 

(branch    (label  gcd-done ) ) 

(assign  t    (op  rem)    (reg  a)    (reg  b ) ) 

(assign  a   (reg  b ) ) 

( assign  b    (reg  t ) ) 

(goto    (label  test-b) ) 

gcd-done ) ) ) 

make-machine に対する 最初の 引数 は レジスタ 名の リストです。 次の 引数 は 各 
命令 名と その 命令 を 実装す る Scheme 手続 （つま リ、 同じ 入力 値 を 与えられて 
同じ 出力 値 を 生成し ます） を ペアに する テーブル （2 要素 リストの リスト） です。 
最後の 引数 は Section  5.1 にある よう に ラベルと 機械の 命令 （機械語） のリ ストと 
しての コントローラ を 指定し ます。 

この 機械 を 用いて GCD を 求める ために、 入力 レジスタ を 設定し、 機械 を 開 
始し、 シミュレーションが 停止した 時に 結果 を 検査し ます。 

v.set-register-contents  ！    gcd-machme    1  a  206) 
done 

、 set - register - contents  ！    gcd-machme    1  b  40) 

done 

( start   gcd-machine ) 

done 

(get-register- contents   gcd-machine    1  a) 

2 

こ の 演算 は Scheme で 書かれた gcd 手続より もとても 遅く 実行し ます。 なぜな 
ら assign のよう な 低 レベルの 機械語 をより 複雑な 命令に より シミュレートす 
るた めです。 

Exercise  5.7: シミ ユレ一 タを 用いて Exercise  5.4 で 自分で 設計した 
機械 を テストせ よ。 
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5.2.1 マシン モデル 

make-machine にて 生成され た 機械の モデル は Chapter  3 で 開発され たメ ッ 
セージ パッシングの 技術 を 用いた 局所 状態 を 持つ 手続と して 表現され てい ま 
す。 ^_ の モア ノレ を 構築 ー9  o/ こめに、 make-machine  (i^-rpfc  make-new-machine ヒ 
呼び 全ての レジスタ マシンに 対して 共通な マ シ ン モ デルの 部 品 を 構築す る こと 
から 始めます。 make-new-machine によ リ 構築され る この 基本的な 機械の モデ 
ルは 本質的に はいくつ かの レジスタと スタックと、 コントローラ 命令 を 1 つず 
つ 処理す る 実行の 仕組み を 一緒にした コンテナです。 

make-machine は 次に この 基本的な モデル を （それに 対して メッセージ を 送 
る ことで） 拡張し、 レジスタ、 命令、 定義され る 特定の 機械の コントローラ 
を 含めます。 最初に 新しい 機械の 中に 与えられた 各 レジスタ 名に 対する レジ 
スタを 獲得し、 指定され た 命令 を その 機械に インストール （導入） します。 次 
に assemWer (アセンブラ） （下記の Section  5.2.2 で 説明され ます） を 用いて コン 
ト ローラ リスト を 新しい 機械に 対する 命令に 変換し、 これら を 機械の 命令 列と 
して ィ ンス トールし ます。 make-machine は その 値と して 変更され た 機械の モ 
デル を 返します。 

^define    (make - machine   register-names   ops   control 丄 er -" text ) 
(let    ( (machine  (make-new-machine))) 
( for - each 
(lambda  (register-name) 

( (machine    'allocate - register)  register-name)) 
register-names) 
"machine    '  install- op er at  ions)    ops  ) 
I, machine    1  install - instruction - sequence  ) 
(assemble   controller-text  machine ) ) 
machine ) ) 

レジスタ 

レジスタ は Chapter  3 の 様に 局所 状態 を 持つ 手続と して 表現され ます。 手続 
make-register は アクセスと 変更が 可能な 値 を 持つ レジスタ を 作成し ます。 

v. def ine    (make-register  name  ) 

(let    ( ( contents    ' *unassigned* ) ) 
(define   (dispatch  message ) 
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( cond   ( ( eq?  message    'get)    content s ) 
( ( eq?  message    *  set ) 

(lambda   (value)    (set!    contents  value))) 
( else 

(error   "Unknown  request :    REGISTER "  message)))) 
dispatch ) ) 

以下の 手続 は レジスタに アクセス する ために 使用され ます。 

に deiine    、get  -  contents   register  )    (.register    '  get ) ) 
(deiine    (set-contents ！    register  value ) 
(. (.register    'set)  value)) 


スタック 

スタック もまた 局所 状態 を 持つ 手続と して 表現され ます。 手続 make-stack 
は 局所 状態が ス タック 上の アイテム （項目） の リストから 成る スタック を 作成 
します。 スタック は スタック 上に アイテム を push と スタックから 最上 位の ァ 
ィ テム を 取り去り それ を 返す pop、 スタック を 空に 初期化す る initialize の 
リ クェ スト を 受け付けます。 

、deiine  make-stack) 
(let   ((s  '())) 

(define    (push  x)    (set!    s   (cons  x  s ) ) ) 
(define    (pop ) 
(if    (null?  s) 

(error   " Empty  stack :    POP つ 
( let    ( (top   (car  s ) ) ) 
( set ！    s    ( cdr   s ) ) 
top))) 
(define  (initialize) 
(set!    s    ■ ()) 
1  done ) 

(define    (dispatch  message ) 

( cond   ( ( eq?  message    ' push)  push) 
((eq?  message    'pop)  (pop)) 
((eq?  message    1  initialize )    ( initialize ) ) 
( else    (error   "Unknown  request :    STACK " 
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message ) ) ) ) 

dispatch ) ) 

以下の 手続 は スタックへの アクセスに 使用され ます。 

V  dei  me    、pop   stack;    v  stack  'pop)) 

( dei ine    (push  stack  value  )        stack    1  push)    value  ) ) 


基本的な 機械 

Figure  5.13 に 示す make-new-machine 手続 は 局所 状態が ス タック、 初期値 
が 空の 命令 列、 初期値が スタック を 初期化す る 命令 を 持つ 命令の リスト、 初期 
値と して 2 つの レ ジス タ flag (フ ラ グ) と pc("program  counter", プロ グラ ム 
カウンタ） を 持つ register  table に レジスタ 亍一 ブル) から 成り立ちます。 内部 手 
続 lookup-register はテー ブル 内の レジスタ を 探します。 

flag レジスタ は シミュレート される 機械に て 分岐 を コントロール する ため 
に 使用され ます。 test 命令 は flag の 中身に テストの 結果 （真、 または、 偽） を 
設定し ます。 branch 命令 は 分岐す るかし ないか を flag の 中身 を 調査して 決定 
します。 

pc レジスタ は 機械が 実行す る 命令の 順序 付け を 決定し ます。 この 順序 付け 
は 内部 手続 execute によ リ 実装され ています。 シミュレーション モデルで は 各 
機械 命令 は instruction  esectiiion  procedure (命令 実行 手続） と 呼ばれる 引数 無し 
の 手続 を 含む データ 構造で あり、 この 手続 を 呼ぶ ことにより 命令の 実行 をシミ 
ュ レートし ます。 シミュレーションが 実行され るに つれ、 pc は 次に 実行され る 
命令から 始まる 命令 列の 地点 を 指します。 execute は その 命令 を 得て、 それ を 
命令 実行 手続 を 呼ぶ ことによ リ 実行し、 この サイ ク ルを 実行す る 命令が 無 く な 
るまで （すなわち、 pc が 命令 列の 最後 を 指す ま で） 繰リ 返します。 
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Figure  5.13:  | 基本の 機械 モデル を 実装す る make- new- machine 手続 

dei ine    、maKe  -  new  -  machine) 
(let    "pc    (make-register    '  pc ) ) 

(flag   (make-register    1  flag ) ) 
( stack    (make-stack) ) 
(the- instruct ion- sequence    ' ())) 
(let    ((the - ops 

(list    (list    " initialize - stack 

(lambda   ()    (stack  'initialize))))) 
(register-table 
(list    (list    'pc  pc)    (list    'flag  flag)))) 
(define    ( allocate - register  name ) 
v.  if    ( assoc  name  register-table) 

( error   " Multiply  defined  register :    "   name ) 
(set!  register-table 

( cons    ( list  name    (make-register  name)) 
register-table))) 
'register-allocated) 
(define    ( lookup- register  name ) 

(let    ( ( val ( assoc  name  register-table))) 
(if  val 

( cadr  val) 

( error   " Unknown  register : "  name ) ) ) ) 
(define    ( execute ) 

(let    ( ( insts    (get-contents  pc))) 
Vif    (null?   insts ) 
1  done 
(begin 

((instruction - execution - proc    (car  insts))) 
( execute ) ) ) ) ) 
(define    (dispatch  message) 
( cond   ( ( eq?  message    1  start ) 

(set-content s ！  pc  the- instruct ion- sequence) 
(execute ) ) 

( ( eq?  message    1  install- instruct  ion -sequence) 
(lambda   ( seq) 
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(set!    the-inst ruction -sequence   seq) ) ) 
( ( eq?  message    ' alloc at e-register) 

alloc at e-register) 
((eq?  message    1  get-register) 

loo  kup -register ) 
((eq?  message    ' install - operations ) 
(lambda  (ops) 

(set!    the  -  ops    (  append  "the  -  ops  ops)))) 
((eq?  message    1  stack )  stack) 
((eq?  message    1  operations )    the - ops) 
( else    (error   "Unknown  request :    MACHINE " 
message ) ) ) ) 

dispatch ) ) ) 

工程の 一部と して、 各 命令の 実行 手続 は pc を 変更し 次に 実行され る 命令 を 指 
すよう にします。 branch と goto 命令 は pc を 変更し 新しい 行き先 を 指す よう 
にします。 全ての 他の 命令 は 単純に pc を 進めて 列の 次の 命令 を 指す ようにし 
ます。 各 execute の 呼 出が execute を 再び 呼び出す ことに 中止して 下さい。 こ 
れ はしかし 無限ループに はなり ません。 命令 実行 手続の 実行 は pc の 中身 を 変 
更 する ためです。 

make-new-machine は dispatch 手続 を 返します。 これ は 内部の 状態に ァク 

セス する メッセージ パッシング を 実装し ます。 機械の 開始 は pc に 命令 列の 最 
初 を 設定し、 execute を 呼ぶ ことにより 達成され る ことに 注意して 下さい。 

利便 性の ために、 機械の start 命令の 代替と なる 手続の ィ ン ターフェ イス 
を 提供し ます。 同様に、 レジスタの 中身の 設定、 試験の 手続 も Section  5.2 の最 
初にて 指示され たよう に 提供 します。 

dei ine    (  start  machine  )    (machine    '  start  ) ) 
( dei ine    (get-register- contents  machine  register-name) 

(get-contents    (get-register  machine  register-name))) 
( dei ine    (set-register-contents ！    machine   register-name   value ) 
( set-contents ！    (get-register  machine  register-name) 
value ) 

1  done ) 

これらの 手続 （と Section  5.2.2 と Section  5.2.3 の 多くの 手続） は 以下 を 用いて 与 
えられた 機械と レジスタ 名の レジスタ を 探します。 
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(define    (get-register  machine   reg-name ) 
( (machine    'get - register)    reg-name ) ) 


5.2.2 アセンブラ 

アセンブラ はコン ト ローラの 機械の ための 式の 列 を 対応す る 機械の 命令の 
リストへ と 変形し ます。 各 命令 は その実 行 手続 を 持ちます。 概して、 ァ セン ブ 

ラは Chapter  4 で 学習した 評価 機に とても 似て います。 入力 言語が 存在し （この 
場合に は レジスタ マシン 言語)、 言語の 式の 各 型に 対して 適切な アクション を 
実行し なければ なり ません。 

各 命令の ための 実行 手続 を 生成す る 技術 は Section  4.1. 7 で 実行時に 実行 か 
ら 分析 を 分離す る こと で 高速 化す るた めに 用い たのものと 同じです。 Chapter 
4 で 学んだ よう に、 Scheme の 式の 多 く の 実用的な 分析 は 変数の 実際の 値 を 知ら 
なくと も 実行す る ことができました。 ここで も 同様に、 レジスタ マシン 言語の 
式の 多くの 実用的な 分析が 実際の 機械の レジスタの 値 を 知る ことなしに 実行す 
る こと がで きます。 例 えば レ ジス タ への 参照 を レジスタ ォ ブジ ェクト への ボイ 
ンタ により 置き換えた リ、 ラベル を ラベルが 指定す る 命令 列 内の 地点への ボイ 
ンタで 置き換える こと がで きます。 

アセンブラが 命令 実行 手続 を 生成す る 前に、 全ての テーブルが 何 を 参照す 
るの か 知って おく 必要が リ ます。 そのため コントローラ テキス トを 走査し 命令 
から ラベル を 分離す る ことから 始めます。 アセンブラが テキスト を 走査す るに 
つれ、 命令の リストと 各 ラベル を その リスト 内部 を 指す ポインタと 関連 付ける 
テーブルの 両方 を 構築し ます。 そうしたら アセンブラ は 命令 リスト を 各 命令に 
対する 実行 手続 を 挿入す る ことで 増補し ます。 

assemble 手続 はァセ ン ブラ に対する 主な 入口です。 コ ン ト ローラ テキス 
トと マシン モデル を 引数と して 取り、 モデルに 格納す るべき 命令 列 を 返し ま 
す。 assemble は extract-labels を 呼び 初期 命令 リ ス ト と 与えられた コン ト 
ローラ テキス ト から ラベル テーブル を 構築し ます。 extract-labels の 2 つ 目 
の 引数 は これらの 結果 を 処理す るた めに 呼ばれるべき ものです。 この 手続 は 
update-insts! を 用いて 命令 実行 手続 を 再生し、 それら を 命令 リストの 中に 揷 
入し、 変更され た リスト を 返します。 

、define    (assemble   control 上 e:r— text   machine  ) 
(extract-labels 
controller-text 
(lambda   ( inst s labels ) 
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(update-insts ！    insts   labels  machine ) 
insts ) ) ) 

extract-labels は 引数と して リスト text (コン ト ローラ 命令 式の 列） と receive 
手続 を 取ります。 receive は 2 つの 値と 共に 呼び出されます。 （1) 命令 データ 
構造の リス ト insts は それぞれが text からの 命令 を 含みます。 （2) テーブル 
labels は text からの 各 ラベルと その ラベルが 指定す る リスト insts 内の 位置 
と を 関連 付けし ます。 

、deiine    (extract— labels   text   receive ) 
(if    (null?  text) 

(receive    ' () ' 、) ) 
(extract-labels 
( cdr  text ) 

( lambda     insts   labels  ) 

(let    ( (next-inst    (car  text ) ) ) 
(if    ( symbol?   next-inst ) 
(receive  insts 

( cons    (make-label-entry  next-inst 

insts ) 

labels)) 

(receive    ( cons    (make-instruction  next-inst ) 
insts ) 
labels))))))) 

extract-labels は 連続して" text の 要素 を 走査し、 insts と labels を 集積す 

る ことで 働きます。 も し 要素が シンボル （従って ラベル） なら 適切な ェン ト リ 
が labels テーブルに 追加され ます。 そうでなければ その 要素 は insts リスト 

上に 集積され ます。 4 

4receive 手続 を ここで 使用す るの は extract-labels を 得て、 効率的に 2 つの 値、 
labels と insts を それ を 保持す る 複合 データ 構造 を 明示的に 作る こと 無しに 返す ため 
の 方法です。 代替と なる、 明示的に 値の ペア を 返す 実装 は 以下の通りです。 

def ine   (extract -labels  text リ 
(if    (null?  text) 
(cons    ' () ' ()) 

(let    ( (result    ( extract -labels    ( cdr  text ) ) ) ) 

(let    ( ( insts   ( car  result ) ) (labels   ( cdr  result ) ) ) 
( let   ( (next-inst   ( car  text ) ) ) 
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update-insts  ！ は 命令 リスト を 変更し ます。 こ れは 初期値 として は 命令の 

テキス ト のみ を 含みます が、 対応す る 実行 手続 を 含む ようになり ます。 


def ine    (update-msts  ！    mst  s labels  machine  ) 
(let    ( (pc    (get-register  machine    1 pc ) ) 

(flag   ( get - register  machine    1  flag ) ) 
( stack    (machine    1  stack ) ) 
( ops    (machine    1  operations ) ) ) 
( f or-each 
(lambda   ( inst ) 

( set-inst ruction-exec ution-proc! 
inst 

(make - ex e cut  ion-procedure 
(inst ruction -text   inst ) 
labels  machine  pc   flag   stack  ops))) 
insts ) ) ) 

マシン 語 データ 構造 は 単純に 命令 テキス ト と 対応す る 実行 手続の ペア を 作り ま 
す。 実行 手続 は extract-labels が 命令 を 構築した 時には まだ 存在せ ず、 後に 
update-insts! により 挿入され ます。 

def  ine    (make- instruct  ion  text  ；    v  cons  text    'リ) ) 

(if    ( symbol?   next-inst ) 
( cons  insts 

(cons   (make -label -entry  next-inst   insts ) 
labels) ) 

( cons    (cons    (make -instruct ion  next-inst )    insts ) 
labels))))))) 

これ は assemble により 以下の よう に 呼び出されます。 

t,  def  ine   、  assemble   controller-text  machine ) 

(let   ( ( result   ( extract -labels   controller-text ) ) ) 
( let    ( ( insts   (car  result ) ) ( labels    C cdr  result ) ) ) 
(update-insts ！    insts   labels  machine ) 
insts ) ) ) 

receive の 使用 は 複数の 値 を 返す 洗練され た 手法の 実演、 または 単純に プロ グラ ミ ング 
上の ト リ ックを 見せ付ける ための 言い訳と して 考える ことができます。 receive のよう 
な 次に 実行され るべき 手続 引数 は "継続" と 呼ばれます。 Section  4.3.3 で 私達が 維 続 を 
amb 評価 機の バック トラック 制御 構造の 実装に 用いた の を 思い出して 下さい。 
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(define    (instruction-text   inst )    (car   inst ) ) 
(define    ( instruction - execution - proc   inst )    ( cdr  inst)) 
( dei ine    (set - inst ruction - execution - proc!    inst  proc ) 
(set - cdr!    inst  proc)) 

命令 テキスト は シミュレータ では 使用され ません。 しかし、 デバッグ のために 

手元に 置いて おく と 便利です。 （Exercise  5.16 参照） 
ラベル テーブルの 要素 は ペアです。 

(, dei  ine    (make  — labe 上 - entry  label-name   insts  ) 
( cons   label-name  insts)) 

テ 一 ブル 内の 要素 は 以下に より 検索され ます。 

dei  ine    ( lookup -label   labels   laoe 丄ー name) 
(let    "val ( assoc   label-name  labels))) 
(if  val 

(cdr  val) 

(error   "Undefined  label : ASSEMBLE" 
label-name)))) 

Exercise  5.8: 以下の レジスタ マシンの コード は 曖昧で ある。 ラベ 
ル here が 複数回、 定義され ている ためで ある。 

start 

(goto    (label  here ； ) 
here 

(assign  a   ( const   3) ) 
(goto    (label  there ) ) 
here 

(assign  a   ( const   4) ) 
(goto    (label  there ) ) 
there 

シミュレータ が 書かれて いるま ま の 状態で、 レ ジス タ a の 中身 は コ 
ント ローラが there に迪リ 着いた 時に 何になる か？ 手続 extract- 
labels  を 変更し、 同じ ラベル 名が 2 つの 異なる 地点 を 指し示す の 
に 使用され た 場合に エラ一 を 発する ようにせ よ。 
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5.2.3 各 命令に 対する 実行 手続の 生成 


アセンブラ は 命令の 実行 手続 を 生成す るた めに make-execution-procedure 
を 呼びます。 Section  4 丄 7 の 評価 機の analyze 手続と 同様に、 これ は 適切な 実 
行 手続 を 生成す るた めに 命令の 型に 従い 呼 出 を 行います。 

dei ine    (make  -  ex  e  cut  ion-procedure 

mst labels  machine  pc ェ丄 ag   stacK  ops ) 
( cond   ( ( eq?    (car   inst )    1  assign ) 

(make-assign  inst  machine   labels   ops  pc ) ) 
( ( eq?    (car   inst )    1  test ) 

(make -" test   inst  machine   labels   ops   flag  pc ) ) 
( ( eq?    (car   inst )    1  branch ) 

(make-branch  inst  machine   labels   flag  pc)) 
( ( eq?    (car   inst )    ' goto ) 

(make - goto   inst  machine   labels  pc)) 
( ( eq?    (car   inst )  'save) 

(make-save   inst  machine   stack  pc)) 
( ( eq?    (car   inst )    ' restore ) 

(make-restore   inst  machine   stack  pc)) 
( ( eq?    (car   inst )    ' perform) 

(make-perform   inst  machine   labels   ops  pc ) ) 
(else 

( error   " Unknown   instruction  type :    ASSEMBLE " 
inst  ] 


き 語の 命令の 各 型に 対し、 適切な 実行 手続 を 構築す る 生成 器 
が 存在 します。 これ らの 手続の 詳細が レジスタ マシ ン 言語の 構文 と 個別の 命令 
の 意味の 両方 を 決定し ます。 データ 抽象化 を 用いる ことで 全体 的な 実行の 仕 

組みから レジスタ マシンの 式の 詳細な 構文 を 分離して います。 こ れは Section 
4.1.2 で 評価 機に 対して 行った のと 同様で、 構文 手続 を 用いて 命令の 部分 を 抽出 
し、 分類す る ことによ ります。 


assign  - 叩' 令 

make-assign  -f-®c(5.  assign  u 卩、^ p' を 扱い ま"^。 
(, dei  ine    (make-assign   mst  machine   labels   operations  pc ) 
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(let    ( (target 

(get-register  machine    (assign-reg-name   inst ) ) ) 
(value - exp    (assign-value-exp  inst))) 
(let    ( ( value-proc 

(if    (operation - exp?   value- exp) 
(make - operation - exp 

value - exp  machine   labels  operations) 
(make - primitive - exp 
(car  value-exp )   machine  labels)))) 
(lambda    ()        ；  assign に対する 実行 手続 
(set-contents ！    target    (value-proc ) ) 
(advance - pc  pc ) ) ) ) ) 


make-assign は ター ゲッ ト となる レジスタ 名 （命令の 2 つ 目の 要素） と 値の 式 
(命令 を 構成す る リストの 残りの 部分） を assign 命令から セレクタ を 用いて 抽 


レジスタ 名が get-register を 用いて 検索され 目的の レジスタ オブジェ ク ト を 
生成し ます。 値の 式 はも し 値が 命令の 結果で あるの なら make-operation-exp 
に 渡され、 そうでなければ make-primitive-exp に 渡されます。 これらの 手続 
(以下に 示されます） は 値の 式 を 構文 解析 しその 値に 対する 実行 手続 を 生成し ま 
す。 これ は 引数 無しの 手続で value-proc と 呼ばれ、 シミュレーションの 間に 
レジスタに 代入され る 実際の 値 を 生成す るた めに 評価され ます。 レジスタ 名の 
検索と 値の 式の 構文 解析の 仕事 はた だ 一度、 アセンブリ 時 （アセンブラ 実行時) 
に 実行され る ことに 注意して 下さい。 その 命令が シミュレート される 度に 毎回 
では ぁリ ません。 この 仕事量の 削減 こそが 私達が 実行 手続 を 使用す る 理由です。 
そして こ れが 直接 Section  4. 1 . 7 の 評価 機に おいて、 実行から プログラム 分析 を 
分離す る ことにより 仕事量の 削減 を 得た こと に 対応 します。 

make-assign により 返される 結果 は assign 命令の ための 実行 手続です。 こ 
の 手続が （マシン モデルの execute 手続に より） 呼ばれた 時に、 value-proc 手 
続 を 実行す る ことによ リ得 られた 結果 を 目的の レ ジス タの 中身に 設定し ます。 
その 次に pc を 以下の 手続 を 実行す る ことにより 次の 命令へ と 進めます。 


出します。 


( def ine 
( cadr 

( def  ine 
( cddr 


(assign-reg-name   assign -inst ruction) 
assign -inst ruction)) 

(assign-value-exp  assign-instruction) 
assign -inst ruction)) 
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(define    (advance - pc  pc ) 

( set- content s ！    pc    ( cdr    (get-contents  pc)))) 

advance-pc は branch と goto を 除く 全ての 命令に 対する 通常の 終わりです。 

Test,  branch,  goto 命令 

make-test は test 命令 を 同様な 方法で 扱います。 これ は テス ト される 条件 
を 指定す る 式 を 抽出し、 それに 対する 実行 手続 を 生成し ます。 シ ミュレ ーショ 
ン 時に、 条件の ための 手続が 呼ばれ、 その 結果が flag レジスタに 割り当てら 
れ、 pc が 進められます。 

def ine    (make-test   mst  machine   labels   operations   flag  pc) 
(let    ( ( condition    (test-condition   inst ) ) ) 
(if    (operation - exp?  condition) 
(let    (( condition - proc 

(make - operation - exp 
condition  machine   labels  operations))) 
(lambda   ( ) 

( set-contents ！    flag    ( condit  ion-proc ) ) 
( advance-pc  pc ) ) ) 
(error   "Bad  TEST   instruction:    ASSEMBLE"  inst)))) 
( def  ine    (test-condition  test-instruction) 
( cdr  test-instruction)) 

branch 命令の ための 実行 手続 は: flag レジスタの 中身 を チェックし、 pc の 中身 
に 分岐の 目的地 を 設定す る 力、 （分岐が 選択され た 場合)、 または 単に pc を 進め 
ます （分岐が 選択され なかった 場合)。 branch 命令 内で 指定され た 目的 値はラ 
ベルで なければ ならず、 make-branch 手続が この こと を 強制す る こ と に 注意し 
て 下さい。 また ラベル は アセンブリ 時に 検索され、 branch 命令が シミュレート 
される 時に 毎回 検索され る 訳で はない ことに も 注意して 下さい。 

def  ine    (make-branch   mst  machine   labels   flag  pc ) 
(let    ( ( dest    (branch-dest  inst))) 
( if    ( label-exp?   dest ) 
(let    ( ( inst s 

( lookup- label 
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labels 

(lab el - exp - lab el   dest ) ) ) ) 
(lambda   ( ) 

v.  if    (get-contents   flag ) 

( set-contents ！    pc   inst s ) 
( advance - pc  pc ) ) ) ) 
(error   "Bad  BRANCH   instruction:    ASSEMBLE"  inst)))) 
(define    (branch - dest  branch- instruct ion) 
( cadr  branch-instruction)) 

goto 命令 は branch に似てい ますが、 目的地が ラベル か、 または レジスタ によ 
り 指定され る ことが 異なります。 また 条件 分岐ではありません。 pc は 常に 新し 
い 目的地に 設定され ます。 

^define    (make - goto   mst  machine   labels  pc) 
(let    ((dest    ( goto - dest   inst ) ) ) 
( cond   ( ( label-exp?   dest ) 

(let    (   mst s    (loo kup -label 
labels 

(label-exp -lab el  dest)))) 
(lambda   ()    ( set-contents ！    pc   inst s ) ) ) ) 
((register - exp 7   dest ) 
(let    ( ( reg  (get-register 
machine 

(register - exp - reg  dest)))) 

(lambda  () 

( set-content s ！    pc    (get-contents  reg))))) 
(else    (error   "Bad  GOTO   instruction :  ASSEMBLE" 
inst))))) 

(define    (goto - dest   goto-inst ruction) 
( cadr  goto-inst ruction)) 

他の 命令 

スタック 命令の save と restore は 単純に スタック を 指定した レジスタと 
共に 用いて、 pc を 進めます。 
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(define    (make-save   inst  machine   stack  pc ) 
(let    ( ( reg   (get-register  machine 

(stack - inst - reg - name  inst)))) 

( lambda  () 

(push  stack    (get-contents  reg) ) 
(advance - pc  pc)))) 
(define    (make-restore   inst  machine   stack  pc ) 
(let    ( (reg   (get-register  machine 

(stack - inst - reg - name  inst)))) 

( lambda  () 

( set-contents ！    reg    (pop   stack) ) 
(advance - pc  pc)))) 
(define    ( stack- inst-reg-name  stack-instruction) 
( cadr  stack-instruction)) 

make-perform で 扱われる 最後の 命令 型 は 実行され るべき アクションの ための 
実行 手続 を 生成し ます。 シミュレーション 時に この アクション 手続が 実行され 
pc は 進められます。 

^define    (make-perform  mst  machine   labels   operations  pc ; 
(let    ( ( action    (perform-action  inst))) 
(if    (operation - exp?   action ) 
(let    ( ( action-proc 

(make - operation - exp 
action  machine   labels   operations ) ) ) 
(lambda   ( )    ( action-proc )    (advance - pc  pc))) 
(error   "Bad  PERFORM   instruction :    ASSEMBLE"   inst ) ) ) ) 
(define    (perform-action   inst )    ( cdr  inst)) 

部分 式の 実行 手続 

reg,  label, または const 式の ィ直は レジスタへの 代入 (make-assign) のた 
め、 または 演算 命令の 入力 （下記の make-operation-exp) のために 必要になる 
かも しれません。 以下の 手続 は これらの 式の ための 値 を シミュレーションの 間 
に 生成す るた めの 実行 手続 を 生成し ます。 

def ine    (make - primitive - exo   exp  machine  labels) 
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( cond   (( constant - exp?   exp ) 

(let    ( ( c    ( const ant -exp -value  exp))) 
(lambda    ()  c))) 
( ( label-exp?  exp) 
(let    (  v  mst s    ( lookup- label 
labels 

(lab el - exp - lab el   exp ) ) ) ) 
(lambda    ()    inst s ) ) ) 
((register - exp 7   exp ) 
(let    ( (r   (get-register  machine 

(register - exp - reg  exp)))) 
(lambda    ()    (get -contents  r ) ) ) ) 
(else 

( error   " Unknown  expression  type :    ASSEMBLE "  exp)))) 

reg,  label,  const 式の 構文 は 以下に より 決定され ます。 

( dei ine    (register-exp?   exp)    (tagged-list?   exp  'reg)) 

( dei ine    (register-exp -reg  exp)    ( cadr  exp)) 

( dei ine    ( const ant -exp?   exp )    (tagged-list?   exp    1  const ) ) 

( dei ine    ( const ant -exp -value   exp)    ( cadr  exp) ) 

(define    (label-exp?   exp)    (tagged-list?   exp    'label ) ) 

( dei ine    (label-exp -lab el   exp)    ( cadr  exp)) 

assign,  perform,  test 命令 は （op 式に より 指定され る） 機械の 演算 命令の （reg 
と const 式に より 指定され る） いくつかの オペ ラン ド への 適用 を 含む かも しれ 
ません。 以下の 手続 は "演算 命令 式" 一命 令 か ら の 演算 命令 と オペ ラン ド の 式 を 
含む リスト 一に 対する 実行 手続 を 生成し ます。 

V dei me    (make -ope rat ion- exp   exp  machine   labels   operations ) 
(let    "op   ( lookup-prim   (operation -exp -op   exp ) 

operations ) ) 

( aprocs 
(map   ( lambda    (e ) 

(make -； primitive - exp  e  machine   labels ) ) 
(oper at  ion -exp -operands  exp)))) 

( lambda  () 

( apply  op   (map   ( lambda   (p)    (p) )    aprocs ] 
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演算 命令 式の 構文 は 以下に より 決定され ます。 

dei ine    t^operation-exp?   exp  ) 

( and   (pair?   exp )    ( tagged-li st?    (car  exp)  'op))) 
( dei me    (operation -exp -op   op e rat  ion- exp ) 

( cadr    (car   operation - exp) ) ) 
( dei ine    ( operation- exp -ope rands   ope rat ion- exp ) 

( cdr   operation - exp ) ) 

演算 命令 式の 処理が Section  4.1.7 の 評価 機に おいて 各 オペ ラン ド に対して 実行 
手続 を 生成 した ことにお いて analyze-application 手続に よ る 手続の 適用の 
処理に とても 似て いる ことに 注意して 下さい。 シミュレーション 時に、 オペラ 
ンド 手続 を 呼び、 結果と なる 値に 対して 演算 を シミュレート する Scheme 手続 
を 適用し ます。 シミュ レー シ ョ ン 手続 は 演算 命令の 名前 を 機械の 演算 命令 テー 
ブルから 検索す る ことで 見つかり ます。 

(, dei  ine    (, lookup-prim   symbol   operations リ 
(let    (.  t,  val (assoc   symbol   operations  ) ) ) 
(if  val 

( cadr  val ) 

(error   "Unknown   operation :    ASSEMBLE " 
symbol ) ) ) ) 

Exercise  5.9: 上記の 機械の 演算 命令の 取扱 は それらに ラベル、 定 
数、 レジスタの 中身 上での 演算 を 可能に する。 式 を 処理す る 手続 
を 変更し、 演算 命令が レジスタと 定数の みに 対して 使用で きる よ 
う な 条件 を 強制す る よ う にせよ。 

Exercise  5.10: レジスタ マシンの 命令に 新しい 構文 を 設計し、 シミ 
ユレ ータを 変更して その 新しい 構文 を 使用せ よ。 シミュレータの 
内、 こ の 節の 構文 手続 以外 を 変更せ ずに あ な たの 新 し レ 、構文 を 実 
装す る こと がで きる だろう 力、？ 

Exercise  5.11:  Section  5. 1.4 で save と restore を 導入した 時、 以 
下の 順の 様 に 最後に 保存した 物で はない レジスタに 戻した 場合に 
何が 起 こる の か は 指定 しなかった。 

( save  y;      ( save  x;      (restore  y ) 

restore の 意味に 対して はいくつ かの 妥当な 可能性が 存在す る。 
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a  (restore  y) は スタック 上に 最後に 保存され た 値 を、 どの レ 
ジス タ から その 値が 来たの か 関係 無しに y に 入れる。 これが 
私達の シ ミュレ ータ の 振舞で ある。 こ の 振舞の 利点の 活用 法 
を 示す ため、 Section  5. 1.4 の フィボナッチ マシンから 1 つ 命 
令 を 削減して 見せよ。 (Figure  5.12) 

b  (restore  y) は スタック 上に 最後に 保存され た 値 を y に 入れ 
る。 しかし その 値が y から 保存され た 場合の みで ある。 そう 
でなければ エラー を 発する。 シミュレータ を 変更して このよ 
うに 振る舞うよう にせよ。 save を 変更して スタック 上に 値と 
共に レジスタ 名 を 保存し な ければ な ら ない。 

c  (restore  y) は y の 後に 他の どの レジスタが 保存され、 取り 
出されて いなくても 最後に y から 保存した 値 を y に 入れる。 
シミュレータ を このよう に 振る舞う よ う に 変更せ よ。 分離 さ 
れた スタック を 各 レジスタに 関連 付けす る 必要が ある。 また 
initialize-stack 命令に 全ての レジスタの ス タツ クを 初期 
化させなければ ならない。 

Exercise  5.12: シミュレータ は 与えられた コントローラ と共に 機械 
を 実装す るた めに 必要と される データ パス を 決定す る こと を 手 助 
けす るた めに 利用す る ことが 可能で ある。 アセンブラ を 拡張し 以 
下の 情報 を マ シ ン モ デル に 格納せ よ 。 

• 全ての 命令の リスト を 重複 を 削除し、 命令の 型で ソートす る 
(assign,  goto ぜ) 

. ェン ト リ ボイ ン ト を 持つ のに 使用され た レジスタの （重複の 

無い） リスト。 （これら は goto 命令で 参照され た レジスタで 

ある） 

. save または！ ■estore された レジスタの （重複の 無い） リスト 

• 各 レジスタに 対し、 代入 元の （重複の 無い） リスト。 （例 
えば Figure  5.11 の 階乗 マシンの レジスタ val の 入力 元は 
(const 1) と 、(op  *)   (,reg  n;   (reg  va 上))). 

メ ッ セージ パッシングの 機械への ィ ン ターフェ イス を 拡張し、 こ 
の 新しい 情報への アクセス を 提供せ よ。 あなたの 分析 器 を テス ト 
する ために Figure  5.12 の フィボナッチ マシン を 定義し、 構築され 
た リスト を 試験せ よ。 
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Exercise  5.13: シミュレータ を 変更す る こ とで、 make-machine に 

対する 引数と して レジスタの リス トを 要求す るので はなく、 コン 
トロー ラ シーケンス を 使用して 機械が どんな レジスタ を 持つ のか 

決定す る よ う にせよ。 make-machine の 中で レジスタ を 事前に 獲得 
してお く 代わ り に、 命令の アセンブリ 時の 間に 初めて 現れた 時に 1 

つづつ レジスタ を 獲得す るよう にせよ。 


5.2.4 機械の パフォーマンスの 監視 


シミュ レー シ ョ ンは 提案され た 機械 設計の 正し さ を 確認す るた めだけ では 
なく、 機械の パフォーマンス を 計る ために も 便利です。 例えば、 私達の シミュ 
レー タに 演算 中に 使用され る スタック 命令の 数 を 計る "メーター" を 導入す る 
ことができます。 これ を 行うた めに は、 シミュレーション を 行う スタック を 変 
更し スタック 上に レジスタ が 保存 された 回数と スタック が 到達 した 最大の 深さ 
を 追跡す るに し、 スタックの インターフェイスに メ ッ セージ を 追加し 以下の よ 

う に 統計 を 表示す る ようにし ます。 また make-new-machine 内の the-ops を以 
下の 様に 初期化す る こ と で、 基本的な マシ ン モデルに スタ ッ ク の 統計 を 表示す 
る 命令 を 追加し ます。 

、丄 ist    (list    ' initialize - stack 

、丄 ambda   、ソ ( stack    1 initialize) ) ； 
(list    'print -stack-st at istics 

、丄 ambda   、ソ ( stack    'urmt -statistics);)) 

以下が 新しい 版の make-stack です。 

( dei ine  (make-stack) 
(let   ((s  '()) 

(number -pushes  0) 
(max - depth  0) 
( current -depth  0) ) 
(define    (push  x) 

(set ！    s    ( cons  x  s) ) 
(set!    number -pushes  (h 
(set!    current -depth  (h 


number -pushes ) ) 
cur rent -depth) ) 


(set!    max - depth   (max   cur rent -depth  max - depth) ) ) 
(define    (pop ) 
(if    (null?  s) 
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(error   " Empty  stack :    POP つ 
( let    ( (top   (car  s ) ) ) 
( set ！    s    ( cdr   s  ) ) 

(set!  current -depth  (-  current -depth 1) ) 
top))) 

( initialize ) 


( def  ine 

(set!    s    ■ ()) 
(set!    number -pushes  0) 
(set ！    max - depth  0) 
(set!    current -depth  0) 
' done ) 

(define    (print -statistics) 
(newline ) 

(display   (list    1  total-pushes 
1  maximum- depth 
(define    (dispatch  message ) 

( cond   ( ( eq?  message    ' push)  push) 
( (eq?  message    'pop)    (pop; ； 
((eq?  message    1  initialize )    ( initialize ) ) 
((eq?  message  'print-statistics) 

(print - stat i sties)) 
( else 

(error   "Unknown  request :    STACK "  message)))) 
dispatch ) ) 


number -pushes 
max - depth) ) ) 


Exercise  5. 15 力、 ら Exercise  5. 19 は レジスタ マシン シ 
の 便利 な 監視 と デバ ッ グの 機能 を 説明 します。 


レ一タ に 追加で きる 他 


Exercise  5.14:  Figure  5.11 で 示された 階乗 マシン を 用いて 様々 な 

小さな 値 n に対する n! の 演算に 必要と される push の 数と ス タツ 
クの 最大 深さ を 計れ。 データから 任意 n  > 1 に対する n! を 求める 
の に 使用 さ れた push 命令の 総数 と スタック の 最大 深度 に 対す る n 
を 用いた 方程式 を 決定せ よ。 それぞれが n の 線形 関数で あり、 従 
つて 2 つの 定数に より 決定され る こ と に 注意せ よ。 統計が 表示 さ 
れる ために、 階乗 マシン を スタック を 初期化す る 命令と 統計 を 表 
示す る 命令 を 拡張し なければ ならない。 また 機械 を 変更す る こと 
で n に対する 値 を 繰り返し 読み込み、 階乗 を 求め、 結果 を 表示で き 
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るよう にしたい と 思う かもしれ ないだろう （我々 が Figure  5.4) で 
丁度 GCD マシンに 対して 行った ように)。 そうする ことで 繰り返し 
get-register-contents, set-register-contents  ！ ,  start ど 起動 

する 必要が 無くなる。 

Exercise  5.15: レンス タマ ンンの ソ^ ユレ 一 タ し instruction  count- 
ing (命令 数 カウンタ） を 追加せ よ。 これ は マシン モデルに 対して 実 
行され た 命令 数 を 追跡させる。 マシン モデルの ィ ン ター フヱ イス 
を 拡張し、 命令 力 ゥ ンタの 値 を 表示す る 物と カウンタ を ゼロに リ 
セッ ト する 新しい メッセージ を 受け入れる ようにせ よ。 

Exercise  5.1b: ソ^ ユレ 一 タ をお hi まし instruction 力 racino (命令 卜 レ 
—サ） を 追加せ よ。 これ は 各 命令が 実行され る 前に、 シ ミュレ 一 
タが 命令の テキス トを 表示す る。 マシン モデルに 対し ト レーザ を 
on/off する trace-on と trace-off  メ ッ セージ を 受け入れる よ う 
にせよ。 

Exercise  5.17:  Exercise  5.16 の 命令 ト レー サを 拡張し 命令 を 表示す 

る 前に シミュレータが コン トロー ラ シーケンス 内で その 命令の 直 
前の ラベル 表示す るに せよ。 命令 数 カウンタ （Exercise  5.15) に 干 
渉し ない 方法で 行うよう に 注意す る こと。 シミュレータに 必要な 
ラベル 情報 を 維持す るよう にす る こと が 必要 だ ろ う 。 

Exercise  5.18:  Section  5.2.1©  make-register 手続 を 変更し、 レジ 
スタを トレース 可能に せよ。 レジスタが トレースの on、  off を 行う 
メ ッ セージ を 受け入れ なければ ならない。 レジスタが トレース さ 
れ ている 時、 その レジスタ に対する 代入 は レジスタの 名前、 レジ 
スタの 古い 値、 代入され る 新しい 値が 表示され る こと。 マシン モ 
デルへの ィ ン ターフェ イス を 拡張し 指定され た 機械の レジスタに 
対する トレー サの on、  off を 可能に せよ。 

Exercise  5.19:  Alyssa  P.  Hacker はン ^ ユレ 一 タ 内し breakpoint フ 
レイク ボイ ン 卜） の 機能 を 欲しい と 思った。 それによ り 彼女の 機械 
設計 を 手助けす るた めで ある。 あなたが 彼女の ために この 機能 を 
導入す るた めに 雇用され た。 彼女 は コントローラ シーケンス 内で 
シミュレータが 停止す る 場所 を 指定し、 機械の 状態 を 調査す る こ 
とがで きる ようにして 欲しかった。 あなた は 以下の 手続 を 実装し 
ようと している。 

I.  set-breakpoint   (machine)  (label)  (n)) 
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これ は 与えられた ラベルの 後ろの n 番目の 命令の 直前に ブレイ ク 
ポイント を 設定す る。 例えば、 

I.  set-breakpoint   gcd-machme    '  test-b  4) 

上の 式 は ブレイク ポィ ントを gcd-machine の レジスタ a への 代入 
の 直前に ブレイク ポイント を 導入す る。 シミュレータが ブレイク ポ 
イン トに 到達す る 時、 ラベルと ブレーク ポイントの オフ セッ トを表 
示し、 命令の 実行 を 停止し なければ な リ ません。 する と Alyssa は 
get-register-contents と set-register-contents  ！ を 用レ、 しン 

ミュ レートされ ている 機械の 状態 を 操作す る こと が 可能 になる。 次 
に 彼女 は 以下 を 入力す る こと で 実行 を 続行で き な ければ な ら ない。 

、 proceed  -  machine   {machine} ) 

また 特定の ブレイク ボイ ン トを 以下 を 用いて 削除で きなければ な 
ら ない。 

I.  cancel-breakpoint   (machine)  (label) (n) ； 

または 全ての ブレイク ポイント を 削除す るた めに は 以下 を 用いる。 

に cancel-all-br eaKpomt  s   {machine; ) 


5.3 記憶 域の 割当と ガベー ジ コレクション 

Section  5.4 では レジスタ マシンと しての Scheme 評価 機 を どのように 実装 
する か を 示します。 議論 を 簡易 化する ために、 私達の レジスタ マシン は & 力- 
structured  memory( リス 卜 構造 メモリ） を 供えて いると 仮定 します。 こ の 機械 
では リスト 構造の データ を 操作す る 命令 は プリ ミ ティ ブ です。 そのような メモ 
リ が 存在 するとい う 仮定 は Scheme ィ ンタ プリ タの 制御の 仕組みに 集中す る 場 
合に は 有用な 抽象化です。 しかし これ は 現在の コンピュータの 実際の プリ ミテ 
ィ ブな データ 操作の 現実の 光景 を 反映して はいません。 Lisp システムが どのよ 
う に 動作す るかの よ り 完全な 理解 を 得る ために は、 リ ス ト 構造が どのよう に 旧 
来の コンピュータの メモリに 互換性の あ る 方法で 表現 される かにつ いて 調査 し 
なければ なり ません。 

リ ス ト 構造の 実装に は 2 つの 考慮 点が 存在し ます。 1 つ は 純粋に 表現 上の 問 
題です。 Lisp の ペアに よる" 箱と ポインタ" 構造 を スト レー ジと 典型的 な コ ン 
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ピュー タの メモリの アド レス 指定 能力 を 用いて どのように 表現す るか。 2 つ 目 
の 問題 は 演算が 進行す るに つれての メモリ 管理に 関係し ます。 Lisp システムの 
動作 は 決定的に、 継続して 新しい データ オブジェ ク トを 作る 能力に 依存して い 
ます。 これら は 逐次 実行され る Lisp 手続に よ リ 明示的に 作成され るォ ブジェク 
トと 同様に、 インタプリタ 自身に より 作成され る 環境 や 引数 リ ストの ような 構 
造 も 含みます。 持続的な 新しい データ ォ ブジェク 卜の 作成 は 無限の 容量で かつ、 
高速に ァ ドレス 指定で きる メモリ を 持つ コンピュータ 上で は 問題 を 起こさな 
いでしょう 力 卜 コンピュータの メモリ は 有限な 量し か あり ません （残念な こと 
に）。 Lisp システム は 従って 無限の メモリ という 空想 を サポート する automatic 
storage  a»0mton (自動 記憶 域 割当） の 設備 を 提供し ます。 データ オブジェ ク ト 
が 既に 必要で な く なった 時に、 それに 割 リ 当てられた メモリ は 自動的に リ サイ 
クルされ 新しく 構築され る データ オブジェ ク トに 利用され ます。 そのような 自 
動的な 記憶 域 割当 を 提供す る 多様な 技術が 存在し ます。 この 節で 私達が 議論す 
る 手法 は garbage  collection{JJ ベ一 ジコ レ クシ ヨン、 ゴミ 拾い） と 呼ばれます。 

5.3.1 ベクタと しての メモリ 

伝統的 な コンピュータの メモリ は 小さな 部屋の 配列 だと 考える こと がで き 

ます。 各 部屋 は 情報の 一片 を 入れる ことができます。 各 部屋 は a(WreSS (ァ ド レ 
ス） または location (位置；) と 呼ばれる 個 有の 名前 を 持ちます。 典型的な メモリ 
システム は 2 つの プリ ミ ティ ブな 命令 を 提供し ます。 1 つ は 指定され た 位置に 
格納され た データ を 取り出し、 もう 1 つ は 指定され た 位置に 新しい データ を 割 
リ 当てます。 メモリ アドレス は ある 部屋の 集合に シーケンシャル （順） な ァクセ 
スを サポート する ために ィ ンク リ メ ン ト する ことができます。 よ リ 一般的に は、 
多くの 重要な データの 操作 は メモリ アドレス を データして 扱う こと を 要求し ま 
す。 この データ は メモリ 上の 位置に 格納で き、 機械の レジスタ 上で 操作で きな 
ければ いけません。 リス ト 構造の 表現 は そのような address  arithmetic{J ドレ 
ス 演算） の 一つの 応用です。 

コンピュータ メモリ をモ デル 化す るた めに は、 "ector (ベ クタ） と 呼ばれる 
新しい 種類の データ 構造 を 用います。 抽象的に は、 ベクタ は 複合 データ ォブジ 
ェクト であり、 その 個別の 要素が 整数の 索引 を 用いて、 索引から 独立した 時間 
量で アクセス する ことができます。 5  メモリ 操作 を 説明す るた めに、 ベクタ を 
扱うた めの 2 つの プリミティブな Scheme 手続 を 使用し ま す。 

5 メモリ を 項目の リストと して 表現す る こと はでき ます。 しかし、 アクセス 時間 は その 
場合、 索引から 独立し ません。 リストの n 番目の 要素への アクセスが n  —1 回の cdr 命 
令 を 必要と する ためです。 
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. (vector-ref  <vector>  <n» はべ クタの n 番目の 要素 を 返す。 

•    (vector-set!  <vector>  <n>  <value>) はべ クタの n 番目の 要素に 指定 

された 値 を 設定す る。 

例えば、 v がべ クタで あるならば、 （vector-ref  v  5) はべ クタ v の 5 番目の 項 
目 を 取得し、 （vector-set!  v  5  7) はべ クタ v の 5 番目の 項目の 値 を 7 に 変更 
します。 6 コンピュータ メモリに 対して、 この アクセス は アドレス 演算 を 用い 
て、 メモリ 内の ベクタの 開始 位置 を 指定す る base  address 、ぺ一 ス (基底） ァ ド 
レス） とべ クタの 特定の 項目の オフセット を 指定す る irwfer (インデックス、 索 
引） を 組み合わせる ことで 実装す る ことができます。 

Lisp データの 表現 

ベクタ を 用いて リスト 構造 メモリ に対する 基本的な ペア 構造 を 実装す る こ 
とがで きます。 コンピュータ メモリが 2 つのべ クタに 分割され ている 所 を 想像 
してみ ましょう。 the-cars と the-cdrs です。 私達 は 次のように リスト 構造 を 
表現し ます。 ペアに 対する ポイント は 2 つのべ クタへの 索引です。 ペアの car 
は the-cars に 指定した 索引 を 用いた 項目です。 そして ペアの cdr は 指定され 
た 索引 を 用いた the-cdrs の 項目です。 また ペア 以外の オブジェ ク ト （例えば 
数値 や シンボル） に対する 表現と データの 種類 をお 互いに 見分ける ための 手法 
も 必要になります。 これ を 達成す る 方法 は 多数 存在し ますが、 しかし それら は 
全て fypedpoin な rs (型 付き ポインタ） の 使用へ と 帰します。 これ はつ まり、 "ポ 
インタ" の 概念 を 拡張し データの 型の 情報 を 含める ことです。 7 データの 型 は 
システムに ペアの ボイ ンタ （"ペア" データ 型と メモリべ クタ を 指す 索引から 成 
リ 立つ） を 他の 種類の データへの ポインタ （何ら かの 他の データ 型と その 型 を 
表現す るた めに 利用され た 何 かにより 成り立つ） を 見分ける こと を 可能に しま 
す。 2 つの データ ォブ ジヱク トは それらの ポインタが 全く 同じで ある 場合に 同 
じ （eq?) だと 判断され ます。 8Figure  5.14 はこの 手法 を 用いて リスト （（1 2)  3 

6 完全に する に は、 ベクタ を 構築す る make-vector 命令 を 指定す るべき です。 しかし、 
現在の アプリ ケーシ ョ ン ではべ クタ を コ ン ピュー タメ モ リ の 固定 区域 を モデル 化する た 
めに のみ 使用し ます。 

7 これ は 正確に Chapter  2 で 紹介した ジェ ネリ ック （総称） な 命令 を 扱うた めの "タグ 
付き データ" と 同じ 考えです。 ここで はしかし、 データの 型 は リストの 使用 を 通して 構築 
される のでな く、 プリ ミ ティ ブな 機械 レベルに て 含まれます。 

8 型 情報 は Lisp システムが 実装され る 機械の 詳細に 依存して 多様な 方法で エンコード 
(encode, 符号化） される でしよう。 Lisp プログラムの 実行 効率 はこの 選択が どれ だけ 明 
確に 行われた かに 強く 依存し ます。 しかし 良い 選択の ための 一般的な 設計 ルール を 形式 
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4) を 表現す る 場合 を 図示して います。 その 箱と ポインタ 図 もまた 示されて い 
ます。 私達 は 文字 接頭辞 を データ 型 情報 を 示す ために 使用して います。 従って、 
ペアに 対する 索引 5 を 伴な う ボイ ンタは P5 と 示されます。 空 リスト はポ イン 
タ eO で 示されます。 そして 数値 4 への ポインタ は n4 として 示されます。 箱と 
ポインタ 図に おいて 各 ペアの 左 隅に ペアの car と cdr が どこに 格納され るか を 
指定す るべ クタの 索引 を 表示し ました。 

数値への ボイ ン タ、 例え ば n4 は 数値 デー タ を 示す 型 と 実際の 数値 4 の 表現 
から 成り立つ でしよう。 9 単一の ポインタ のために 獲得され た 固定長の メモリ 
の 中で 表現され るに は 大き 過ぎる 数値 を 扱うた め に は、 独特 な bignum、 ビ ッ グ 
ナンバー） データ 型 を 使う ことができる でしよう。 このための ボイ ンタは 格納 
される 数値の 部分が 格納され る リスト を 指定し ます。 1Q 

シンボル は その 表示 内容 を 形成す る 文字の 列 を 指定す る 型 付き ボイ ンタと 
して 表現され る ことができる でしよう。 この 列 は Lisp の reader により、 最初 
に 入力の 中の 文字列に 出くわした 時に 構築され ます。 2 つの シンボルの ィ ンス 
タン スカ 《eq? により "同じ" シンボル であると 認識され て 欲しい ことと、 eq? に 
ボイ ン タ の 等価 性の ための 簡単な テストに なって 欲しい ことから、 もし reader 
が 同じ 文字列 を 2 回 見た 場合、 （同じ 文字列に 対する） 同じ ポインタ を 両方の 出 
現に 対して 表現す るた めに 利用す る こと を 保証し なければ なりません。 これ を 
達成す るた めに は、 reader は 伝統的に 0&arraj/( 才 ブジェク 卜 配列） と 呼ばれる 
出会った 全ての シン ボルの 表 を 管理 します。 reader が 文字列 に 遭遇 し シ ン ボル 
を 構築しょう とする 時、 obarray を チェックし 同じ 文字列 を 以前に 見て いない 
か 確認し ます。 もし 初見で あれば、 文字列 を 用いて 新しい シンボル （新しい 文 
字 列に 対する 型 付き ポインタ） を 構築し、 この ポインタ を obarray に揷 入し ま 

化する こと は 難しい こ とです。 型 付き ボイ ンタを 実装す る 最も 簡単な 方法 は 固定長の ビ 
ッ ト 集合 を 各 ボイ ンタの 中で データ 型 を エンコードす るね pe/ieM (型フ ィ 一ル ド、 とする 
様に 割リ 当てして おく ことです。 そのよう な 表現 を 設計す るに おいて 解決すべき 重要な 
問題 は 次 を 含みます。 いくつの 型ビッ トが 必要と される か？ ベクタの 索引の 長さ は どれ 
だけ 必要 か？ どれ だけ 効率 良く プリ ミ ティブな 機械語 命令が ポインタの 型 フィールドの 
操作に 使用で きる か？ 型 フィールド を 効率 良く 扱うた めの 特別な ハードウェア を 含む 機 
Wttagged  architectures 、タグ ァ一 キ亍 ウチヤ ~) を 持つ と言われます。 

9 この 数値の 表現 上の 決断 は ボイ ンタの 等価 性 を テス 卜する eq? が 数値の 等値 性の 試 
験に 使用で きる かどう か を 決定し ます。 もし ポインタが 数値 それ 自身 を 含む 場合、 等し 
い 数値 は 同じ ボイ ンタを 持ちます。 しかし もし ボイ ン タ が 数値が 格納 さ れる 位置の 索引 
を 持つ 場合、 私達が 同 じ 数 を 複数の 位置に 格納 しない ことに 注意し ない 場合に 限り 等し 
V 、数値が 同 じ ポインタに なること が 保証され ま す。 

10 これ は 丁度 数値 を 数字の 列と して 書く の に似てい ます。 ただし 各 "桁" が 0 から 単一 
の ポインタ に 格納で きる 最大の 数の 間 になる こと が 異な り ま す。 
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Figure  5.14: リスト （ （1 2)  3  4) の "箱 と ポィ ンタ" と メモ 

リベ クタの 表現 


す。 もし reader が 既に その 文字列 を 見て いれば、 obarray に 格納され ている シ 
ン ボルの ポインタ を 返します。 この 文字列 を 一意な ポインタで 置き換える 処理 
はシ ン ボルの interning (抑留） と 呼ばれます。 

プリ ミ ティ ブな リスト 命令の 実装 

上記の 表現の 構想 を 与えられた 時に、 レジスタ マシンの 各" プリ ミ ティ 
ブ" な リスト 命令 を 複数の プリミティブな ベクタ 命令で 置き換える こと がで き 
ます。 2 つの レジスタ the-cars と the-cdrs を 用いて メモ リ べク タ を 特定し、 
vector-ref と vector-set  ！ が プリミティブな 命令と して 有効で あると 仮定し 
ます。 また ポインタ 上の 演算 命令 （例えば ポインタ を インクリメント する、 ぺ 
ァの ポインタ を 用いて ベクタ を 索引 付けす る、 または 2 つの 数値 を 足す） は 型 
付 き ボイ ン タの 索引 部分 し か 利用 し ません。 

例えば、 次の 命令 をサ ポー ト する レジスタ マシン を その 下の 条件の 下で 作成す 
る ことができます。 

i,  assign  (regi) 、op  car;    (reg  (re (； 2)) ) 
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( assign  く repi〉    (op   cdr )    (reg  (reg2)) ) 

上の 命令の それぞれに 対し これら が 実装 されて いると します。 


に assign  (reai) 、op  vector- re ェ 
に assign  (reai) 、op  vector- re ェ 

以下の 命令 は、 

^perform  (op  set-car ！ )  (reg 
(perform   (op   set - cdr!)  (reg 

次のように 実装され ます。 


) (reg  the-cars  )    (reg  (reg2) ) ) 

) (reg  the-cdrs  )    (reg  {reg2) ) ) 

{regi})  (reg  (rep2))) 

(regi))  (reg  {re^})) 


(perform 

(op  vector-set  ！  )    (reg  the-cars )    (reg  {regi})    (reg  {reg2} ) ) 
(perform 

( op  vector-set  ！  )    (reg  the-cdrs )    (reg  {regi})    (reg  {reg2} ) ) 

cons は 未使用の 索引 を 割り当て、 cons の 引数 を the- cars と the-cdrs の 中で 

索引 付けられた ベクタの 位置に 格納し ます。 私達 は 特別な レジスタ、 む ee が存 
在し、 常に 次に 使用可能な 索引 を 持つ ペア ポインタ を 保つ と 仮定し ます。 そし 
て その ボイ ンタの 索引 部分 を インク リ メント する ことで 次の 空き 位置 を 探す こ 
とがで きます。 11 例えば、 以下の 命令 は 

assign  (regi)   、op  cons;    (reg  {re^})    (reg  {regs))) 

次の 一連の ベクタ 命令と して 実装され ます。 12 

^perform 

(op  vector-set ！ )    (reg  the-cars )    (reg  free)    (reg  く rep2〉 ノ) 
(perform 

(op  vector-set ！ )    (reg  the-cdrs )    (reg  f ree )    (reg  {reg^} ) ) 
(assign  {regi}    (reg  free)) 

(assign  free    (op  +)    (reg  free )    ( const 1) ) 

11 空きの 記憶 域 を 探す 他の 方法 も 存在し ます。 例えば、 全ての 未使用の ペア を リンクし 
て free  list (空き リス ト） にす る こと もで きたでしょう。 私達の 空き 位置 は 連続 的 （従って 
ポインタ を インクリメント する ことで アクセス 可能で あるた め） です。 なぜなら 私達が 圧 
縮 GC を 用いて いるた めです。 また Section  5. 3. 2 も 参照して 下さい。 

12 これ は 本質的に Section  3.3.1 で 説明した set-car! と set-cdr! を 用いた cons の 実 
装です。 その実 装 内で 使用され た 命令 get- new-pair はこ こで は free ボイ ンタ によ り 実 
現されて います。 
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以下の eq? 命令 は 

、op  eq? )    (reg  {regi})    、reg  (re (； 2}) 

単純に レジスタ 内の 全ての 項目の 等価 性 を テス ト します。 そして pair?,  mill?, 
symbol?,  number? 等の よ う な 述語 は 型フィ ール ド のみ を 確認す る 必要が あ リ 

ます。 

ス タツ クの 実装 

私達の レジスタ マシン は スタック を 用います が、 ここで は 特に 特別 な こと 
を 行う 必要が あり ません。 スタック は リスト を 用いて モデル 化する ことができ 
るた めです。 スタック は 保存した 値の リストと する ことができ、 特別な レジス 
タ the-stack により 指し示されます。 従って （save  <reg» は 以下の ように 実 
装す る ことができます。 

^assign  the - stack    ( op   cons )    (reg  \reg) )    (reg  the-stack; ) 

同様に、 （restore  <reg>) は 次のように 実装す る ことができます。 

に assign  <^reg)    k  op   car)    、reg  the-stack) ) 
(assign  the-stack    (op   cdr )    (reg  the-stack) ) 

そして （perform  (op  initialize-stack) ) は 以下の ように 実装す る ことが で 

きます。 

に assign  the-stack    ( const    k)) J 

これらの 命令 は 上で 与えられた ベクタ 命令 を 用いて さらに 伸展され ます。 しか 
し、 伝統的な 計算機 アーキテクチャ において は スタック を 別の ベクタと して 割 

リ 当てる こと は 通常 は 好都合です。 そうすれば、 スタックに push や pop を 行 

う こと はべ クタに 対する 索引 を インク リ メ ン ト、 デク リ メ ン ト する ことにより 
達成す る ことができます。 

Exercise  5.20: 以下の 式から 生成され る リ ス ト 構造の 表現と （Fig- 
ure 5.14 にある よ うな） メモ リ -ベクタ 表現の 箱と ポィ ンタ図 を 
描け。 

(define  x  ( cons 1 2; ) 
(define  y   ( list  x  x ; ) 
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ただし、 free ポインタの 初期値 は pi とする。 free の 最終的な 値 
は 何 か？ どんな ボイ ンタが x と y の 値 を 表現す るか？ 

Exercise  5.21: 以下の 手続の ための レジスタ マシン を 実装せ よ。 リ 
スト 構造の メモリ 命令 は 機械の プリミティブ として 使用可能 だと 
仮定せ よ。 

a 冉き count-leaves: 

(define    (count -丄 eaves   tree ) 
(cond   ( (null?   tree)  0) 

( (not    (pair?   tree) ) 1) 

(else    (+    ( count-leaves    ( car  tree ) ) 

( count-leaves    ( cdr  tree)))))) 

b 明示的な カウ ンタを 用いた 再帰 count-leaves 

(define    (count -丄 eaves   tree ) 
( dei ine    ( count - iter  tree  n) 
(cond   ( (null?   tree )  n) 

( (not    (pair?   tree) )    (+  n 1) ) 
(else 

( count- iter    ( cdr  tree ) 

( count- iter    (car  tree ) 
n))))) 

( count-iter  tree  0)) 

Exercise  5.22:  Section  3. 3.1 の Exercise  3.12 は 2 つの リスト を 接続 
し 1 つの 新しい リ ス ト を 形成す る append 手続と、 2 つの リ スト を 
一緒に 繋ぎ合わせる append! 手続 を 紹介した。 これらの 手続 それ 
ぞれを 実装す る レジスタ マシン を 設計せ よ。 リスト 構造の メモリ 
命令 は プリミティブな 命令と して 使用可能と 前提せ よ。 

5.3.2 無限の メモリの 幻想 を 維持す る 

Section  5.3.1 で 概観した 表現 手法 はリ ス ト 構造の 実装 上の 問題 を 解決し ま 
したが、 無限の 容量の メモリ を 持って いる 場合と いう 条件付きでした。 実際の 
コンピュータ ではい つか は 新しい ペア を 構築す るた めの 空き 容量 を 使い切って 
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しまいます。 13 しかし、 典型的な 演算に より 生成され る ペアの 多く は 中間 結果 
を 保った めだけ に 使用され ます。 これらの 結果が アクセス された 後に は、 それ 

らの ペア はもう 必要ありません。 それら は ffar6age (ゴミ ） です。 例えば、 以下の 
演算 は 

(, accumulate   +  0   (filter  odd  r    ( enumerate -interval 0  n) ; ) 

2 つの リスト を 構築 します。 enumaration (列挙） と 列挙 を フィルタ リン グ し た 
結果です。 accumulation (集積） が完 了した 時に、 これらの リスト はもう 必要 あ 
リ ません。 そして 割リ 当てられた メモリ は 返還 要求で きます。 もし 全ての ゴミ 
を 定期的に 回収す る 準備 を 行える ので あれば、 そしても しこれが 新しい ペア を 
構築す るのと 大体 同 じ 比率で メモ リ を リ サイクル する こ と になれば、 無限の 容 
量の メモリ が 存在す ると いう 錯覚 を 維持す る ことができます。 

ペア を リサイクル する ために は、 どの 割り当てられた ペアが 必要で ない 
か （それらの 中身が その後 将来の 演算に 影響 しないと いう 意味で） 決定す る 
方法 を 持たねば な リ ません。 これ を 達成す るた めに 調査す る 手法 は 卯 rtoffe 
collection [ガベー ジ コレクション、 GC) として 知られて います。 ガベー ジコレ 
クシ ョ ンは Lisp の 逐次 実行に おける 任意の 時点で、 将来の 演算に 影響 を 与え 
る ことができる オブジェ ク トは 現状で 機械の レジスタ 内に 存在す る ボイ ンタに 
よ り迪り 着く ことができる オブジェ ク ト のみで あると いう 観察 結果に 基いて い 
ます。 14 そのよう に アクセス できない どの メモリ セル も リサイクルして 良いで 
しょう。 

ガベー ジコ レ クシ ヨン を 実行す る 方法 は 数多く 存在し ます。 ここで 調査す 
る 手法 は stop-and-copy と 呼ばれます。 基本的な 考え は メモリ を 2 つに 割リま 
す。 "ワーキング メモリ" と" 空き メモリ" です。 cons が ペア を 構築す る 時、 ヮ 
一 キング メモリに 割リ 当てます。 ワーキング メモリに 空きが 無い 時、 ヮー キン 

13 これ はいつ か は 正しく はなくなる かも しれません。 なぜなら メモリ が 十分に 大き く 
なれば コンピュータ の 生存 時間の 間 に は 空き メモリ を 使レ 、切る こと は 不可能 になる かも 
しれない からです。 例えば 一年 は 3. 1013 マイクロ 秒です から、 もし 1 マイクロ 秒に 1 
回 cons を 行う ので あれば、 30 年間 は メモリ を 使い切る ことのない コンピュータ を 構築 
する のに は 約 1015 セルの メモリ を 必要と します。 それだけの メモリ は 今日の 標準で は 話 
にならない 程 大きく 見えます が、 しかし 物理的に 不可能で はありません。 一方で、 プロ 
セ ッサ はよ リ 速くな リ つつ あり 未来の コンピュータ は 数多 くの プロセッサ を 並列に 単一 
の メモリ 上で 作動す るか もしれ ません。 従って 私達の 前提よりも よい 早く  メモリ を 使い 
切る ことが 可能 かも しれません。 

14 ここで は スタック は Section  5.3.1 で 説明され た リストと して 表現され ている と 仮定 
しています。 そのため スタック 上の 項目 はス タック レジス タ 内の ポインタ を 通して ァク 
セス する ことができます。 
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グ メモリ 内の 使い道の ある 全ての ペア を 探し出し、 これら を フリー メモリ 内の 
連続した 位置に コピーす る ことで ガベー ジ コレクション を 実行し ます。 （使い 

道の ある ペア は 機械の レジスタから 始めて、 全ての car と cdr の ポインタ を 追 
跡す る ことにより 探し出します)。 ゴミは コピーし ないた め、 推定 上、 新しい 
ペア を 割り当てる ための 利用で きる 追加の 空き メモリ が 存在す る はずです。 加 
えて、 ワーキング メモリ 内の 全てが 必要ありません。 その 中の 使い道の ある ぺ 
ァは コピーされ ています。 従って ワーキング メモリ と 空き メモリの 役割 を 交換 
すれば、 処理 を 続ける ことができます。 新しい ペア は 新しい ワーキング メモリ 
(空き メモリ だった 物） の 中に 割り当てられます。 これが いっぱいに なったなら、 
使い道の ある ペア を 新しい 空き メモリ （ワーキング メモリだった もの） の 中に 
コピーで きます。 15 

stop-and-copy ガベー ジコ レ クタ の 実装 

今から 私達 は レジスタ マシン 言語 を 用いて stop- and- copy アルゴリズム を 
よ リ 詳細 に 記述し ます。 私達 は root と 呼ばれる レジスタ が 存在 し、 ある 構造 
体への ボイ ンタを 保持し、 その ポインタから 最終的 に は 全て の アクセス 可能な 

15 この 考え は Minsky (ミンスキー） により 発明され、 MIT 研究所の 電子工学 ラボの 
PDP-1 に対する Lisp の 実装の 一部と して 実装され ま した。 Fenichel  and  Yochelson 
(1969) により Multics 時分 割 システムの Lisp 実装で 使用す るた めに、 さらに 開発が 進め 
られ ました。 後に、 Baker  (1978) はこの 手法の" リアルタイム" 版 を 開発し ました。 こ 
れは ガベー ジ コレクションの 間に 演算 を 停止す る 必要が ありません。 B aker の 考え は 
Hewitt,  Lieberman,  Moon によ り 拡張され （Lieberman  and  Hewitt  1983 参照）、 ある 構 
造 は volatile (揮発性） であり、 別の 構造 はよ リ 永続 的で あると いった 事実 を 活用す る 様に 
なりました。 

一般に 利用され る 代替 的な ガベー ジ コレクションの 技術 は? narfc-sweep (マーク アン ド 
スイープ） の 手法です。 これ は 回帰の レジスタから アクセス 可能な 全ての 構造の 追跡と 迪 
リ 着く 各 ペアへの マーキングから 成り立ちます。 次に 全ての メモリ を 走査し、 マークの 
無い 全ての メモリ はゴミ として" 掃き出し"、 再 使用可能と されます。 マーク アンド スィ 
一 プの+ 分な 議論 は Allen  1978 の 中に 見つけられます。 

Minsky-Fenichel- Yochelson アルゴリズム は 巨大な メモリ システム に対する 使用に お 
ける 支配的な アルゴリズムです。 メモリの 使い道の ある 部分の み を 調査す るた めです。 こ 
れは スィー プの 段階で 全て の メモリ を 確認 し な ければ な ら ない mark-and-sweep と は 対 
照 的です。 stop-and-copy の 2 つ 目の 強み は compaciijigf 圧縮） ガベー ジコ レ クタで ある 
ことです。 つまり、 ガベー ジ コレクションの 段階の 終わりに は 使い道の ある データ は 連 
続した メモリ 位置に 移動され、 全ての ゴミ ペア は 圧縮の 仮定で 外に 出されます。 この こ 
とが 仮想 メモリ を 使用す る 機械に おける パフォーマンス 上の 考慮に おいて 非常に 重要と 
成 リ 得ます。 仮想 メ モ リ を 使用す る 機械 は 広範囲に 分離され た メモ リ ァ ド レスへの ァク 
セ ス に 余計な ページ ン グ 処理が 必要 となる かも しれません。 
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データ を 指し示す ことができる という 前提 を 行います。 これ は ガベー ジ コレク 
シ ヨン を 行う 直前に 全ての レジスタの 中身 を 事前に 割り当てられた リストに 格 

納し、 root により 指し示させる ことで 準備が 行えます。 16 私達 はまた 現在の ヮ 
一 キング メモリ に加えて、 使い道の ある データ を コ ピーで きる 空き メモリ が存 
在す ると 前提し ま す。 現在の ワーキング メモリ は ベース アドレス が the-cars 
と the-cdrs と 呼ばれる レジスタに 格納され るべ クタから 成り立ち、 そして 空 
き メモリ は 同様に new-cars と new-cdrs と 呼ばれる レジスタに 格納され ます。 

ガベー ジコ レ クシ ヨン は 現在の ワーキング メモリ 内の 空き セルが 枯渴 した 
時に 引き起こされます。 それ はつ まり、 cons 命令が free ポインタ を メモリべ 
ク タ の 終端 を 越えて ィ ンク リメ ント しょうと し た 時です。 ガベー ジ コレ クシ ョ 
ンの 処理が 完了した 時、 root ポインタ は 新しい メモリの 中 を 指し示し、 root 
から アクセス 可能な 全ての オブジェ ク トは 新しい メモリ に 移動され ています。 
そして free ボイ ンタは 新しい メモリ 内の 新しい ペア を 割り 当て られる 次の 位 
置 を 示します。 加えて、 ワーキング メモリと 新しい メモリの 役割が 交換され ま 
す。 新しい ペア は free によ リ 指し示される 位置から 始まる 新しい メモリ 内に 
構築され、 （以前の） ワーキング メモリ は 次の ガベー ジ コレクション に対する 新 
しい メモリと して 使用可能 となり ます。 Figure  5.15 は ガベー ジ コレクション 直 
前、 直後の メモリの 割り振り を 示します。 

ガベー ジ コレ クシ ョ ン 処理の 状態 は 2 つの ボイ ンタを 管理す る ことにより 
コントロールされ ています。 free と scan です。 これら は 新しい メモリの 開始 
位置 を 指し示す ように 初期化 されます。 アルゴリズム は！ ■oot により 指し示さ 
れる ペアの 新しい メモリの 開始 位置への 再配置 か ら 開始 されます。 ペア はコピ 
一され、 root ポインタ は 新しい 位置 を 指す ように 調整され ます。 そして free 
ポインタが インクリメント されます。 併せて、 ペアの 古い 位置 は その 中身が 移 
動され たこと を 示す マークが 付けられます。 この マーキン グは 次の よ う に 行わ 
れ ます。 car の 位置に はこれ が 既に 移動され たォ ブジェク ト である こと を 示す 
特別 な タグ を 置きます。 （そのような オブジェクト は 伝統的 に broken  heart ゆ 
恋） と 呼ばれます。 ）17cdr の 位置に は /onmrdinff  a(Wress (転送先） を 置きます。 
これ は ォブジ ェクト の 移動 先の 位置 を 指し示し ま す。 

root の 再配置の 後に、 ガベー ジ コレクタ は 基本 となる サイクルに 入ります。 
アル ゴリ ズム の各ス テツ プ において、 scan ポィ ンタ （初期値と して 再配置 後の 
root を 指す） は、 新しい メモリに 移動され たが その car と cdr の ポインタ 力 《 依 

16 この レジスタの リス 卜 は 記憶 域 割当 システムの レジスタ  一 root,  the-cars,  the- 
cdrs, それに こ の 節で 紹介され る 他の レジス タ は 含みません。 

17  broken  heart という 用語 は David  Cressey によ リ 作られました。 彼 は 1970 年代 初期 
の 間に MIT で 開発され た Lisp の 方言、 MDL のために ガベー ジコ レ クタ を 書き ま した。 
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Figure  5.15: ガべ一 ジコ レ クシ ヨン プロセス による メモリ 
の 再構成 
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然として 古い メモリ 内の オブジェ ク トを 参照して いる ペア を 指します。 これら 

のォ ブジェク トは それぞれが 再配置され、 scan ボイ ン タはィ ンク リメ ントさ 
れ ます。 オブジェクト （例えば 走査して いる ペアの car ポインタ により 指され 
たォ ブジェク ト） を 再配置す るた めに は その オブジェ ク トが 既に 移動され てい 
ないか を （その オブジェ ク トの car の 位置 内に broken- heart タグが 存在す る こ 
によ リ 示されて いない 力、） 確認し ます。 も しォ ブジェク トが まだ 移動され てい 
なければ、 それ を free により 示される 位置に コピーし、 free を 更新し、 ォブ 
ジェク トの 古い 位置に broken- heart を 設定し、 その オブジェ ク ト への ボイ ンタ 
を （この 礼で は、 走査して いる ペアの car ポインタ を） 更新し、 新しい 位置 を 指 
すよう にします。 もし オブジェクトが 既に 移動され ている 場合に は、 （broken 
heart の cdr の 位置に 見つかる） その 移動 先 は 走査 中の ペアの ボイ ンタに 置き 
換えられます。 最終的に は、 scan ポインタが free ポインタ を 追い越す 時点 ま 
で、 全ての アクセス 可能な オブジェクト は 移動され、 精査され ます。 そして 処 
理は 停止し ます。 

stop- and- copy アル ゴリ ズムを レジスタ マシンの 命令 列と して 記述す る こ 
とがで きます。 オブジェ ク トの 再配置の 基本的な ステップ は！ ■elocate-old- 
result-in-new と 呼ばれる サブルーチン にて 達成され ます。 この サブルーチン 
は その 引数と して 再配置す るォ ブジェク トの ボイ ンタを old という 名の レジス 
タ から 取得し ます。 これ は 指定され た オブジェクト を 再配置し、 （処理の 間に 
free を インクリメントし）、 再配置 された オブジェ ク トを 指す ポインタ を new 
と 呼ばれる レジスタに 入れます。 そして！ ■elocate-contimie レジスタに 格納 
さ れ たェン ト リ ボイ ン ト へ 分岐す る こ と で 帰 リ ます。 ガベー ジ コレクション を 
始める ために、 この サブルーチン を 起動して、 free と scan を 初期化した 後に 
root ポインタ を 再配置し ます。 root の 再配置が 完了した 時に、 new ポインタ を 
新しい root として 導入し、 ガベー ジ コレクタの メイン ループに 入ります。 

begin - garbage - collect ion 

( assign  free    i,  const   0) ) 

( assign  scan    (const  0)) 

( assign  old   (reg  root)) 

( assign  relocate- continue 

( goto    (label  relocate - old 
reassign-root 

( assign  root   (reg  new) ) 

( goto    (label gc - loop)) 

ガベー ジ コレクタの メイン ループで は 走査すべき オブジェ ク トが 残って いるの 


、上 abel  re as sign - root ) ) 
-re  suit -in-new) ) 
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か 決定し なければ な リ ません。 これ を scan ボイ ンタが free ボイ ンタと 一致 
する かどう か を 試験す る ことで 行います。 もし ポインタが 等しければ、 全ての 
アクセス 可能な オブジェクトの 再配置 は 完了し、 gc-flip へと 分岐し ます。 こ 
こ は 後片付け を 行い、 割り込みが 行われた 演算 を 継続し ます。 もし まだ 走査す 
べき ペアが 残って いるので あれば、 再配置 （relocate) の サブルーチン を 呼び出 
し 次の ペアの car を （old 内の car ポィ ンタを 配置す る ことで） 再配置し ます。 
relocate-continue レジスタの 設定に よ リサ ブルー チン は car ポィ ン タを更 
新す るた めに 帰り ます。 

gc - loop 

i.test    (op  =;    i.reg   scan)    (reg  free  ノ) 
(branch    (label  gc-f lip ) ) 

(assign  old   (op  vector-ref )    (reg  new-cars )    (reg  scan) ) 
(assign  relocate-continue    (label  update-car) ) 
( goto    (label  relocate-old-result-in-new)) 


update-car にて、 精査して いる ペアの 
の cdr を 再配置す るた めに 向かいます。 
つてき ます。 再配置と cdr の 更新の 後に 
プを 継続し ます。 


car ポインタ を 変更し ます。 次に ペア 
再配置が 完了す る と update-cdr に 帰 
•、 その ペアの 精査 を 完了し メイン ルー 


uudate-car 

(perform   (op  vector-set ！ ) 
(reg  new- car s ) 
(reg   scan ) 
(reg  new ) ) 

(assign  old   (op  vector-ref )    (reg  new-cdrs )    (reg  scan) ) 
(assign  relocate-continue    (label  update-cdr ) ) 
( goto    (label  re locate- old-re sult-in-new)) 

update-cdr 

(perform   (op  vector-set ！ ) 
(reg  new-cdrs ) 
(reg   scan ) 
(reg  new ) ) 

(assign  scan   (op  +)    (reg   scan)    ( const 1) ) 
( goto    (label  gc - loop)) 
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サブルーチン relocate-old-result-in-new はォ ブジェク ト を 次の よう に 再 配 
置し ます。 も し （old により 指し示される） 再配置すべき オブジェ ク トが ペア 
でない な ら、 その オブジェ ク ト への 同じ ボイ ンタを 変更 無しで （new の 中で） 
返します。 （例えば、 car が 数値の 4 である ペア を 精査して いると します。 も 
し Section  5.3.1 にて 説明され ている ように n4 で car を 表現す るの なら、 "再 配 
置 さ れた "car の ポインタ も 依然として n4 であって 欲しい と 願う はずです)。 そ 
うでなければ、 再配置 を 実行し なければ なりません。 もし ペアの 再配置すべき 
car の 位置に broken- heart タグ を 持つ のなら ば、 その ペア は 実際に は 既に 移動 
されて います。 従って （broken- heart の cdr の 位置から） 移動 先 を 取得し、 これ 
を new に 入れて 返します。 も し old 内の ポィ ンタ がま だ 移動され ていない ペア 
を 指す 場合、 その ペア を （free が 指し示す） 新しい メモリの 最初の 空き セルに 移 
動 させ、 broken- heart タ グと 移動 先 を 元の 位置に 格納す る ことで broken- heart 
を 設定し ます。 relocate  -  old -! •esult  -  in  -  new は レジスタ older を 用いて old 
により 指し示される オブジェ ク トの car または cdr を 保持し ます。 18 

relocate - old - result - in - new 

(test    (op  pointer-to-pair?;    vreg  old)) 

(branch    (label  pair ) ) 

(assign  new   (reg  old) ) 

( goto    (reg  re locate- continue ) ) 
pair 

(assign  older    ( op  vector-ref )    (reg  the - cars)    (reg  old)) 
(test    (op  broken-heart?)    (reg  older)) 
(branch    (label   already-moved) ) 
(assign  new   (reg  free)) ；ぺズ の 新し レヽ 
；; free ポィ ンタを 更新す る 

(assign  iree    v op  +)    、reg  free )    ( const 1； ) 
；; car と cdr を 新しい メモリ に コピーす る. 
(perform   (op  vector-set ！ ) 

(reg  new- car s )    (reg  new)    ( reg  older ) ) 
(assign  older    (op  vector-ref )    (reg  the-cdr s )    (reg  old)) 

IS ガベー ジ コレクタ は 低 レベルの 述語 pointer-to-pair? を リス ト 構造 pair? 命令の 
代わり に 使用し ます。 実際の システム では 様々 な 物が ガベー ジ コレクションの 目的の た 
めに ペアと して 扱われる ためです。 例えば、 IEEE 標準に 準拠す る Scheme システム では 
手続 オブジェ ク トは 特別な 種類の "ペア，， と して 実装 されても 良く これ は 述語 pair? は 
満たしません。 シミュレーションの 目的に は、 pointer-to-pair? は pair? として 実装で 
きます。 
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(perform   (op  vector-set ！ ) 

(reg  new- cdr s )    (reg  new)    ( reg  older)) 

；; ブロークンハートの 構築 

(perform   (op  vector-set ！ ) 

(reg  the - cars)    (reg  old )    ( const  broken-heart)) 

(perform 

(op  vector-set ！ )    (reg  the-cdrs )    (reg  old)    (reg  new)) 
( goto    (reg  re locate- continue ) ) 
already-moved 

(assign  new   (op  vector - ref)    (reg  the-cdrs )    (reg  old)) 
( goto    (reg  re locate- continue ) ) 

ガベー ジ コレクション 処理の 最後に、 メモリの 新旧の 役割 を ボイ ンタを 交換 
する しとに より 父 化 し ま す。 the-cars と new-cars、 てして the-cdrs を new - 
cdrs を 交換し ます。 これで 次回 メモリが 枯渴 した 時に もう 一度 ガベー ジコレ 
クシ ヨン を 行う 準備が で きます。 

gc-f lip 

(assign  temp    、reg  the-cdrs ) ) 
(assign  the-cdrs    (reg  new - cdrs)) 
(assign  new - cdrs    (reg  temp)) 
(assign  temp    (reg  the - cars)) 
(assign  the - cars    (reg  new-cars ) ) 
(assign  new-cars    (reg  temp)) 


5.4 明示的 制御 評価 機 

Section  5.1 では 簡単な Scheme プロ グラム を どの ように レ ジス タマ シンの 
記述に 変形す るかに ついて 学びました。 ここで はこの 変形 をより 複雑な プロ グ 
ラム 上で 実行 します。 Section  4.1.1-Section  4.1.4 のメ タ 循環 評価 機です。 メタ 循 
環 評価 機 は Scheme インタ プリ タの 振舞が 手続 eval と apply と 用いて どのよ 
う に 説明で きる か を 示しました。 こ の 節で 開発す る expZicii-coniroZ  em/Mtor (明 
示 的 制御 評価 機） は 評価 過程に て 使用され る 潜在的な 手続 呼 出と 引数 受け渡し 
の 仕組みが レジスタと スタックの 命令 を 用いて どのように 説明で きる か を 示し 
ます。 付け加えて、 明示的 制御 評価 機 は Scheme インタプリタの 実装と しての 
役割 を 果たす ことができ、 従来の 計算機の 生来の 機械語と とても そつく リ な 言 


587 


Figure  5.16:  Scheme 評価 機の シ リ コ ンチッ プ 実装 


語で 書かれて います。 この 評価 機 は Section  5.2 の レジスタ マシン シミ ユレ ータ 
により 実行す る こと がで きます。 あるいは、 Scheme 評価 機の 機械語 実装 を 構 
築す るた めの 開始 点 として 使用す る こと がで きます。 または Scheme の 式 を 評 
価す るた めの 特殊 用途の 機械に すら 使用で きる でしよう。 Figure  5.16 は そのよ 
うな ハードウェア 実装 を 示して います。 Scheme の 評価 機と して 働く シリ コン 
チップです。 この チップの 設計者 はこの 節の 中で 説明され る 評価 機に 似た レジ 
スタ マシンに 対する データ パスと コントローラの 仕様から 開始し ました。 そし 
て IC  (integrated- circuit, 統合 回路） を 構築す るた めの 設計 自動 化 プログラム を 
使用し ました。 19 


19 この チップと その 設計 手法に ついての よ り 多くの 情報に ついては Batali  et  al. 1982 を 
参照して 下さい。 
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レジスタと 命令 


明示的 制御 評価 機の 設計で は、 私達の レジスタ マシ ンで 使用 される 命令 を 

指定 し な ければ な リ ません。 私達 は quoted? や make-procedure のよう な 手続 

を 用いる ことで 抽象 構文 を 用いた メタ 循環 評価 機 を 説明し ました。 レジスタ マ 
シンの 実装に おいて は これらの 手続 を 初歩 的な リスト 構造 メモリの 命令 列に 展 
開す る ことができました。 そして これらの 命令 を 私達の レジスタ マシン 上に 実 
装し ました。 しかし、 これ は 私達の 評価 機の 基本的な 構造 を その 詳細に より わ 
かりにく  くしながら、 とても 長く してし まいます。 その 表現 を 明快に する ため 
に、 レジスタ マシンの プリ ミ ティブな 命令と して Section  4. 1.2 で 与えられた 構 
文 手続と 環境 を 表現す るた めの 手続、 それに Section  4.1.3 と Section  4.1.4 で 与 
え ら れた 実行時 デー タを 含める ことにします。 低 レベルの マシ ン 語で プロ ダラ 
ミ ング できる、 または ハー ドウ エアに て 実装で きる 評価 機の 完全な 仕様 化 を 行 
うため に、 Section  5.3 で 説明した リ ス ト 構造の 実装 を 用いて これらの 命令 をよ 
リ 基本的な 命令に よ リ 置き換える ことができる でしよう。 

私達の Scheme 評価 機 レジスタ マシン は スタックと 7 つの レジスタ を 含み 
まき。 exp,  env,  val,  continue,  proc,  argl,  unev ひす。 exp  t よ H 平 ィ 面される A の 
保持に 仕様され、 env は 評価が その 中で 実行され る 環境 を 持ちます。 評価の 終 
わ リ に は、 val が 指定 さ れた 環境 に お け る 式の 評価に よ リ 得 ら れた値 を 保持 し 
ます。 continue レジスタ は Section  5. 1.4 で 説明され たように 再帰の 実装に 用い 
られ ます。 （評価 機 は それ 自身 を 再帰 的に 呼び出す 必要が あります。 式の 評価 は 
その 部分 式の 評価 を 必要と する ためです)。 レジスタ proc,  argl, 皿 ev は 組み 
合わせの 評価に 用いられます。 

私達 はデー タパ ス図を 評価 機の レジスタと 命令が どの ように 接続され てい 
るか を 示す ために 提供 はしません。 また 機械の 命令の 完全な リストの 提供 も 行 
ない ません。 これら は 評価 機の コントローラに 暗黙 的に 存在し、 コントローラ 
の 詳細が 与えられます。 

5.4.1 明示 制御 評価 機の 核 

評価 機の 中心的な 要素 は eval-dispatch で 始まる 命令 列です。 これ は Section 
4 丄 1 で 説明 さ れた メ タ 循環 評価 機の eval 手続に 対応 します。 コントローラが 
eval-dispatch から 開始す る 時、 exp により 指定され た 式 を、 env によ リ 指定 
された 環境に て 評価し ます。 評価が 完了した 時には、 コントローラ は continue 
に 格納され た エントリ ポイントに 飛びます。 その 時、 val レジスタが 式の 値 を 
保持して います。 メタ 循環の eval と 同様に、 eval-dispatch の 構造 は 評価 さ 
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れる 式の 構文 型 上の 事例 分析です。 M 

eva 丄ー dispatch 

i,  test    (op   seli-evaluat  mg?  )    、reg  exp ) ) 

(branch    (label   ev-self -eval ) ) 

(test    (op  variable? )    (reg  exp)) 

(branch    (label   ev-var iable ) ) 

(test    ( op  quoted? )    (reg  exp)) 

(branch    (label ev - quoted)) 

(test    (op   assignment? )    (reg  exp)) 

(branch    (label ev - assignment ) ) 

(test    (op  definition? )    (reg  exp)) 

(branch    (label ev - definition) ) 

(test    ( op   if ? )    ( reg  exp) ) 

(branch    (label ev - if)) 

(test    ( op  lambda? )    (reg  exp)) 

(branch   (label   ev-lambda ) ) 

(test    (op  begin? )    (reg  exp)) 

(branch    (label ev "- begin)) 

(test    ( op   appli cat ion? )    (reg  exp)) 

(branch    (label   ev - application) ) 

( goto    (label  unknown - expression -" type ) ) 

単純な 式の 評価 

数値と 文字列 （これら は 自己 評価です)、 変数、 クオ 一 テーシ ヨン、 そして 

lambda 式 は 評価す るべき 部分 式が ありません。 これらの ために、 評価 機 は 単純 
に 正しい 値 を val レジスタに 配置し、 continue によ リ 指定され たェン ト リ ポ 
イン ト から 実行 を 継続し ま す。 単純な 式の 評価 は 以下の コントローラの コード 
により 実行され ます。 

20 私達の コントローラ において は、 ディスパッチ （dispatch, 割り振り） は test と 
branch の 命令 列と して 書かれて います。 代替 法と して、 データ 適 従 スタイルで 書く こと 
もで きる でしよう （そして 実際の システム は 恐らくそう されて いるでしょう）。 連続した 
テストの 実行の 必要 を 防ぎ、 新しい 式の 型の 定義 を 用意に する ためです。 Lisp を 実行す 
るよう に 設計され た 機械 は 恐らく  dispatch-on  -  type 命令 を 含む ことでしょう。 これ は 
そのような データに 従った 割り振り を 効率的に 実行し ます。 
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ev-self -eval 

(assign  val (reg  exp ) ) 

( goto    (reg   continue ) ) 
ev - variable 

(assign 

val    (op   lookup- variable -value )    (reg  exp)    (reg  env) ) 
( goto    (reg   continue ) ) 
ev - quoted 

(assign  val   (op  text-of- quotation)    (reg  exp)) 
( goto    (reg   continue ) ) 
ev - lambda 

(assign  unev    (op   lambda-parameters )    (reg  exp)) 
(assign  exp   (op  lambda-body)    (reg  exp)) 
(assign  val    (op  make -procedure ) 

(reg  unev)    (reg  exp)    (reg  env)) 
( goto    (reg   continue ) ) 

ev-lambda が どのように unev と exp レジスタ を 用いて ラムダ 式の パラメタと 
ボデ ィ を 保持 し、 env の 中の 環境 と共に make-procedure 命令 に 引き渡される 
のか 観察して 下さい。 

手続 適用の 評価 

手続の 適用 は オペレータと オペランド を 含む 組み合わせに よ リ 指定 します。 
オペレータ は その 値が 手続 となる 部分 式で あ リ、 オペランド は その 値が 引数 と 
なる 部分 式で、 その 引数に 対して 手続が 適用され ねばな りません。 メタ 循環の 
eval は 適用 を それ 自身 を 再帰 的に 呼び出す ことで 扱い、 組み合わせの 各 要素 
を 評価し、 そして 結果 を apply に 渡します。 これが 実際の 手続 適用 を 実行し ま 
す。 明示的 制御 評価 機 も 同じ こと を 行います。 これらの 再帰 呼 出 は goto 命令 
と共に、 スタック を 使用して 再帰 呼 出から 戻った 時に 再 格納され るよう に レジ 
ス タ を 保存す る こ と で 実装され ます。 各 呼 出の 前に どの レ ジス タ が 保存され な 
ければ ならない のかの 確認に 注意 をし なければ なりません。 （なぜなら これら 
の 値が 後で 必要になる からです)。 21 


21 これ は 重要です が、 アルゴリズム を Lisp の 様な 手続 型の 言語から レジスタ マシン 
の 言語へ 翻訳す る 場合に おいて 微妙な 点です。 必要な 物 だけ を 保存す る ことの 代替 法と 
して、 各 再帰 呼 出の 前に 全ての レジスタ （val を 除く） を 保存す る こと もで きます。 これ 
は framed-stack (ス タツ ク フ レーム） の 統制と 呼ばれます。 これ はう まく 行きます がし か 
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適用の 評価 は オペレータ を 評価し 手続 を 生成す る ことから 開始 します。 手 
続 は 後に 評価され た オペ ラン ドに 適用され ます。 オペレータ を 評価す るた め 

に は、 それ を exp レジスタに 移動 させ、 eval-dispatch へ 飛びます。 env レジ 
スタ 内の 環境 は 既に その 中で オペレータ を 評価す るた めに 適切な 物に なって 
いますが、 それでも env を 保存し ます。 オペランドの 評価に も 必要な ためで 
す。 また オペランド を unev の 中に 展開し、 スタック 上に これ を 保存し ます。 
continue に 対し eval-dispatch が オペレータの 評価が 完了 した 後に ev-appl- 
did-operator にて resume (再開） できる ように 設定し ます。 しかし、 最初に 
continue の 古い 値 は 保存し ます。 これが コン ト ローラに 対し 適用 後に どこか 
ら 続行す るの か を 告げる ためです。 

ev-application 
に save   continue ) 
に save  env) 

に assign  unev    、op  operands )    ( reg  exo) ； 
( save  unev) 

(assign  exp   (op  operator )    (reg  exp ) ) 

(assign   continue    ( label   ev-appl- did- operator) ) 

( goto    (label  eval-dispatch)) 

オペレータ 部分 式の 評価からの 帰還す ると、 組み合わせの オペ ラン ドの 評価と、 

結果と しての 引数 を argl に 保持され る リ ストの 中への 蓄積へ と 進みます。 最 
初に 未 評価の オペ ラン ドと 環境 を 戻します。 argl を 空 リストに 初期化し ます。 
そして proc レジスタに オペレータの 評価に より 生成され た 手続 を 割り当て ま 
す。 もし オペランドが 無ければ、 直接 apply-dispatch へと 進みます。 そうで 
なければ、 proc を スタックに 保存し 引数 評価 ループ を 開始し ます。 22 

し 必要 以上の レジスタ を 保存し ます。 この こと は スタック 命令が 高価で ある という シス 
テム 内の 懸念 点 に 成 リ 得 ま す。 後に 使用 さ れる 必要の なレ 、レジスタ の 保存 は ま た 使用 価 
値の 無い デー タを 手放さな いこと にも 成り 得ます。 これ は そ う でな ければ ガベー ジ コ レ 
クシ ヨンされ、 再 使用され るた めに 領域が 解法され たはず です。 

22  Section  4.1.3 の 評価 機 データ 構造の 手続に 以下の 2 つの 手続 を 引数 リストの 操作の 
ために 追加し ます。 

(. def  ine   (emptv-arglist  ； '()) 

i. def  ine   (adj oin-arg  arg  arglist;    (.append  arglist    (list  arg; ) ) 

また 追加の 構文 手続 を 使用して 組み合わせの 最後の オペ ラン ド であるかの テス トを行 
います。 

t,  def  ine   ( last -operand?  ops )    (null?   ( cdr  ops  ；)) 
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ev-appl -did- operator 
(restore  unev ) 
(restore  env) 

(assign  argl    (op  empty-arglist)) 
(assign  proc    (reg  val) ) 
(test    (op  no- operands? )    (reg  unev) ) 
(branch    (label   apply - dispatch) ) 
( save  proc ) 

引数 評価 ループの 各 サイクル は 皿 ョ の 中の リストから オペ ラン ドを 評価し、 そ 
の 結果 を argl の 中に 蓄積し ます。 オペ ラン ドを 評価す るた めに、 それ を exp レ 
ジス タの 中に 入れ、 実行が 引数 蓄積 段階から 再開で きる よう contirme を 設定 
した 後に eval- dispatch に 飛びます。 しかし、 最初に 私達 は それまでに （argl 
に 保持され ている） 蓄積され た 引数、 環境 （env に 維持)、 評価され ていない 残り 
の オペラ ン ド （unev が 保持） を 保存し ます。 最後の オペラ ン ドの 評価 は 特別な 
場合と して 扱われ ev- appl-last- arg により 取り扱われます。 

ev—appl—operand—ioop 
V  save  argl) 

(assign  exp   (op  first-operand)    (reg  unev) ； 
(test    (op   last -operand? )    (reg  unev)) 
(branch    (label   ev-appl- last -arg ) ) 
( save  env) 
( save  unev) 

(assign   continue    ( label   ev-appl -accumulate -arg) ) 
( goto    (label   eval - dispatch) ) 

オペ ラン ドが 評価され た 時に、 その 値 は argl にて 保持され る リ ストの 中に 蓄 
積され ます。 その オペラ ン ドは その後 unev 中の 未 評価 オペ ラン ドの リスト か 
ら 消され、 引数 評価が 続行され ます。 

ev-appl-ac  cumulate -arg 
(restore  unev ； 
(restore  env) 
(restore   argl ) 

(assign  argl    (op  adjoin - arg)    (reg  val ) ( reg  argl ) ) 
(assign  unev   (op  rest -operands )    (reg  unev)) 


； the  operands 


； the  operator 
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( goto    (label   ev-appl- ope rand- loop ) ) 

最後の 引数の 評価 は 異なる 扱い を 受けます。 環境 や 未 評価の オペ ラン ドの リス 

ト を eval-dispatch に 飛ぶ 前に 保存す る 必要が あ り ません。 最後の オペ ラン 
ド が 評価 された 後に それら は 必要が 無いた めです。 従って 評価 か ら 特別 な ェ ン 
ト リ ポィ ン ト ev-appl-accum-last- arg に帰リ ます。 これ は 引数 リ ス ト を 戻し、 
新しい 引数 を 蓄積し、 保存され た 手続 を 戻し、 適用 を 実行す るた めに 飛びます。 

23 

ev - appl -丄 ast - arg 

に assign   continue    ( label   ev-apul-ac cum- last -arg) ) 

に goto    (laoe 丄 eva 丄ー dispatch リ) 
ev-appl-ac  cum- last -arg 

(restore   argl ) 

(assign  argl    (op  adjoin - arg)    (reg  val ) ( reg  argl ) ) 
(restore  proc ) 

( goto    (label   apply-di spat ch ) ) 

引数 評価 ループの 詳細 はィ ンタ プリ タが 組み合わせの オペ ラン ドを 評価す る 順 

を 決定し ます。 （例えば、 左から 右 や 右から 左  一 Exercise  3.8 参照)。 この 順はメ 
タ 循環 評価 機で は 決定され ません。 メ タ 循環 評価 機 は その 制御 構造 を その 基礎 
を 成し 実装 を 行う Scheme から 継承し ます。 24(ev-appl-operand-loop 内で 一 
連の オペ ラン ド を unev から 抽出す るた めに 使用され た;） first-operand セ レ 
クタ は car として 実装され、 rest-operands は cdr として 実装され、 明示的 制 
御 評価 機 は 組み合わせの オペラ ン ド を 左から 右への 順で 評価し ます。 

手 適用 

エントリ ボイ ン ト apply-dispatch はメ タ 循環 評価 機の apply 手続に 対応 
します。 apply-dispatch に 到達す る 時に、 proc レジスタ は 適用す るた めの 手 

23 最後の オペ ラン ドの 処理の 特別な 最適化 は evlis  tail  recursion (エブ リ ス 末尾 再帰） 
として 知られて います （Wand  1980 参照)。 最初の オペランド も 特別な 場合と すれば、 私 
達 は 引数 評価 ループ をい くら かより 効率的 良 くで きたでしょう。 これ は argl の 初期化 
を 最初の オペランドの 評価の 後まで 延期す る ことができ、 この場合に argl を 保存す る 
こと を 防げた でしよう。 Section  5.5 の コンパイラ はこの 最適化 を 実行し ます。 （Section 
5.5.3®  construct-arglist 手続と 比較して 下さい。 ) 

24 メ タ 循環 評価 機の オペラ ン ドの 評価 順 は Section  4.1.1 の 手続 list-of- values 内の 
cons への 引数の 評価 順により 決定され ます （Exercise  4.1 参照)。 
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続 を 持ち、 argl は 適用す るべき 評価され た 引数の リスト を 持ちます。 （元々 は 
eval-dispatch に 渡され、 ev-application で 保存され た) continue の 保存 さ 

れた 値 は 手続 適用の 結果 と共に 帰る 場所 を 伝えます が、 スタック 上に 存在し ま 
す。 適用が 完了した 時に、 コントローラ は 保存され た continue により 指示 さ 
れた エントリ ポイントへ、 val 内の 適用の 結果と 共に 移動し ます。 メタ 循環の 
apply と 同様に、 考慮すべき 2 つの 場合が 存在し ます。 適用すべき 手続 は プリ 
ミ ティ ブ であるか、 または 複合 手続で あるかです。 

app 丄 y - dispatch 

test    (op  primitive -procedure?  )    、reg  proc  ) ) 
(branch    (label  primitive-apply) ) 
(test    ( op   compound-procedure? )    (reg  proc ) ) 
(branch    (label   compound-apply) ) 
( goto    (label  unknown-procedure- type ) ) 

各 プリ ミ ティ ブは 引数 を argl から 取得し、 その 結果 を val 内に 置く ように 実 
装され ている と 想定され ます。 機械が どのように プリ ミ ティ ブ を 扱う か を 指定 
する ために は、 それぞれの プリ ミ ティ ブを 実装す るた めの 一連の コントローラ 
命令 を 提供し なければ ならず、 proc の 中身に よ リ 判別され た プリ ミ ティ ブ のた 
めの 命令への 割り振 リ を 行うよう に primitive-apply を 準備し なければ なり 
ません。 私達 は プリミティブの 詳細で はなく、 評価 処理の 構造に 興味が あるた 
め、 それらの 代わり （こ 単 （こ apply — primitive— procedure を 使用し ます。 これ (ま 
proc 内の 手続 を argl 内の 引数に 対して 適用し ます。 Section  5.2 のシ ミュレ 一 
タを 用いて 評価 機の シミュレーション を 行う 目的の ために、 私達 は 手続 apply- 
primitive-procedure  ■&： 使用し ます。 これ は 根 にある Scheme ン ス丁ム ■Srjli 
用 を 実行す るた めに 呼び出します。 私達が Section  4. 1.4 のメ タ 循環 評価 機で 行 
つたのと 全く 同じです。 プリミティブの 適用の 値 を 計算した 後に、 contimie を 
戻して 指定され たェン ト リ ボイ ントに 飛びます。 

primitive - aop 丄 y 

に assign  val ( op  apply - primitive - procedure ) 

(reg  proc ) 

(reg  argl) ) 
(restore   continue ) 
( goto    (reg   continue ) ) 

複合 手続 を 適用す るた めに は、 メタ 循環 評価 機と 全く 同様に 進行し ます。 手続 
の パラメタ を 引数に 束縛す る フレーム を 構築し、 この フレーム を 用いて 手続に 
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よ り 運ばれた 環境 を 拡張し、 この 拡張 環境の 中で 手続の ボディ を 形成す る 式の 

列 を 評価し ます。 Section  5.4.2 で 説明され る ev-sequence は 列の 評価 を 取り扱 
います。 

compound-applv 

に assign  unev  、op  procedure-parameters)  ( reg  Droc ； ) 
(assign  env  (op  procedure -environment )  ( reg  proc ) ) 
(assign  env   (op  extend- environment ) 

(reg  unev)  (reg  argl ) ( reg  env) ) 
(assign  unev  (op  procedure -body )  (reg  proc)) 
( goto    (label ev - sequence ) ) 

compound-apply は env レジスタ が 新 しい 値 を 割り当てられる インタプリタ 内 
で 唯一の 場所です。 メタ 循環 評価 機と 同様に、 新しい 環境 は 手続に より 運ば 
れた 環境から 引数 リ ス ト と 対応す る 束縛され る 変数の リスト と共に 構築され 
ます。 

5.4.2 列の 評価と 末尾 再帰 

明示的 制御 評価 機の ev-sequence の 部分 はメ タ 循環 評価 機の eval-sequence 

手続と 同等です。 手続の ボディ 内の 式、 または 明示的な begin 式 内の 列 を 取り 
扱います。 

明示的な begin 式 は 皿 ev 内に 評価され るべき 式の 列 を 配置し、 continue 
を スタック 上に 保存し、 ev-sequence に 飛ぶ ことで 評価され ます。 

ev - begin 

に assign  unev   、op  begm-actions)    (reg  exp) ； 

( save   continue ) 

( goto    (label   ev - sequence) ) 

手続の ボディ 内の 暗黙 的な 列 は compound-apply から ev-sequence へと 飛ぶ こ 
とで 扱われます。 この 時点で continue は 既に ev-application で 保存され、 ス 
タック 上に 存在し ます。 

ev-sequence と ev-sequence- continue の エノ 卜 リ オ 、つ ノ 卜 (孓 ノレ ― ノを形 

成し、 連続して 列 内の 各 式 を 評価し ます。 未 評価の 式の リスト は unev に 保持 
されて います。 各 式の 評価の 前に、 列 内に さらなる 評価すべき 式が 存在し ない 

かどう か 確認し ます。 もしそう であれば、 （unev に 保持され た） 未 評価の 式の 残 
りと、 （env に 保持され た） 式の 残りが 評価され る 環境 を 保存し、 その 式 を 評価 
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する ために eval-dispatch を 呼びます。 2 つの 保存され た レジスタ はこの 評価 
力、 りの1;^'; ia 時に ev-sequence-cont inue レ し 民 2 れま <S~。 

列 内の 最後の 式 は ev-sequence-last-exp にて 異なる 取扱 を 行います。 こ 
の 後に は 評価すべき 式 は 無いた め、 unev と env を eval-dispatch に 行く 前に 
保存す る 必要はありません。 列 全体の 値 は 最後の 式の 値で あるた め、 最後の 式 
の 評価の 後に スタック 上に 現時点で 保存され ている （ev-application または 
ev-begin にて 保存され た） エントリ ポィ ント から 続行す る こと 以外に 必要な こ 
と はあり ません。 continue を 設定して eval-dispatch からこ こに 帰る ように 
準備し、 次に スタックから continue の 値 を 戻して その エントリ ポイントから 
続行す るので はなく、  eval-dispatch へ 行く 前に スタック 力、 ら continue を 戻 
します。 そうする ことで eval-dispatch は 式 を 評価した 後に その ェン トリ ボイ 
ント から 続行し ます。 

ev-sequence 

(assign  exp   (op  f irst-exp )    ( reg  unev ) ) 
(test    (op   last-exp? )    (reg  unev)) 
(branch   (label ev - sequence - last - exp)) 
( save  unev) 
( save  env) 

(assign   continue    ( label   ev-sequence -continue ) ) 
( goto    (label   eval -dispatch)) 
ev-sequence-cont inue 
(restore  env) 
(restore  unev ) 

(assign  unev   (op  rest-exps )    (reg  unev)) 
( goto    (label ev - sequence) ) 
ev - sequence - last - exp 
(restore   continue ) 
( goto    (label   eval -dispatch)) 

末尾 再帰 

Chapter 1 に て 以下の よ う な 手続に よ り 記述 される プロセス は、 

dei ine    (  sqrt-iter  guess  x) 
if    (  good- enough?   guess  x ) 
guess 
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( sqrt-iter    ( improve   guess  x) 

X))) 


反復 プロセス だと 述べました。 例え この 手続が 構文 的に （それ 自身の 単語の 定 

義 において） 再婦 であっても、 論理的に は 評価 機に とって、 1 つの sqrt-iter 
の 呼 出から 次の 呼 出への 横断に おいて 情報 を 保存す る 必要が ぁリ ません。 25 
sqrt-iter のよう な 手続 を、 手続が それ 自身 を 呼び出す こ と を 続ける に 従い 記 
憶 域 を 増加させる 必要 無しに 実行す る ことが 可能な 評価 機 は、 tail-recursivei^ 
尾 再帰） 評価 機と 呼ばれます。 Chapter  4 のメ タ 循環 評価 機の 実装 は 評価 機が 末 
尾 再帰で ある かどう か を 指定し ませんで し た。 その 評価 機が 状態 を 保存す る た 
めの 仕組み を その 基礎に 横たわる Scheme から 継承して いたた めです。 しかし 
明示的 制御 評価 機と 用いる 場合、 私達 は 評価の 過程 を 追跡し、 いつ 手続 呼 出が 
正味の 情報 集積 を スタック 上に 引き起す のか を 確認す る こと がで きます。 

私達の 評価 機 は 末尾 再帰です。 なぜなら 列の 最後の 式 を 評価す るた めに、 ス 
タック 上に 何の 情報 も 保存す る こと 無く  eval-dispatch へと 直接 飛びます。 従 
つて、 列の 最後の 式 一例え もし それが 手続 呼 出で あっても （sqrt-iter のよう 
に、 手続の ボディの 最後の 式が if 式で あっても、 sqrt-iter への 呼 出へ と 簡約 
されます) 一の 評価が スタック 上に 何の 情報の 蓄積 も 起こしません。 26 

もし この場合に 情報 を 保存す る 必要が 無い という 事実 を 活用す る こと を考 
えなかった 場合、 列 内の 全ての 式 を 同じよう に 取り扱う ように eval-sequence 
を 実装して いた ことでしょう。 レジスタの 保存、 式の 評価、 レジスタ を 戻す た 
めに 帰る、 これら を 全ての 式が 評価され るまで 繰り返した ことでしょう。 27 

ev-sequence 

(,test    (op  no-more-exps?;    (,reg  unev ) ) 


25  Section  5.1 にて そのよう な プロセス を どのよう にス タツ ク を 持たない レジスタ マシ 
ン にて 実装す るの か を 学びました。 プロセスの 状態 は 固定長の レジスタ 集合に 格納され 
ます。 

26 この ev- sequence に お け る 末尾 再帰の 実装 は 多くの コンパイラ で 使用 されて いる 良 
く 知られた 最適化の 技術の 一種です。 手続 呼 出で 終了す る 手続の コンパイル では、 呼 出 
を 呼び出された 手続の ェン ト リ ポイントへの ジャンプで 置き換える ことができます。 こ 
の 節で 行 つたよう に、 こ の 戦略 をィ ンタプ リタの 中 に 構築す る こと は 言語の 至る所に 均 
一に 最適化 を 提供し ます。 

27We  can  define  no-more-exps?  as  follows: 

no-more-exps? を以 卜の よ う に 定義す る ことができます。 

t,  def  ine   (no-more-exps?  seq)    t,null?  seq) ) 
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(branch    (label ev - sequence - end) ) 
(assign  exp   (op  first - exp)    ( reg  unev ) ) 
( save  unev) 
( save  env) 

(assign   continue    ( label ev- sequence -continue  ) ) 
( goto    (label   eval - dispatch) ) 
ev - sequence - continue 
(restore  env) 
(restore  unev ) 

(assign  unev   ( op  rest-exps )    (reg  unev)) 
( goto    (label ev - sequence) ) 
ev- sequence- end 

(restore   continue ) 

( goto    (reg   continue ) ) 

恐らく これ は 列の 評価の ための 以前の コードに 対する 軽微な 変更の ように 見え 
るでしょう。 唯一の 違い は 保存と 再 格納の サイクル を 他と 同様に 列の 最後の 式 
でも 通す ことです。 インタプリタ は 依然として どの 式に 対しても 同じ 値 を 与え 
ます。 しかし、 この 変更 は 末尾 再帰の 実装に 対して は 致命的です。 なぜなら、 
これで 私達 は 列の 最後の 式の 評価の 後に も （使用価値の 無い） レジスタの 保存 
を 戻す ために 帰らねば なリ ません。 これらの 余分な 保存 は 入れ子の 手続の 呼 出 

の 間で 蓄積され ます。 その 結果と して、 sqrt-iter のよう な プロセス は 一定 容 
量 を 必要と する のでな く、 繰り返しの 回数に 比例す る 記憶 域 を 必要と します。 
この 違い は 重大 事に 成り 得ます。 例えば、 末尾 再帰 を 用いれば、 無限ループ は 
手続 呼 出の 仕組み だけ を 用いて 表現で きます。 

dei ine    (  count  n) 
t^newlme )      display  n)    ( count    (+  n 1) ; ) 

末尾 再帰が 無ければ、 そのような 手続 はいつ か は スタック 領域 を 使いつ く しま 
す。 そして 真に 反復 を 表現す る こと は 手続 呼 出 以外の 何ら かの 制御の 仕組み を 
必要と します。 

5.4.3 条件文、 代入、 定義 

メ タ 循環 評価 機と 同様に、 特殊 形式 は 選択 的に 式の 部分 部分 を 評価す る こ 
とで 取り扱われます。 if 式に 対して は、 述語 を 評価して、 その 値 を 元に、 結果 

部 （consequent) と 代替 部 （alternative) のど ちら を 評価す る か 決定 します。 
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述語 を 評価す る 前に、 if 式 自身 を 保存し ます。 そうする ことで 後に 結果 部 
か 代替 部 を 抽出す る ことができます。 また 後に 結果 部 か 代替 部 を 評価す るた め 
必要と なる ので 環境 を 保存し ます。 そして 後に if の 値 を 待って いる 式の 評価 

に 戻る ために 必要な ため continue も 保存し ます。 
ev-if 

(save   exp)  ； 後の ため 式 を 保存す る 

に save  env) 

に save   continue ) 

に assign   continue    ( label   ev-n-aecide  ) ) 
(assign  exp   (op   if -predicate )    (reg  exp)) 
(goto    (label   eval - dispatch) ) ； 述語 を 評価す る 

述語の 評価から 戻る 時、 真 か 偽で あるか を テス ト し、 結果に 依り eval-dispatch 
に 飛ぶ 前に exp に 結果 部 か 代替 部 を 配置し ます。 env と continue を ここで 戻 
す ことが eval-dispatch に 正しい 環境 を 持たせ、 正しい 場所から 継続し if 式 
の 値 を 受けと るよう に 設定して いる ことに 注意して 下さい。 

ev - if  一 decide 

(restore   continue ) 
(restore  env) 
(restore  exp) 

(test    (op  true? )    (reg  val ) ) 

(branch    (label   ev-if -consequent ) ) 
ev - if 一 alternative 

(assign  exp   (op   if-alternative)    (reg  exp) ) 

( goto    (label  eval-dispatch)) 
ev-if -consequent 

(assign  exp   (op   if -consequent)    (reg  exp)) 

( goto    (label  eval-dispatch)) 


代入と 定義 

ィ〜 人と 疋義は ev-assignment により 扱われます。 レ こに は eval-dispatch 
から 代入 式が exp の 中に ある 状態で 到達し ます。 ev-assignment の 最初の コー 
ドは 式の 部分の 値 を 評価し、 次に 新しい 値 を 環境に 導入し ます。 Set-variable- 
value!  が 機械語 命令と して 必要 可能で あると 前提し ます。 
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ev-as  signment 

(assign  unev   (op   as signment -variable )    (reg  exp ) ) 
(save  unev)  ； 後の ため 変数 を 保存 

(assign  exp   (op  as signment -value )    ( reg  exp) ) 
( save  env) 
( save   continue ) 

(assign   continue    ( label   ev-as  signment- 1 ) ) 
(goto    (label   eval - dispatch) ) ； 代入 値 を 評価す る 
ev-as signment-1 

(restore   continue ) 
(restore  env) 
(restore  unev ) 
(perform 

(op   set - variable - value ! )    (reg  unev)    (reg  val ) (reg  env 
(assign  val    (const   ok) ) 
( goto    (reg   continue ) ) 

定義 も 同様に 扱われます。 

ev-dei  mit  ion 

に assign  unev に op  def init ion — variab 丄 e ノ に reg  exp ; ) 
(save  unev)  ； 変数 を 後の ため 保存 

(assign  exp   (op  denniti  on -value)    ( reg  exp) ) 
( save  env) 
( save   continue ) 

(assign   continue    ( label  ev-definition-1)) 
(goto    (label   eval - dispatch) ) ； 定義 値 を 評価す る 
ev-deimition-1 

(restore   continue ) 
(restore  env) 
(restore  unev ) 
(perform 

(op  def ine-var iable ！ )    (reg  unev )    ( reg  val)    (reg  env) ) 
(assign  val    (const   ok) ) 
( goto    (reg   continue ) ) 

Exercise  5.23: 評価 機 を 拡張し、 cond,  let, 等の 派生 式 を 取り扱う 
よ う にせよ （Section  4.1.2)。  cond->if の 様な 構文 変換器が 機械語 
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命令と して 使用可能と 前提して "インチキ" しても 良い。 28 

Exercise  5.24:  cond を 新しい 基本的な 特殊 形式と して if に 簡約す 

る こと 無しに 実装せ よ。 連続す る cond 節の 述語 を 真になる もの を 
見つける まで テス ト する ループ を 構築す る 必要が ある。 次に ev- 
sequence を 使用して その 節の アクション を 評価す る。 

Exercise  5.25: 評価 機 を 変更し、 Section  4.2 の 遅延 評価 機 を 基に し 

た 正規 順 評価 を 使用す る よ う にせよ。 


5.4.4 評価 機 を 実行す る 

明示的 制御 評価 機の 実装と 共に、 私達 は Chapter 1 から 始まった 開発の 終わ 
りに やって きました。 ここまで 私達 は 引き続きより 的確な 評価 過程の モデル を 
探求して きました。 比較的、 略式な 置換 モデルから 開始し、 次に これ を Chapter 
3 で 環境 モデルに 拡張し ました。 これ は 状態と 変更 を 扱う こと を 可能に しまし 
た。 Chapter  4 のメ タ 循環 評価 機で は Scheme 自身 を 式の 評価の 間に 構築され 
る、 より 明確な 環境 構造の ための 言語と して 使用し ました。 ここで は、 レジス 
タマ シン を 用いて メモリ 管理、 引数 渡し、 制御の ための 評価 機の 仕組みに つい 
てつぶ さに 見て きました。 それぞれの 新しい レベルの 説明に て、 直前の、 明確 
さで 劣る 評価 処理の 見る こと はでき ない 曖昧さに 関して 問題 を 提起し、 解決す 
る 必要が ありました。 明示的 制御 評価 機の 振舞 を 理解す るた めに、 その シミュ 
レー シ ヨン を 行い、 パフォーマンス を 監視す る ことができます。 

私達の 評価 機に ドライバ ループ を 導入し ます。 これ は Section  4.1.4 の 
driver-loop 手続の 役割 を 果たします。 この 評価 機 は 繰り返し プロンプト 
を 表示し、 式 を 読み込み、 eval-dispatch へ 飛ぶ ことで 式 を 評価し、 結果 を 表 
示します。 以下の 命令 は 明示的 制御 評価 機の コントローラ シーケンスの 開始 を 
形づく リ ます。 29 

28 これ は 本当 は インチキ ではありません。 実際の ゼロからの 実装に おいても、 Scheme 
を 解釈す る 明示的 制御 評価 機 を 用いて cond->if のよう な ソース レベル 変換 を 実行 前の 
構文 フェーズ にて 実行す るでしょう。 

29 ここで は read と 多様な 表示 命令が プリ ミ ティ ブな 機械語 命令と して 使用可能 である 
と 前提し ます。 この こと は 私達の シミュレーションに は 便利です が、 実際に は 完全に 非 
現実的です。 これら は 本当 はかなり 複雑な 命令です。 実際に は、 それら は 単一の 文字 を 端 
末との 間で 双方 向に 転送す るよう な 低 レベルの 入出力 命令 を 用いて 実装され るでしょう。 

get-global- environment 命令 を サポート する ために は 以下 を 定義し ます。 

^ del ine  the -global -environment    ( setup -environment ) ； 
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read-eval-print-loop 

(perform    ( op   initialize - stack) ) 
(perform 

(op  prompt-f or- input )    ( const    " ； ； EC-Eval   input : " ) ) 
(assign  exp    (op  read) ) 

(assign  env   (op  get -global -environment ) ) 
(assign   continue    ( label  print-result)) 
( goto    (label   eval - dispatch) ) 
print-result 

(perform   (op   announce - output )    ( const    " ； ； EC-Eval  value : " ) ) 
(perform   (op  user-print )    (reg  val ) ) 
( goto    (label  read-eval-print-loop) ) 

手続の 中で （apply- dispatch で 指摘され る "未知の 手続 型 エラ一" の 様な） ェ 
ラーに 遭遇した 時、 エラ 一メッセージ を 表示し、 ドライバ ループへ と 戻ります。 


unknown-expre  ss ion-type 

に assign  val    (const  unknown-expre  ssion- type -error ； ) 

( goto  (label  signal-error)) 
unknown-procedure -type 

(restore   continue)  ；  clean  up  stack  (from  apply-di spat ch) 

(assign  val    (const  unknown -; procedure -" type - error ) ) 

( goto  (label  signal-error)) 
signal-error 

(perform   (op  user-print )    (reg  val ) ) 

( goto    (label  read-eval-print-loop) ) 

シミュレーションの 目的の ために、 ドライバ ループ を 通る 度に スタック を 初期 
化します。 （未定義 変数の 様な） エラ一 が 評価 を 割り込みした 後に は 空で ない 可 
能 性が あるた めです。 31 

、define   (get -global -environment ；   the -global -environment ) 


M ィ ンタプ リタに 取り扱って 欲しい と 願う かも しれない 他の エラー も 存在し ます。 し 
かし これら は あまり 単純で はあり ません。 Exercise  5.30 を 参照して 下さい。 

31 スタックの 初期化 を エラーの 後に のみ 行う こと も 可能でしょう。 しかし ドライ バル 
ープの 中で 行う こ と は 評価 機の パ フォー マ ンスを 監視す るた めに 便利です。 こ の 先で 説 
明され ます。 


603 


Section  5.4.1 から Section  5.4.4 の 間の コー ドの 断片 を 組合せれば、 Section 
5.2 の レジスタ マシン シミュレータ を 用 いて 実行す る こ と がで き る 評価 機の 機 
械 モデル を 作る こと がで きます。 

、deiine   eceva 丄 
(make - machine 
1 (exp  env  val proc   argl   continue  unev ; 
eceval- operations 
' (read-eval-print-loop 

(entire  machine  controller  as  given  above) ) ) ) 

評価 機に より プリ ミ ティ ブと して 使用され る 命令 を シミュレート する ための 

Scheme 手続 を 定義し なければ なり ません。 これら は Section  4.1 で メタ 循環 評 
価 機の ために 使用した ものと 同じ 手続と、 Section  5.4 の 至る所の 脚注に て 定義 
された いくつかの 追加の 物が ぁリ ます。 

v. dei ine   eceva 上 一 operation s 

、上 ist    (list    ' self  一 evaluating r   sell -evaluating ) 

(complete  list  of  operations  for  eceval  machine)) ) 

最後に、 グローバル 環境 を 初期化し、 評価 機 を 実行し ます。 

dei  ine   the - global - envi:r  onment    (  setuo- environment  ) ) 
( start   eceval ) 
； ； ； EC-Ev al  input : 
( dei ine    ( append  x  y ) 

、if    (null?  x)   y   ( cons    ( car  x)    ( append   ( cdr  x)   y ) ) ) ) 
； ； ； EC-Ev  al  va  lue : 
ok 

； ； ； EC-Ev  al  input : 

( append    ' (a  b  c)    ' (d  e  f ) ) 

； ； ； EC-Ev  al  va  lue : 

(a  b  c  d  e  f) 

もちろん、 この 方法の 式の 評価 は Scheme に 直接 入力した 場合よ り もずつ と 長 
く かかります。 複数 レベルの シミュレーションが 関与す るた めです。 式 は 明示 
的 制御 評価 器の 機械に より 評価され ます。 これ は Scheme プログラム によ リシ 
ミュ レートされ、 Scheme プログラム 自身 は Scheme インタプリタ によ り 評価 
されて います。 
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評価 機の パフォーマンスの 監視 

シミュレーション は 評価 器の 実装 を 案内す るのに 強力な ツールです。 シミ 
ユレ ーシ ヨン は レジスタ マシンの 設計の 多様性 を 探求す る こと だけでなく、 シ 
ミュレ ート された 評価 器の パフォーマンス を 観察す る こと も 簡単に します。 例 
えば、 パフォーマンス における 1 つの 重要な 要因 は どれ だけ 効率 良く 評価 機が 
スタック を 使用す るかが あり ます。 スタック 利用 上の 統計 を 集める シ ミュレ 一 

タの版 を 用いて 評価 機の レジスタ マシン を 設計す る こと と、 評価 機の print- 
result  エントリ ボイ ン ト に 統計 を 表示す る 命令 を 追加す る ことで により、 様々 
な 式 を 評価す るの に 必要と される スタック 命令の 数 を 観察す る こと がで きます 
(Section  5.2.4)。 

print-result 

(.perform   (op  pri  nt  -  stack- st  at  i  sties);  a カロ  3 れた u 卩 ''tp' 

(perform 

(op   announce-output )    ( const   " ; ; ;    EC-Eval  value:")) 
... ； 以前と 同じ 

評価 機との 応答 はこれ で 以下の よう に 見えます。 

； ； ； EC-Ev al  input  ： 

、 define    (factorial n) 

(if    (=  n 1) 1 (*    (factorial (- n 1)) n))) 
(total— pushes  =  3  maximum- depth  =  3) 
； ； ； EC-Eval  va lue : 
ok 

； ； ； EC-Ev  al  input : 
(factorial 5) 

(total-pushes  = 1^4  maximum- depth  =  28) 

； ； ； EC-Eval  va lue : 

120 

評価 機の ドライバ ループが 全ての 応答の 開始に ス タツ クを 再度 初期化す る こ と 
に 注意して 下さい。 それにより 表示され た 統計 は 直前の 式の 評価の ために 使用 
された スタック 命令の み を 参照し ます。 

Exercise  5.26: 監視 付きの スタック を 用いて 評価 機 （Section  5.4.2) 
の 末尾 再帰の 特性 を 調査せ よ。 評価 機 を 開始し、 Section  1.2.1 の 反 
復 factorial 手続 を 定義せ よ 。 
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(define   (factorial n) 

(define    ( iter  product  counter) 
( if    (>   counter  n) 
product 

( iter    ( *   counter  product )    (+   counter 1) ) ) ) 
(iter 1 1)) 

手続 を いくつかの n の 小さな 値で 実行せ よ。 これらの 値に 対する 
n! を 求める のに 必要な 最大 スタック 深度と push の 数 を 記録せ よ。 

a  n! を 評価す るた めに 必要な 最大 深度が n から 独立して いる 
こと を 発見す るだろう。 この 深さ は 何 か？ 

b あなたの データから 任意の n  > 1 に対して n! を 評価す るの 
に 使用され る push 命令の 総数 を 求める n の 方程式 を 求めよ。 
使用され る 命令 数 は n の 線形 関数で あり、 従って 2 つの 定数 
から 決定され る ことに 注意せ よ。 

Exercise  5.27:  Exercise  5.26 との 比較と して、 以下の 階乗 を 再帰 的 

に 求める 手続の 振舞 を 調査せ よ 。 

^define    (factorial n; 
(if    (=  n 1) 

(*    (factorial (- n 1)) n) ) ) 

この 手続 を 監視 付きの スタック を 用いて 実行し、 任意の n> 1 に 
対して n! を 評価す るた めに 使用され る、 スタックの 最大 深度と プ 
ッシュ の 総数 を n の 関数と して 求めよ。 （再び、 これらの 関数 は 線 
形になる）。 あなたの 経験 を 以下の 表に 適切な n の 式 を 埋める こ と 
で まとめよ。 


最大 深度 

push の 総数 

再帰 

階乗 

反復 

階乗 

最大 深度 は 演算の 実行 に おいて 評価 機 に よ リ 使用 さ れた 記憶 域の 

量の 尺度で ある。 push の 総数 は 必要な 時間に 良く 関連して いる。 
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Exercise  5.28:  Section  5.4.2 にて 説明され ている ように eval- 
sequence を 変える ことで 評価 機の 定義 を 変更し、 評価 機が も 
はや 末尾 再帰で はない よ う にせよ。 Exercise  5.26 と Exercise  5.27© 
実験 を 再 実行 し、 factorial 手続の 両 版が 今では 必要 とされる 記 
憶 域が それらの 入力に 対し 線形に 増加す る こと を 実演せ よ。 

Exercise  5.29: 木 再帰 フ ィ ボナ ッ チ 数の 演算に おける スタック 命令 
を 監視せ よ。 

def ine    (fib  n) 
(if    (<  n  2) 
n 

(+   (fib    (-  n 1)) (fib    (-  n  2))))) 

a  n>2 に対して Fib(n) を 求まる 場合に 必要な スタックの 最大 
深 ^ に対する n の 方程式 を 与えよ。 ヒント ： Section  1.2.2 に 
おいて 私達 はこの 処理に よ リ 使用され る 記憶 域 は n に 対し 線 
形に 増加す る こと を 議論した。 

b  n さ 2 に対して Fib(n) を 求める のに 使用され た push の 総 
数に 対する 方程式 を 与えよ。 （費やされた 時間に 良く 関連す 
る) push の 総数 は n の 指数関数 的に 増加す る こ と を 見付けな 
ければ ならない。 ヒント： S(n) を Fib(n) を 求める のに 使用 
された push の 総数と せよ。 S(n  — 1), 5(7!  —  2), それに ある 
固定の" オーバへ ッ ド" として n から 独立した 定数 も を 用い 
て S(ji) を 表現す る 方程式が 存在す る こ と を 主張す る ことが 
できる はず だ。 方程式 を 与えて、 fe が 何で あるか を 述べよ。 次 
に S(n) が a  .  Fib(n  + 1) +  6 と して 表現で きる こと を 示し、 a 
と；) の 値 を 与えよ。 

Exercise  5.30: 私達の 評価 機 は 現在 は 2 つの 種類の エラー 一未 知 

の 型の 式と 未知の 型の 手続 一の み を 発し キャッチ する。 他の エラ 
一 は 評価 機の REPL から 抜けて しまう。 評価 機 を レジスタ マシン 
シミュ レー タを 用いて 実行した 時に、 これらの エラー は その 下に 
横たわる Scheme システム によ リ キャッチ される これ は ユーザ プ 
ログ ラムが エラー を 発生 させた 時に コンピュータ が 強制 終 了す る 
のと 同様で ある。 32 本物の エラー システム を 働かせる こと は 大き 

32 残念ながら、 C 言語の ような 従来の コンパイラ ベース 言語 システム において はこ 
れが 普通の 状況です。 UNK(tm) では システム は "コア （core) を ダンプ （dump)" し、 
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な プロジェクト である。 しかし、 ここで 何が 関与して いるの か を 
理解す る 努力 に は大 き な 価値が ある 。 

a 未定義の 変数に アクセス を 試す ような 評価 プロセスで 発生す 
る エラー は lookup 命令 を 変更し 識別 可能 な 状態 コード を 返 
すよう に 変更す る ことで 捕まえる ことができ るだろう。 状態 
コード は 全ての ユーザ 変数が 取 リ 得ない 値で な ければ な ら な 
い。 評価 機 はこの 状態 コードに 対し テスト を 行い、 signal- 
error  に 飛ぶ ために 必要な こと を 行う。 評価 機の 中で そのよ 
うな 変更が 必要な 全ての 箇所 を 見つけ 修正せ よ。 これ はとて 
も 大変な 作業 だ。 

b ゼロで 割る こと や シンボルから car を 抽出す るよう な 試行 
により、 プリ ミ ティ ブな 手続の 適用 上で 発せられる エラーの 
取り扱いの 問題 はずつ と 酷い 物 だ。 専門的に 記述され た 高 品 
質な システム において は、 プリ ミ ティブの 適用 全て は プリ ミ 
ティブの 一部と して 安全性が 確認 されて いる。 例えば 全ての 
car の 呼 出 は 最初に 引数が ペアで あるか を 確認す る。 も し 引 
数が ペアで なければ、 適用 は 区別 可能な 状態 コード を 評価 機 
に 返す。 すると 評価 機 は 失敗 を 報告す る。 私達 はこれ を 私達 
の レジスタ マシン シミュレータに 全ての プリ ミ ティ ブ 手続の 
適用性 チェ ックを 行レ 、適切 な 識別 可能な 状態 コード を 失敗 時 
に 返す よう にす る ことで 手 害 を 整える ことができ るだろう。 
すると 評価 機の primitive-apply コード が 状態 コード をチ 
エックし 必要なら signal-error へ 飛ぶ ことができる。 この 
構造 を 構築し、 働く ようにせ よ。 これ は 巨大な プロジェクト 
である。 


5.5 コンパイル 

Section  5.4 の 明示的 制御 評価 機 は コントローラが Scheme プロ グラム を 解 
釈 する レ ジス タ マ シ ン です。 こ の 節で は Scheme プログラム を コントローラ が 


DOS/Windows(tm) では catatonic (硬 まる、 フ リ ーズ) し ます。 Macintosh(tm) は 一 も し 
ラッキーな 場合 は 一 爆発す る 爆弾の 絵 を 表示し コンピュータ を リブートす るよう 提案し 
ます。 
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Scheme ィ ンタ プリ タ ではない レジスタ マシン 上に て どのよう に 実行す るの か 
について 学びます。 

明示的 制御 評価 機械 は 普遍的です。 Scheme で 記述で きる どんな 演算 プロ セ 
スも 実行で きます。 評価 機の コントローラ は 望んだ 演算 を 実行す るた めの デー 
タ パスの 使用 を 調整し ます。 従って、 評価 機の データ パス は 普遍的です。 適切 
な コントローラ を 与えられた 場合に、 私達が 望む 任意の 演算 を 実行す るのに + 
分です。 33 

商業 上の 汎用な コンピュータ は レジスタと 効率的で 便利な データ パスの 普 
遍 的な 集合 を 構成す る 命令の 周 リ に 構築 される レ ジス タマ シ ン です。 汎用 目 的 
の 機械 は 私達が こ こ ま で 使用 している ような レジスタ マシ ン 言語の ための ィ ン 
タプ リタです。 この 言語 は 機械の nafi"e  tenffMaffe (ネイティブ 言語)、 または 単 
純に mac/ime  Ztmgti^e (機械語） と 呼ばれます。 機械語で 記述され た プログラム 
は その 機械の データ パス を 用いた 命令 列です。 例えば、 明示的 制御 評価 機の 命 
令 列 は 専門の インタプリタ マシンの ための コントローラ ではなく、 汎用 目的の 
コンピュータ のた めの 機械語 プロ グラム だと 考える こと がで きます。 

2 つの 共通な 戦略が 高水準の 言語と レジスタ マシンの 言語の 間の ギャップ 
を 橋渡しし ます。 明示的 制御 評価 機 は 逐次 翻訳 （interpretation) 上の 戦略 を 説 
明し ます。 機械の ネィ ティ ブ 言語で 書かれた インタプリタ は、 評価 を 実行す る 
機械の ネィ ティ ブ 言語と は 異なっても 良い ある 言語 [source  language{y  — ス言 
語)） で 書かれた プログラム を 実行す るよう に 機械 を 構成し ます。 ソース 言語の 
プリ ミ ティ ブ 手続 は 与えられた 機械の ネィ ティ ブ 言語 に よ リ 記述 された サ ブル 
一 チンの ライブラリ として 実装され ます。 (source  programl ソ一 スプ D グラム) 
と 呼ばれる） 逐次 翻訳す る プログラム は データ 構造と して 表現され ます。 ィ ン 
タブ リタ はこの データ 構造 を 横断し、 ソース プログラム を 分析し ます。 それ を 
行う につれ、 ソース プログラムの 意図され た 振舞 を 適切な プリ ミ ティ ブの サブ 
ルーチン を ライ ブラ リ から 呼ぶ ことにより シミュレート します。 

この 節で は、 compilation 、コンパイル、 という 代替 的な 戦略 を 探求し ます。 
与えられた ソース 言語と 機械に 対する コンパイラ は ソース プログラム を 機械の 
ネイティブ 言語で 書かれた (object  program (才 ブジェク 卜 プログラム） と 呼ば 
れる ） 等価な プロ グラ ム に 翻訳 します。 こ の 節で 実装す る コ ン パイ ラ は Scheme 
で 書かれた プログラム を 明示的 制御 評価 機の データ パス を 用いて 実行され る 命 


33 これ は 理論的な 発言です。 この 評価 機の デー タ パスが 一般的な コンピュータの ため 
に 特に 便利な、 または 効率的な データ パスの 集合で あると 主張して いる 訳で はあり ませ 
ん。 例えば、 これら は 高い パフォーマンスの 浮動小数点 演算 や、 激しく ビットべ クタ を 
操作す る 演算の 実装に は あまり 向いて いません。 
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令 列へ と 翻訳し ます。 34 

逐次 翻訳 と 比べた 時、 コンパ ィ ル は プ ログ ラム 実行の 効率 性 において 大き 
な 向上 を 与えられます。 この こと は 下記に て コンパイラの 概観に おいて 説明し 
て 行きます。 一方で、 インタプリタ はより 強力な 環境 を 対話式の プログラム 開 
発と デバッグ のために 提供し ます。 実行す る ソース プログラムが 実行時に も 試 
験し、 変更す るた めに 使用可能な ためです。 それに加えて、 プリミティブの ラ 
イブ ラリ 全体が 存在し、 新しい プログラムが デバッグの 間に 構築し、 追加す る 
ことができる こと も 挙げられます。 

コンパイルと 逐次 翻訳の 相補 的な 利点の 視点に おいて、 最新の プログラム 

開発 環境 は 入り交じった 戦略 を 追求して います。 Lisp ィ ンタプ リタ は 一般的 
に 逐次 翻訳され た 手続と コ ン パイル された 手続が お 互い を 呼び だせる よう に 
構築され ています。 こ れは プロ グ ラ マ が デバ ッ グす る こと を 想定され ている こ 
れらの プログラムの 部品 を コンパイル する こと を 可能に します。 従って コンパ 
ィ ルの 効率 上の 利点 を 得な が ら、 プログラムの それらの 部品に 対 して 対話式 開 
発と デバッグの 流動的な、 実行の 解釈 的な モー ドを 維持す る こと もで きます。 
Section  5.5.7 において、 コンパイラ を 実装した 後に はィ ンタ プリ タ と どのよう 
に 接続して 統合 的な インタプリタ • コンパイラ 開発 システム を 生成す るか を 示 
します。 


コンパイラの 概要 

私達の コンパイラ は 私達の ィ ン タブ リタに 両者の そ の 構造 と 実行す る 機能 
において とても 良く 似て います。 従って、 コンパイラ により 式の 解析の ために 
使用され る 仕組み は インタプリタ にて 使用され たものと 同様にな り ます。 さら 
に、 コ ン パイ ル された コ 一 ドと 逐次 翻訳され た コ 一 ドの 接続 を 簡単に する ため 
に、 インタプリタと 同じ レジスタ 使用法の 仕様に 従 う コード を 生成す る 様に コ 
ンパ イラ を 設計し ます。 環境 は env レジスタに 保持され、 引数 リスト は argl 
に 蓄積され、 適用され る 手続 は proc に 入り、 手続 は それらの 回答 を val に 入 
れて 戻り、 手続が 戻らなければ いけない 位置 は continue に 維持され ます。 一 

34 実際に は、 コ ン パイル された コード を 実行す る 機械 はィ ンタ プリ タマ シンよ り もより 
単純に 成り 得ます。 exp と unev の レジスタ を 使用し ないた めです。 これら を 使用す るィ 
ンタプ リタ は 未 評価の 式の 部分 を 保持し ます。 しかし コンパイラ を 用いる 場合に は、 こ 
れらの 式 は レジスタ マシンが 実行す る コンパイル された コードの 中に 組 込まれます。 同 
じ 理由に より、 式の 構文 を 扱う 機械語 命令 を 必要と しません。 しかし コンパイル された 
コード は 明示的 制御 評価 機械で は 存在 し なかった いく つかの 追加の （コ ン パイ ル された 
手続 ォ ブジェク ト を 表現す るた めの） 機械語 命令 を 使用 します。 
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般 的に、 コ ン パイ ラ は ソース プロ グラ ムを インタプリタ が 同 じ ソ ース プロ グラ 
ムを 評価す る 場合に 行う のと 本質的に 同じ レジスタ 命令 を 実行す るォ ブジェク 
ト プログラムに 翻訳し ます。 

この 説明で はとても 基本的な コンパイラ を 実装す るた めの 戦略 を 提案し ま 
す。 式 を インタプリタと 同じ 方法で 横断し ます。 インタプリタが 式の 評価で 実 
行す るだろう レジスタ 命令に 遭遇したら、 その 命令 を 実行 はしません がその 代 
わ り に 列 に 蓄積し ます。 結果と して の 命令 列 は ォブジ ェクト コードに なります。 
逐次 翻訳に 対する コ ン パイルの 効率 上の 利点 を 注意して 下さい。 インタプリタ 

が 式、 例えば （f  84  96) を 評価す る 度に、 式の 分類 （手続の 適用で あるか を 見 
出す） と オペ ラン ド リ ス トの 終端の 検査 （2 つの オペ ラン ドが 残って いるか を 見 
出す） を 行います。 コンパイラ を 用いる 場合、 式 は 命令 列が コンパイル 時に 生成 
された 時に 一度し か 解析 されません。 コンパイラ により 生成され たォ ブジェク 
ト コード は オペレータ と 2 つの オペ ラン ドを 評価す る 命令し か 含んで おらず、 
引数 リスト を 組み立て、 （proc 内の） 手続 を （argl 内の） その 引数に 適用し ます。 

こ れは Section  4 丄 7 の 解析 評価 機で 実装 した ものと 同 じ 種類の 最適化です。 
しかし、 コンパイル された コード 中で 効率 を 良くす るた めの さらなる 機会が 存 
在し ます。 インタプリタが 実行す るに したがって、 インタプリタ は 言語の 任意 
の 式に 必ず 当てはまる 過程 を 追います。 対照的に、 与えられた コンパイル 済み 
コードの 断片 は ある 特定の 式 を 実行す る こと を 意味し ます。 これ は 例えば スタ 
ックを 用いて レジスタ を 保存す る 場合 等に 大きな 違い を 生みます。 インタ プリ 
タが式 を 評価す る 時には、 任意の 偶発 性に 対して 準備 をし なければ な リ ません。 
部分 式 を 評価す る 前に、 インタプリタ は 後で 必要と なる 全ての レジスタ を 保存 
します。 部分 式が 無 原則な 評価 を 要求す るか もしれ ないた めです。 一方、 コン 
パ イラ は 処理 対象の 特定の 式の 構造 を 利用 し て 不必要な スタック 命令 を 回避す 
る コード を 生成す る ことができます。 

その 一例と して、 組み合わせう  84  96) について 考えて みます。 インタ プ 
リ タが 組み合わせの オペレータ を 評価す る 前に、 値が 後で 必要になる オペ ラン 
ドと 環境 を 持つ レジスタ を 保存す る ことで この 評価の ための 準備 を 行います。 
次に インタプリタ は オペレータ を 評価 し て その 結果 を val に 取得 し、 保存し た 
レジスタ を 戻し、 最後に 結果 を val から proc に 移します。 しかし、 私達が 評 
価して いる この 式で は、 オペレータが シンボルの f であり、 その 評価 は 機械語 
の lookup-variable-value にて 達成され、 これ は どの レジスタの 値 も 変化 さ 
せません。 この 節で 実装す る コンパイラ はこの 事実 を 活用し、 オペレータ を こ 
の 命令 を 使用して 評価す るコー ドを 生成し ます。 

^assign  proc    (op   lookup- van able -value ； 
( const エノ 
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(reg  env ) ) 

この コード は 不必要な 保存と 復元 を 回避す る だけでなく、 lookup の 値 を 直接 
proc に 割り当てます。 一方で インタプリタ は 結果 を val の 中に 取得し、 その後 
に proc へと 移します。 

コンパイラ はまた 環境への アクセス を 最適化す る ことができます。 コード 
を 解析した 後に、 コンパイラ は 多くの場合 において、 どの フレームの 中に 特定 
の 変数が 位置す るか を 知リ、 lookup-variable-value による 検索 を 実行す るの 
ではなし に、 直接 アクセス する ことができます。 そのような 変数の アクセス を 
どのように 実装す るかに ついての 議論 は Section  5.5.6 にて 行います。 

5.5.1 コンパイラの 構造 

Section  4. 1 .7 において、 私達 は 元の メタ 循環 インタプリタ を 変更して 分析 を 
実行から 分離し ました。 各 式 を 分析して 環境 を 引数と して 取り 必要と される 命 
令 を 実行す る 実行 手続 を 生成し ました。 私達の コンパイラ では、 本質的に は 同 
じ 分析 を 行います。 しかし、 実行 手続 を 生成す る 代わりに、 私達の レジスタ マ 
シ ン に よ り 実行 さ れる 命令 列 を 生成し ます。 

手続 compile はコ ン パイ ラ 内での ト ッ プ レベルの 割 り 振り です。 これ 
は Section  4.1.1 の eval 手続、 Section  4.1. 7 の analyze 手続、 そ して Section  5. 4.1 の 
明示的 制御 評価 機の ェン ト リ ボイ ン ト eval-dispatch に 対応 します。 コ ンパ 
イラ はィ ンタプ リタと 同様に、 Section  4.1.2 における 式の 構文 手続 を 用います。 
35 compile は コンパイル される 式の 構文の 型の 事例 分析 を 実行し ます。 各 式の 
型に 対し、 特別な code  generatori コ一 ド 生成 器） を 割り振り ます。 

v.  def ine    (  compile   exp  target   linkage  ； 
( cond   ( ( self -evaluating?  exp) 

( compi 丄 e - self - evaluating  exp  target   linkage ) ) 
( ( quoted?   exp)    ( compile -quoted  exp  target   linkage ) ) 
( ( variable?  exp) 

( compi 丄 e - variable   exp  target   linkage ) ) 
( ( assignment?  exp) 

35 しかし、 私達の コンパイラが Scheme プログラム であり、 式 を 操作す るた めに それが 
用いる 構文 手続が メ タ 循環 評価 機に より 仕様され る 実際の Scheme 手続で ある ことに 注 
意して 下さい。 一方で、 明示的 制御 評価 機で は 等価な 構文 命令が レジスタ マシンに 対す 
る 命令と して 使用可能 であると 前提し ました。 （もちろん、 Scheme で レジスタ マシン を 
シミュレートした 時には、 実際の Scheme の 手続 を 使用し ました。 ） 
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( compile -assignment   exp  target   linkage ) ) 
( (definition?   exp ) 

( compile -de f  inition  exp  target   linkage ) ) 
((if?   exp )    (compile - if   exp  target   linkage ) ) 
( ( lambda?   exp)    ( compile -lambda  exp  target   linkage ) ) 
( (begin?  exp) 

( compile -sequence 
(begin - actions   exp )    target   linkage ) ) 
( ( cond?  exp) 

( compile    ( cond->if   exp )    target   linkage ) ) 
( ( application?  exp) 

( compile - application  exp  target   linkage ) ) 
(else 

( error   " Unknown  expression  type :    COMPILE "  exp)))) 

ター ゲッ 卜と リ ンク 記述子 

compile とそれ が 呼ぶ コード 生成 器 は コンパイル 対象の 式に 加えて 2 つの 
引数 を 取り ます。 コンパイル された コー ド がその 中で 式の 値 を 返す レジスタ を 
指定す る torfffrf (タ一 ゲッ ト） と 実行が 完了した 時に、 式の コンパイルの 結果と 
しての コードが どのように 続けるべき か を 説明す る linkage  descriptor{ リンク 
記述子） です。 リ ンク 記述子 は コードが 以下の 3 つの 内 1 つ を 行うよう 要求す 
る ことができます。 

• 列の 次の 命令 を 続ける （これ は リンク 記述子 next により 指定され ます） 

• コンパイル している 手続 か ら 戻る （これ は リンク 記述子 return に よ り 指 
定 されます） 

• 名前 付き エントリ ボイ ン ト へ 飛ぶ （これ は リンク 記述子 として 指定した 
ラベル を 用いて 指定し ます） 

例えば、 式 5( これ は 自己 評価 型） を ターゲット を レジスタ val、 リンク 記述子 
を next で コンパイル する 時、 以下の 命令 を 生成し なければ な リ ません。 

^assign  val ^  const   5) ) 

同じ 式 を リ ンク 記述子！ ■eturn で コンパイル する 時には 以下の 命令 を 生成し な 
ければ な り ません。 
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( assign  val ( const   5) ) 
(goto    (reg   continue) ) 

最初の 場合に は、 実行 は 列 内の 次の 命令と 共に 続行し ます。 2 つ 目の 場合に は、 
手続 呼 出から 戻リ ます。 両者の 場合に おいて、 式の 値 は ターゲット レジスタ 
val に 配置され ます。 

命令 列と スタックの 使用法 

各 コード 生成 器 は 式の ために 生成した オブジェ ク ト コード を 含む insfruc お on 
Se ゆ ence (命令 列） を 返します。 複合 式に 対する コード 生成 は 部分 式の ための よ 
リ 単純な コード 生成 器 か らの 出力 を 組み合わせる ことによ リ 達成され ます。 こ 
れは 複合 式の 評価が 部分 式 を 評価す る こ と により 達成され るのと 同じです。 

命令 列 を 組み合わせる 最も 単純な 手法 は append-instruct  ion-sequences 
という 手続です。 これ は 引数と して 順に 実行され る べき 任意の 数の 命令 列 を 取 
リ、 それら を 接続し、 組み合わされた 列 を 返します。 つまり、 もし 〈seqi) ヒ 
(seq2) が 命令 列で ある な ら ば、 以下の 評価 は、 

i,  append- instruct  ion- sequences   (seqi)  "eg2〉) 

次の 列 を 生成し ます。 

(seqi) 
(seq2) 

レジスタが 保存され る 必要が ある 度に、 コンパイラの コード 生成 器 は preserving 
を 使用し ます。 これ は 命令 列 を 組み立てる ための、 よ リ芸が 細かい 手法です。 
preserving は 3 つの 引数 を 取り ます。 レジスタの 集合と 2 つの 命令 列です。 
これ は 列 を レジスタ 集合 内の 各 レジスタの 中身が、 2 つ 目の 列の 実行に 必要 
な ら ば、 最初の 列の 実行の 間 は 維持 （preserve) される よう な 方法で 接続 し ま 
す。 言い換えれば、 もし 最初の 命令 列が レジスタ を 変更し、 2 つ 目の 列が 実際 
に その レジスタの 元の 中身 を 必要と するならば、 preserving は 列 を 接続す る 
前に 最初の 列 を その レジスタの save と！ ■estore で 包みます。 そうでなければ、 
pre  serving は 単純に 接続した 命令 列 を 返します。 従って、 例えば （preserving 
(list  {regi}  (reg2))  (segi)  (seg2)) は、 {seqi} と 〈seg2〉 が どのように {regi} 
と 〈re52〉 を 使用す るかに 依存して 以下の 4 つの 命令 列の 内 1 つ を 生成し ます。 
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(seqi) 
(seq2) 


(save  (regi)) 
(seqi) 

(restore  (regi)) 
〈se<72〉 


(save  く reg2〉) 

(restore  (re (； 2}) 

〈seg2〉 


(save  (re<72)) 
(save  (regi)) 
(seqi) 

(restore  {regi}) 
(restore  {reg2}) 
{seq2) 


preserving を 用いて 命令 列 を 組み立てる ことによ リ、 コンパイラ は 不必要な 
スタック 命令 を 回避す る ことが 可能に なり ます。 これ はまた save と restore 
の 命令 を preserving 手続の 中で 生成す るか、 しない かの 詳細 を 分離し、 個別 
のコー ド 生成 器 それぞれ を 書く 場合に 浮かび上がる 考慮 点から 隔離し ます。 実 
際に save と restore の 命令 は 明示的に は コード 生成 器に より 生成され る こ と 
はあり ません。 

原理 上 は、 命令 列 を 単純に 命令の リストと して 表現で きる でしよう。 append- 
instruction-sequences はそう すると 命令 列の 組み立て を 通常の リス トの 
append にて 行う ことができます。 するとし かし、 preserving は 複雑な 命令に 
なります。 それが 各 命令 列に 対し、 レジスタ を どのように 使用す るかの 分析 を 
行わなければ ならない ためです。 また 複雑で あると 同様に pre  serving が 非 効 
率に もなります。 各 命令 列の 引数 を も 分析し なけれ ば ならなくなる ため です。 
例え これらの 列 自身が preserving の 呼 出に ょリ 構築され ていて、 それらの 部 
品が 既に 分析され ていても です。 そのような 分析の 繰り返し を 防ぐ ために、 各 
命令 列 とその レジスタ 使用 に 関する 情報 と を 結び付 け ま す。 基本的な 命令 列 を 
構築す る 時に、 私達 はこの 情報 を 明示的に 与えます。 そして 命令 列 を 接続す る 
手続 は 列の 組み合わせ のために、 レジスタ 使用の 情報 を 構成 部品で ある 列に 結 
び 付 け ら れた 情報 か ら 引き出します。 

命令 列 は 3 つの 情報 を 持ちます。 

• 命令 列 内の 命令が 実行 される 前に 初期化し なければ ならない レジスタ 
集合 （これらの レジスタ は 命令 列に より needed (必要と される） と 述べら 
れる） 

• 列 内の 命令に よ り その 値が 変更され る レジスタ 集合 
• 列 内の 実際の 命令 （statement (命令文） とも 呼ばれる） 

命令 列 を その 3 つの 部品と して 表現し ます。 命令 列の コンストラクタ は 従って 
以下の ようにな リ ます。 
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( def  ine    (make-instruct ion- sequence 
needs  modifies    statements ) 
( list  needs  modifies   statements ) ) 

喩えば、 現在の 環境 内で 変数 x の 値 を 探し、 その 結果 を val に 割り当てて 戻る 
2 つの 命令の 列 は レジスタ env と continue が 初期化 される 必要が あり、 そし 
て レジスタ val を 変更し ます。 この 列 は 従って 以下の ように 構築され ます。 

make  - instruct  ion- sequence 
' 、env  continue ) 
' (val) 

' 、 k  assign  val 

(op   lookup -variable -value )    (const  x )    ( reg  env) ) 
(goto    (reg  continue ) ) ) ) 

時々、 命令文が 無い 命令 列 を 構築す る 必要が あり ます。 

(, del  ine    (emctv-inst  ruction -sequence; 

に make - instruction - seauence    '、)    1 () '())) 

命令 列 を 組み立て る 手続 は Section  5.5.4 に 示 します。 

Exercise  5.31: 手続 適用 を 評価す る 場合に おいて、 明示的 制御 評価 
機 は 常に オペレータの 評価の 周りで env レジスタの 保存と 復元 を 
行う。 また 各 オペランドの 評価の 評価の 周りで も （最後の 1 つ を 除 
いて） env の 保存と 復元 を 行う。 そえい オペランド 列の 評価の 周り 
では proc の 保存と 復元 を 行う。 以下の 各 組み合わせに 対し、 これ 
らの save と restore 命令の どれが 余分で あり、 従って コンパイラ 
の preserving の 仕組みに より 削減で きる か を 述べよ。 

(f    'x  'y) 
((f)    'x  'y) 
(f   (g   'x)  y) 
(f    (g    'x)  'y) 

Exercise  5.32:  preserving の 仕組み を 用いた 場合、 コ ン パイ ラは 

組み合わせの オペレータの 評価の 周 リ で オペレータが シンボルの 
場合 に env の 保存 と 復元 を 削減す る ことができる。 また そのよう 
な 最適化 を 評価 機の 中に 構築す る こと もで きる だろう。 実際に、 
Section  5.4 の 明示的 制御 評価 機 は 既に 似た よう な 最適化 を オペラ 
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ン ドの 無い 組み合わせ を 特別な 場合と して 扱う ことで 実行して 
いる。 

a 明示 的 制御 評価 機 を 拡張し オペレータが シン ボルで ある 組 
み 合わせ を 別の クラスの 式と して 認識す る よ う にせよ。 そ し 
てこの 事実 を そのよう な 式の 評価に おいて 活用す るよう に 
せよ。 

b  Alyssa  P.  Hacker は 評価 機 を 拡張し、 組 込む ことができる 全 
ての コンパイラの 最適化 を より 多く の 特別な 場合と して 認識 
する ことで、 コンパ ィ ルの 利点 全体 を 無くす ことができ ると 
提案した。 あなた はこの 考え を どう 思う カリ 

5.5.2 式の コンパイル 

こ の 節 と 次の 節で は、 compile 手続が 割 リ 振る コード 生成 器 を 実装 します。 

リ ン クコ一 ドの コンパイル 

一般的に、 各 コード 生成 器の 出力 は 手続 compile-linkage により 生成され 
た、 要求され た リンク 記述子 を 実装した 命令で 終わります。 もし リンク 記述子 
が return なら、 命令 （goto  (reg  continue)) を 生成せ ねばな りません。 これ 
は continue レジスタ を 必要と し、 他の レジスタ を 変更 はしません。 もし リン 
ク 記述子が next なら、 何の 追加の 命令 も 必要ありません。 さもなければ、 リ 
ンク 記述子 は ラベルで あり、 その ラベルへの goto を 生成し ます。 この 命令 は 
レジスタ を 必要と せず、 変更 もしません。 36 

36 この 手続 は backquote (/く ッゥ クオ一 ト、 または g«asi9Mote (擬似 クオ一 ト）） と 呼ばれ 
る Lisp の 機能 を 使用し ます。 これ は リスト を 構築す るのに 便利です。 リストの 前に バッ 
ク クオ 一 ト 記号 を 置く こと は クオート する ことに とても 似て いますが、 リスト 内の カン 
マで 合図され た 物 全て を 評価す る こと が 異な リ ま す。 

例えば、 も し linkage の 値が シンボル brancli25 の 場合、 以下の 式 は 

—((goto   (label , linkage ) ) ； 

次の リストと して 評価され ます。 
( (goto   (label  branch25))) 

同様に、 もし x の 値が リスト （a  b  c) ならば、 以下の 式 は 
•(12, (car  x)) 
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( def  ine 
( cond 


( compile -linkage  linkage ) 
( ( eq? linkage    1  return) 


(make-instruction -sequence    ' ( continue ) ' ( ) 
' ( ( goto    (reg   continue ) ) ) ) ) 
( ( eq?   linkage    1  next ) 

(empty- instruction-sequence)) 
(else 

(make-instruction -sequence    '()    1 () 
^ ((goto    (label , linkage )))))) ) 


リンクの コード が 命令 列 に 対 し preserving に よ リ continue レジスタ を 維持 
しながら 追加され ます。 リンク 記述子 return が continue レジスタ を 必要と す 
るた めです。 もし 与えられた 命令 列が contimie を 変更し、 リンクの コードが 
それ を 必要と する 場合、 ccmtimie は 保存と 復元が 行われます。 


( def  ine     end- with- linkage 丄 ink  age  instruction-sequence) 
(preserving    1  ( cont  inue ) 
instruction-sequence 
( compile-linkage   linkage ) ) ) 


単純な 式の コンパイル 

自己 評価 型式、 クオート、 変数に 対する コード 生成 器 は 必要な 値 を ター ゲ 
ッ トのレ ジス タに 割り当て リ ン ク 記述子に よ リ 指示 された よう に 進め る 命令 列 
を 構築し ます。 


( def ine    、 compi 丄 e 一 se 丄： E 一 e valuat ing  exp  target   linkage ； 
( end- with- linkage  linkage 
(make -instruct ion- sequence    ' () (list   target ) 
~ (( assign    , target    ( const    , exp )))))) 
( def  ine    ( compi 丄 e - quoted  exp  target   linkage ) 
( end- with- linkage  linkage 
(make -instruct ion- sequence    '() (list   target ) 


次の リ ストと して 評価され ます。 


(1 2  a) 
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~ ( (assign    , target    (  const    ,  ( text-of -quotation  exp ))))))) 
(define    ( compile- variable   exp  target   linkage ) 
( end- with- linkage  linkage 
(make -instruct ion- sequence    '  ( env)    (list  target ) 
"( (assign    , target 

(op  lookup - variable - value ) 
(const    , exp) 
(reg  env)))))) 

これら 全ての 代入 命令 は ター ゲッ ト レジスタ を 変更し ます。 また 変数の 検索 を 
行う 物 は env レジスタ を 必要と します。 

代入と 定義 はィ ンタ プリ タの 物と 同様に 扱われます。 再帰 的に 変数に 割り 
当てられる 値 を 求める コード を 生成し、 それに 対して 実際に 変数の 設定、 また 
は 定義 を 行う 物と 式 全体の 値 （シ ン ボル ok) を 割り当てる 物の 2 つの 命令 列 を 
接続し ます。 再帰 的な コンパイル は ター ゲッ ト val と リ ンク 記述子 next を 持 
つので コード は その 結果 を val に 入れ、 その後に 接続され た コード を 用いて 続 
けられます。 接続 は env を 維持 （preserving) している 間に 行われます。 環境が 
変数の 設定、 または 定義の ため 必要な ためです。 また 変数の 値の ための コード 
は 複雑な 式の コ ン パイ ルと 成り 得る ため 任意の 方法で レジスタ を 変更す る 可能 
性が あり ます。 

dei ine    (  compile- assignment   exp  target   linkage  ) 
(let    "var    ( assignment -variable   exp) ) 
(get-value- code 
( compile    ( assignment -value   exp )    ' val ' next ) ) ) 
( end- with- linkage  linkage 
(preserving    ' ( env) 
get-value-code 

(make -in struct  ion- sequence    r  (env  val)    (list  target ) 
( (perform   (op   set-variable-value ！ ) 
( const    , var ) 
(reg  val) 
(reg  env)) 
(assign    ，  target    (const  ok)))))))) 

( dei ine    ( compile - def init ion  exp  target   linkage ) 
(let    "var    (definition-variable   exp) ) 
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(get-value- code 
( compile    (definit ion-value   exp )    ' val ' next ) ) ) 
( end- with- linkage  linkage 
(pre  serving    ' ( env) 
get-value-code 

(make -in struct  ion- sequence    r  (env  val)    (list  target ) 
~ ( (perform    (op  def ine-variable ！ ) 
( const    , var ) 
(reg  val) 
(reg  env)) 
(assign    , target    ( const  ok)))))))) 

接続され た 2 つの 命令 列 は env と val を 必要と し、 ター ゲッ トを 変更し ます。 例 
え env を この 列の ために 維持した としても、 val は 維持し ません。 get-value- 
code  が 明示的に その 結果 を この 命令 列の ために val に 配置す る よ う に 設計 さ 
れ ている ためです。 （実際に は、 もし val を 維持した 場合、 バグ を 持つ ことにな 
リ ます。 これにより 直前の val の 中身が get-valne-code の 実行 直後に 復元 さ 
れる ためです。 ） 

条件 式の コ ン パイル 

与えられた ター ゲッ トとリ ンク 記述子と 共に コンパイル される if 式の た 
めの コード は 以下の 形式 を 持ちます。 

〈述語の コンパイル， ターゲット ual, リンク 記述子 nea; り 

(test    (op  false? ) i,reg  val)) 

(branch    ( label  false-branch)) 
true-branch 

〈結果 部 与えられた タ一 ゲッ 卜 与えられた リンク 記述子 又は after-ij) 
false-branch 

〈代替 部 与えられた タ一 ゲッ 卜 リ ンク 記述子 > 

af ter-if 

この コード を 生成す るた めに、 述語、 結果 部、 代替 部 を コンパイルし、 結果の 
コード を 述語の 結果 を テス ト する コードと 新しく 生成され た 真と 偽の 分岐 を マ 
ーク する ラベルと 条件文の 最後と 共に 組み立てます。 37 この コードの 準備で 


j7 私達 （ま单 に ラベ ソレ true— branch,  false-branch,  after—if を 上で;! r; された よつ に 使 
う こと はでき ません。 なぜなら プログラム 中に if 文 は 複数 存在す る 可能性が あるた めで 
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は、 テストが 偽で ある 場合、 真の 分岐へ と 飛ぶ 必要が あります。 唯一、 微妙に 
複雑な の は 真の 分岐が リンク 記述子 を どのように 扱う かにつ いてです。 もし 条 

件 文の リンク 記述子が！ ■eturiu または ラベルの 場合、 真と 偽の 分岐 は 両方共 こ 
れと 同じ リンク 記述子 を 用います。 もし リンク 記述子が next なら、 真の 分岐 
は 偽の 分岐 を 飛び越し 条件文の 最後へ と 飛ぶ コードで 終わり ます。 

(define    、 conrni 丄 e - if   exp  target   linkage ) 

(let    ( ( t-branch    (make-label 1  true-branch ) ) 
(f -branch    (make-label  'false-branch)) 
(after - if    (make-label 1 af ter-if ) ) ) 
(let    ( ( consequent -linkage 

、if    ( eq? linkage    1  next )    af ter-if  linkage))) 
v.  let    ((p  -  code    (  compile    (  if -predicate   exp  )    '  val 'next)) 
( c - code 
( compile 
( if -consequent   exp)  target 

consequent -linkage ) ) 

( a - code 

(compile    (if-alternative   exp )    target  linkage))) 
(preserving    1 (env  continue ) 
p - code 

( append- in struct  ion- sequences 
(make - instruction - sequence    ' (val ) ' () 
~  (  ( test    (op  false? )    (reg  val)) 

す。 make-label は シンボル を 引数と して、 与えられた シンボルで 始まる 取り 新しい シン 
ボル を 返します。 例えば、 （make-label •  a) に対する 連続した 呼 出 は al， a2， . . . を 返し 
ます。 make-label はク エリ 言語に おける 一意の 変数 名の 生成と 同様に、 以下の 様に 実装 
する ことができます。 

( def ine label-counter   0 ) 
( def  ine    (new- label -number ) 

( set ！ label-counter   (+ l label -counter ) ) 
label-counter) 
( def  ine   (make-label  name ) 
( st ring-> symbol 

( string-append    ( symbol -> string  name ) 

(number-> string    (new- label -number ) ) ) ) ) 
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(branch    ( label , f -branch) ) ) ) 

(parallel- instruct i on -sequences 
( append  -  instruct  ion  -  sequences   "t  -  branch   c  -  code) 
( append - instruct ion - sequences   f -branch  a— code)) 

after-if )))))) 

env は 述語 コードの 間 維持され ます。 真と 偽の 分岐で 必要になる かも しれな 
いためです。 そして continue も それら 分岐 内で リ ンク のた めの コードに て 使 
用され るか も しれない ため 維持され ます。 真と 偽の 分岐の ための コード （順 
に は 実行され ません） は Section  5.5.4 で 説明され る 専用の 結合 器、 parallel- 
instruct  ion-sequences を 使用して fefe 〇 れ ま  一 9  。 

cond は 派生 式で ある ことに 注意して ください。 そのため コンパイラが 取り 
扱いの ために 必要な こと 全て は （Section ん^の；！^！^-バ土 変換器 を 適用して、 
結果の if 式 を コンパイル する だけです。 

列の コ ン パイル 

列の コンパイル （手続の ボディ、 または 明示的な begin 式） は それらの 評価 
を 並列 化します。 列の 各 式 は 次の 条件で コンパイル されます。 最後の 式 は 列に 
対して 指示され たリ ンク 記述子 を 用いて。 他の 式はリ ンク 記述子 next を 用い 
て （列の 残り を 実行す るた めに)。 個別の 式の 命令 列 は 接続され 単一の 命令 列 を 
形成し ます。 （列の 残りの ために 必要な） env と （列の 終わりの リンク コードで 必 
要な 可能性の ある） continue は 維持され ます。 

(, der ine    (  compile -sequence   seq  target   linkage  ) 
i, if    ( last-exp?  seq) 

( compile    (f irst-exp   seq)    target   linkage ) 
(preserving    '(env   continue ) 
(compile    ( f irst-exp  seq)    target    1  next ) 
( compi 丄 e - sequence    (rest-exps   seq)   target  linkage)))) 

lambda 式の コ ン パイル 

lambda 式 は 手続 を 構築 します。 lambda 式の ための オブジェクト コード は 
以下の 形式に 従わねば なり ません。 

〈手続 才 ブジェク 卜の 構築 
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タ一 ゲッ 卜 レジスタに それ を 割り当てる〉 
〈リ ンク〉 

lambda 式 を コンパイル する 時、 手続の ボディの ための コード も 生成し ます。 例 
え ボディが 手続 構築 時に 実行され なくても、 ォ ブジェク ト コードの 中の lambda 
式の コードの 直後に 挿入して おく こと は 便利です。 も し lambda 式に 対する リ 
ンク 記述子が ラベル か！ ■eturn ならば、 この ことに 問題はありません。 しかし、 
もし リ ンク 記述子が next ならば、 手続の ボディの 後ろに 挿入され た ラベルへ 
飛ぶ リ ンク 記述子 を 使用す る ことにより ボディ に対する コード を 回避す る 必要 
が あ ります。 従って オブジェクト コー ド は 以下の 形式に な り ま す。 

〈手続 才 ブジェク 卜の 構築 
それ をタ一 ゲッ 卜 レジスタに 割当〉 

〈与えられた リンク 記述子に 対する コード〉 または （goto  (label  after- 
lambda; ) 

〈手続 ボディの コンパイル 後コ一 ド〉 

after-lambda 

compile-lambda は 手続の ボディの コードが 続く 手続 オブジェ ク トを 構築す る 
ための コード を 生成し ます。 手続 オブジェ ク トは 実行時に 現在の 環境 （定義 時 
点での 環境） を コンパイル された 手続 ボディの エントリ ポイント （新しく 生成 
された ラベル） と共に 組み立てる ことで 構築され ます。 38 

v.  dei ine    (  compile - lambda  exp  target   linkage  ) 
(let    "proc - entry    (make-label 1  entry ) ) 

( after- lambda    (make-label ' after- lambda ) ) ) 
(let    ( ( lambda- linkage 

(if    ( eq? linkage    1  next )    after-lambda  linkage))) 
( append - instruct ion -  sequences 

38  Section  4.1.3 で 説明した 複合 手続の ための 構造と 同様に、 コンパイル 後の 手続 を 表 
現す るた めの データ 構造 を 実装す るた めの 機械語 命令 を 必要と します。 

t, def ine    (make - compiled- procedure   entrv  env) 

(list    ' compiled-procedure   entry  env) ) 
( def  ine    (compiled-procedure?  proc ) 

(tagged-list?  proc    ' compiled-procedure ) ) 
( def  ine   ( compiled- procedure - entry  c-proc )    ( cadr 
( def  ine    ( compiled - procedure- env   c-proc )    ( caddr 


c-proc) ) 
c-proc) ) 
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(tack- on-inst ruction-sequence 
( end- with- linkage   lambda- linkage 
(make-instruction -sequence    1 (env) ( list   target ) 
~ (( assign    , target 

( op  make - compiled -; procedure ) 
(label , pr oc-entry ) 
(reg  env) ；;) ) 
( compile- lambda-body  exp  proc - entry)) 
after- lambda) ) ) ) 

compile -  lambda は append-instruction- sequences  (Section  5.5.4) ではな く、 
特別な 結合 器 tack- on - instruction- sequence を 手続の ボディ と lambda 式の 

コード を 接続す るのに 利用し ます。 ボディ は 組み立てられた 列が 入力され た 時 
に 実行され る 命令 列の 一部で はないた めです。 そうで はなく、 それ はた だ、 そ 
こに 置く ことが 便利 だから、 その 列の 中に あり ます。 

compile-lambda-body は 手続の ボディの ための コ一 ドを 構築し ます。 この 
コード はェン ト リ ボイ ント に対する ラベルで 開始し ます。 次に 来る の は 実行時 
の 環境 を 手続の ボディの 評価 を 評価す るた めに 正しい 環境へ と スィッチ する 命 
令 列です。 即ち、 手続の 定義 環境で あり、 これ は 手続が 呼ばれる 時に 利用され 
る 引数に 対する 形式 パラメタの 束縛 を 含む ように 拡張され ています。 これの 後 
に は、 式の 列の コードが 来ます。 これが 手続の ボディ を 作り上げます。 この 列 
はリ ンク 記述子 return とタ一 ゲッ ト val と共に コンパイル さるた め、 手続の 
結果 は val に 入れら た 状態で 手続から 戻る ことで 終わり ます。 

dei ine    (  compile- lambda-body  exp  pr  oc-entry  ; 
(let    "formals    (lambda-parameters  exp))) 
( append- instruct  ion- sequences 
(make- instruct ion- sequence    ' (env  proc   argl) ' (env) 
~  ( ，  pr oc-entry 
(assign  env 

( op   compiled - procedure - env ) 
(reg  proc ) ) 
(assign  env 

( op   extend- environment ) 
( const    , f ormals ) 
(reg  argl ) 
(reg  env) ) ) ) 
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( compile - sequence    ( lambda-body  exp )    r  val 1  return) ) ) ) 


5.5.3 組み合わせの コンパイル 

コ ン パイ ル 処理の 本質 は 手続 適用の コ ン パイ ル です。 与えられた ター ゲッ 
トと リンク 記述子 と共に コ ン パイ ル された 組み合わせの コード は 以下の 形式 を 
持ちます。 

〈演算子の コンパイル， ターゲット ?獸, リンク 記述子 nea; り 
〈オペランド を 評価し、 ar^l 内に 引数 リスト を 構築〉 
〈手続 呼 出の コ ン パイル 
与えられた ター ゲッ 卜と リ ンク 記述子と 共に > 

レジスタ env,  proc,  argl は オペレータ （演算子） と オペラ ン ドの 評価の 間に 保 
存と 復元 を 行う 必要が あ るか も しれません。 ここ だけが この コ ン パイ ラ におい 
て val 以外の ター ゲッ トが 指定され る 箇所で ある ことに 注意して 下さい。 

必要な コー ドは compile-application によ リ 生成され ます。 これ は 再帰 的 
に オペレータ を コ ン パイルして proc に 適用す る 手続 を 配置す る コード を 生成 
し、 オペ ラン ドを コンパイルして 個別の 適用の 個々 の オペ ラン ドを 評価す るコ 
一 ドを 生成し ます。 オペ ラン ドの 命令 列 は （construct-arglist によ リ） argl 
に 引数 リスト を 構築す る コードと 共に 組み合わされます。 そして 結果と なる 引 
数 リストの コード は 手続の コードと （compile-procedure-call に よ り 生成 さ 
れた） 手続 呼 出 を 実行す る コードと 共に 組み合わされます。 コードの 列の 接続 
において、 env レジスタ は オペレータの 評価の 周りに おいて 維持 （preserving) 
されなければ なり ません。 （オペレータの 評価が オペ ラン ドの 評価で 必要と な 
env を 変更す る 可能性が あるた め)。 そして proc レジスタ は 引数 リストの 周リ 
で 維持され なければ なり ません。 （オペ ラン ドの 評価が 実際の 手続 適用に 必要 
な proc レジスタ を 変更す るか もしれ ないた め）。 Continue もまた その 間中、 維 
持され なければ なり ません。 手続 呼 出の リ ンク コードが 必要と する ためです。 

dei ine    (  compile - application  exD  target   linkage  ) 
(let    "proc - code    ( compile    ( operator   exp)    1 proc    1  next ) ) 
(operand-codes 
(map   ( lambda 

( operand)    ( compile   operand    1 val 1  next ) ) 
( operands  exp)))) 
(preserving    1 ( env   continue ) 
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proc-code 

(pre  serving    r (proc   continue ) 
(construct-arglist   operand- code s ) 
( compile -procedure -call  target   linkage ) ) ) ) ) 

引数 リスト を 構築す るた めの コード は val 内に 評価して、 次に その 値 を argl 
に 蓄積され る 引数 リスト 上に cons します。 argl 上に 順に 引数 を cons する た 
め、 最後の 引数から 開始し、 最初の もので 終わらなければ なりません。 そうす 
る ことで 引数 は 結果 リ ストの 中に 最初から 最後の 順で 現れる ことにな リ ます。 
この 一連の 評価の ための 設定 を 行うた め、 argl を 空に 初期化す る ことで 命令 を 
無駄に する ので はなく、  argl の 初期値 を 構築す る 最初の コード 列 を 作成し ま 
す。 従って、 引数 リスト 構築の 一般的な 形式 は 以下になります。 

〈最後の 才 ペラン ドの コンパイル， タ一 ゲッ 卜 は wil〉 

i,  assign  argl 、op list)    (reg  val) リ 

〈次の オペランドの コンパイル， タ一 ゲッ 卜 は 1^1〉 

i,  assign  arg 丄 (op   cons )    (reg  val)    (reg  argl) ノ 

〈最初の 才 ペラン ドの コンパイル， タ一 ゲッ 卜 は 1^1〉 

i,  assign  arg 丄 (op   cons )    (reg  val)    (reg  argl) ノ 

argl は 各 オペ ラン ドの 評価の 間、 最初の 1 つ を 除いて 維持し なければ な り ませ 
ん。 （そうする ことで、 そこまで 蓄積した 引数 を 失わない ように)。 そして env 
は （続きの オペ ラン ド 評価での 使用の ため） 各 オペ ラン ドの 評価の 周りで、 最 
後の 1 つ を 除いて 維持され なければ なり ません。 

この 引数 コードの コンパイル は 少し だけ 巧妙です。 評価す る 最初の オペラ 
ン ドの 特別な 扱いと、 argl と env を 異なる 箇所に て 維持す る 必要性の ためで 
す。 construct-arglist 手続 は 引数と して 個々 の オペ ラン ドを 評価す る コード 
を 取ります。 もし オペランドが 全く 無ければ、 単純に 以下の 命令 を 発行し ます。 

I,  assign  argl    (const    kj)  J 

そうでなければ、 construct-arglist は argl を 最後の 引数で 初期化す るコー 
ドを 生成し、 引数の 残り を 評価す る コード を 接続し、 それら を 相次いで argl 

の 中に 隣接 させて いきます。 引数 を 最後から 最初へ 処理す るた めに、 オペ ラン 
ドの コード 列の リスト を compile-application に よ リ 提供 さ れた順 か ら 逆順 

(reverse) にす る 必要が あり ます。 

(, del ine    (construct-arglist   ope  rand- codes  ； 
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(let    ((operand-codes    (reverse   operand- codes ) ) ) 
(if    (null?   operand- codes ) 

(make-instruct ion- sequence    ' ()    ' ( argl ) 

r (( assign  argl ( const  ())))) 
(let    ( ( code-to-get-last- arg 

(append- instruct ion- sequences 
(car  operand-codes) 

(make- instruct  ion- sequence    '  ( val ) ' (argl) 
'((assign  argl    (op  list )    (reg  val ))))))) 
(if    (null?    ( cdr  operand-codes) ) 
code-to-get-last- arg 
(preserving    ' ( env) 
code-to-get-last- arg 
( code-to-get-rest- args 
(cdr  operand - codes: 


(define    (code -" to - get —rest - args   operand- codes ) 
(let    "code -: for  -  next  -  arg 

(preserving    1 (argl) 
( car   operand- codes ) 

(make - instruction - sequence    1 (val  argl ) 
' 、 v assign  argl 

(op   cons )    (reg  val)    (reg  argl) )))))) 
(if    (null?    ( cdr   operand- code s ) ) 
code-for-next-arg 
(preserving    ' ( env) 
code-for-next-arg 

(code-to-get-rest- args    (cdr   operand- code s 


1 (argl) 


手続の 適用 

組み合わせの 要素 を 評価した 後に、 コンパイルされ たコ一 ドは proc 内 
の 手続 を argl 内の 引数に 適用し なければ なりません。 この コード は 本質的 
に Section  4.1.1 の メタ 循環 評価 機の apply 手続、 または Section  5.4.1 の 明示的 
制御 評価 機の apply  -  dispatch エントリ ポイントと 同じ 割 リ 振 り を 実行し ま す。 
適用す る 手続が プリ ミ ティ ブな 手続で あるか 複合 手続で あるか を 確認し ます。 
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プリ ミ ティ ブな 手続に 対して は、 apply-primitive-procedure を 使用し ます。 

簡潔に これが どのように コンパイル された 手続 を 取り扱う のかに ついて 見て い 
きます。 手続 適用の コード は 以下の 形式 を 持ちます。 


test    (op  primitive-procedure?;    、reg  proc ) ) 
(branch    ( label  primitive-branch)) 
compiled - branch 

〈与えられた タ一 ゲッ 卜と 適切な リ ンク 記述子と 共に 手続 を コンパイル する コ 
ード〉 

primitive-branch 
(assign  (target) 

( op   apply-pr unit ive -procedure ) 
(reg  proc ) 
(reg  argl リリ 
〈リ ンク コード〉 
after - call 

コンパイル された 分岐 は primitive- branch を スキップし なければ ならない こと 
に 注意して 下さい。 従って、 もし 元の 手続 呼 出の リンク 記述子が next ならば、 
複合 分岐 は primitive- branch の 後に 挿入され た ラ ベルへ と 飛ぶ リンク コード を 
使用し なければ なりません。 （これ は compile-if において、 真の 分岐の ために 
使用 さ れた リンク コードと 同様です。 ） 

dei ine    (  compile-pro  cedure  -  call   target   linkage  ) 
(let    ^primitive-branch    (make-label  'primitive-branch)) 
( compiled - branch    (make-label 1  compiled-branch) ) 
(after-call    (make-label 1  after-call) ) ) 

(let    ( ( compiled- linkage 

(if    ( eq? linkage    1  next )    after-call  linkage))) 
( append - instruct ion -  sequences 
(make- instruct ion- sequence    ' (proc ) ' () 
~  (  ( test    (op  primit ive -pro cedure?)    (reg  proc)) 
(branch    (label ， primitive - branch)))) 
(parallel- instruct  ion- sequences 
(append- instruct ion- sequences 
compiled - branch 

( compile -pro c-appl  target   compiled- linkage ) ) 
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(append- instruct ion- sequences 
primitive-branch 
( end- with- linkage  linkage 
(make-instruction-sequence    ' (proc   argl ) 

(list  target ) 

~ (( assign    , target 

( op   apply-pr imit ive -procedure ) 

(reg  proc ) 

(reg  argl))))))) 

after-call) ) ) ) 

compile-if の 真と 偽の 分岐の ような、 プリミティブ かつ、 複合な 分岐 は 通常の 
aDuend-instruct ion- sequences ご はな く  parallel - instruction - sequences 

を 用いて 接続され ます。 それら は 順に は 実行され ないた めです。 

コンパイル 済み 手続の 適用 

手続の 適用 を 取り扱う コード は コンパイラの 最も 微妙な 部分です。 例え そ 

れが 生成す る 命令 列が とても 短くても 変わり ません。 （compile-lambda に よ リ 
構築され たよう な） コ ン パイル された 手続 は 手続が 開始す る 場所 を 指定す るラ 
ベルで ある エントリ ポィ ントを 持ちます。 この エントリ ポイント にて コー ド は 
val に 結果 を 求め、 命令 （goto  (reg  continue)) を 実行す る ことによ リ戻リ 
ます。 従って 与えられた ター ゲッ トとリ ンク 記述子 を 伴な う （compile-proc- 
appl により 生成され る） コンパイル された 手続の 適用 はリ ンク 記述子が ラベル 
であれば 以下の よう にな リ ます。 

に assign   continue    、上 abel  proc-return; ) 

(assign  val    (op   compil ed-urocedure- entry )    (reg  proc) ソ 

(goto    (reg  val) ) 
proc-r eturn 

(assign  (target)    (reg  val)) ；タ一 ゲッ 卜カミ val でなければ 含まれ 

る 

(goto    (label 〈リンク 記述子〉）） ； リンク コード 

ま た は リ ン ク 記述子が return の 場合 は 次の と お リ です。 

に save   continue ) 
(assign   continue    (label  proc - returii) ) 
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(assign  val ( op   compiled -； procedure - entry )    (reg  proc ) ) 
(goto    (reg  val) ) 
proc - return 

(assign  (target)    (reg  val)) ；タ一 ゲッ 卜カミ val でなければ 含まれ 

る 

(restore   continue ； 

(goto    (reg   continue  ) )  ； リノ クコ 一 卜 

この コード は 手続が proc-return に 戻る ように continue を 設定し、 手続の ェ 
ン ト リ ポィ ント へと 飛びます。 proc-return の コード は 手続の 結果 を val から 
ター ゲッ ト レジスタ へと （もし 必要なら） 転送し、 次に リンク 記述子に より 指定 
された 位置へ と 飛びます。 （リンク 記述子 は 常に return か ラベルです。 なぜな 
ら compile-procedure-call が 複合 手続の 分岐の ための リ ンク 記述子 next を 
after-call ラベルに 置き換える ためです。 ) 

実際に は、 もし ターゲットが val でなければ、 それ はま さに 私達の コンパ 
イラが 生成す る コードです。 39 しかし、 通常 は ターゲット は val であり （コン 
パイ ラ が 異な る レジスタ を 指定す る 唯一の 場合 は オペレータ の 評価の ター ゲッ 
トを proc にす る 時です)、 そのため 手続の 結果 は 直接 ター ゲッ ト レジスタに 入 
れ られ、 コピー を 行う 特別な 位置へ 戻る 必要はありません。 その代わりに、 手 
続が 直接 呼び出し 元の リ ンク 記述子に より 指定され る 場所へ 直接" 戻る" よう 
に continue を き文疋 し ま す。 

(continue に リ ンク 記述子 を 設定〉 

I.  assign  val    (op   compi 丄 ed  -  procedure  -  entry リ (reg  proc)) 
(goto    (reg  val) ) 

もし リ ンク 記述子が ラベルな らば、 手続が その ラベルに 戻る ように continue 
を 設定し ます。 （つまり、 上記の proc-return において 手続の 終端 （goto  (reg 
continue)) せ (goto  (label  <linkage>) ) と 等価になります。 ） 

(assign   continue    (label 〈リンク 記述 十/)) 

(assign  val    (op   compiled - procedure - entry )    (reg  proc)) 
(goto   (reg  val) ) 

もし リ ンク 記述子が return なら、 continue を 設定す る 必要 は 全く ぁリ ません。 
それ は 既に 望まれた 位置 を 持って います。 （言い換えれば、 手続の 終端 （goto 

39 実際に、 ターゲットが val でな く、 リンク 記述子が return である 場合に は エラー を 
発します。 私達が リ ンク 記述子 return を 要求す る 箇所 は 手続の コンパイル 内の みです。 
そして 私達の 仕様 は、 手続 は その 値 を val にて 返す、 です。 
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(reg  continue) ) は proc-return の (goto  (reg  continue) ) 力 ミ 飛^ >はず,こ つ 

た 場所へ 直接 飛びます。 ） 

I.  assign  val に op   compi 上 ed — procedure  —  entry  ノ    、reg  proc  ) ) 
kgoto に reg  val) ) 

この リ ンク 記述子！ ■eturn の 実装 を 用いて、 コ ンパ イラ は 末尾 再帰の コード を 
生成し ます。 手続の ボディの 最後 ステップと しての 手続の 呼 出 は 直接 移動 を 行 
い スタック 上に どのような 情報 も 保存し ません。 

その 代わ リ に 手続 呼 出の 場合 を リ ンク 記述子：: eturn と ター ゲッ ト val を 
用いて、 上記で 示された ように val 以外の ター ゲッ ト に対して も 取り扱つ たと 
仮定し ます。 これ は 末尾 再帰 を 損う でしよう。 それでも、 私達の システム は 任 
意の 式に 対して 同じ 値 を 与えます。 しかし、 私達が 手続 を 呼ぶ 度に、 continue 
を 保存し、 呼 出の 後に （必要の 無い） 保存の 取消 を 呼び出す ことになります。 こ 
れらの 余分な 保存が 入れ子の 手続 呼 出の 間に 蓄積され ます。 4Q 

codecompile-proc-appl は 上記の 手続 適用の コード を 生成し ます。 これ は 呼 
出の ための ター ゲッ トが val であるか、 そして リンク 記述子が return であ 
るかに ついて に 依存す る 4 つの 場合に ついて 考慮し ます。 命令 列が 全ての レ 
ジス タを 変更す るた めに 宣言され る ことにつ いて 注意して 下さい。 手続の ボ 
ディの 実行が 自由な 形で レジスタ を 変更す る ことができる ためです。 41 また 

4(5 コンパイラに 末尾 再帰の コード を 生成させる こと は 簡単な 考えの ように 見える かも 
しれません。 しかし 一般的な 言語の ための 多くの コンパイラ は C 言語と Pascal を 含め 
て、 これ を 行いません。 従って これらの 言語 は 反復 プロセス を 手続 呼 出の み を 用いて 表 
現す る ことができません。 これらの 言語に お け る 末尾 再帰の 困難 さは それら の 実装が ス 
タック を 用いて 手続の 引数と ローカル 変数と 同様に リターン ァ ドレス を も 格納して い 
るた めです。 この 本で 説明され ている Scheme の 実装 は 引数と 変数 を ガベー ジコレ クシ 
ヨンされ るよう に メモリに 保存し ます。 変数と 引数に 対して スタック を 使用す る 理由 は 
他の やり方に より ガベー ジコ レ クシ ヨンの 必要の 無い 言語 内で、 その 必要性 を 回避す る 
からです。 そして 一般的に はより 効率的に なると 信じられ ています。 実際に は、 最新の 
Lisp コ ン パイ ラ は 末尾 再帰 を 無効 化せずに ス タツ クを 引数の ために 使用す る こ とがで き 
ます。 （この ことの 説明に 関して は Hanson  1990 を 参照して 下さい)。 また スタックの 割当 
がそ も そ も ガベー ジ コレクションより 効率的で ある か ど う かにつ いての 討論 もい くつ か 
存在し ます。 しかし、 詳細 は コンピュータ アーキテクチャの 委細に 依存して いるよう に 
見えます。 （この 問題の 反対の 立場からの 視点に ついては Appel  1987 と Miller  and  Rozas 
1994 を 参照して 下さい。 ) 

41 変数 all- regs は 全ての レジスタの 名前の リ ストに 対して 束縛され ます。 

^define  all— regs    1 lenv  proc  val  argl  continue ) ； 
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ター ゲッ トが val であり、 リンク 記述子が！ ■eturn の 場合に 対する コードの 
列 は continue を 必要と すると 宣言され ている ことに 注意して 下さい。 例え 
continue が 明示的 に 2 つの 命令 列 の 中 で 使用 されて いなく とも、 私達が コ ン 
パイル された 手続 を 入力した 時に continue が 正しい 値 を 持つ こと を 確実に し 
なければ な リ ません。 

dei ine    、  compile - proc - apol  target   linkage  ) 
( cond   ((and   ( eq?  target    1 val ) (not    ( eq? linkage    1  return ) ) ) 
(make-instruction -sequence    ' (proc )  all-regs 
、 "assign   continue    (label , linkage  ) ) 

(assign  val    (op   compiled -; procedure - entry ) 

(reg  proc)) 
(goto    (reg  val; ； ) ) ) 
( ( and   (not    ( eq?  target    ' val) ) 

(not    ( eq?   linkage    1  return) ) ) 
(let    ( (proc - return    (make-label 1 proc -return ) ) ) 
(make- instruct  ion- sequence    '  (proc )  all-regs 
、 ((assign   continue    ( label ， proc - return) ) 
(assign  val   (op   compiled - procedure - entry ) 

(reg  proc リリ 
(goto    (reg  val) ) 
， proc - return 

(assign    , target    (reg  val)) 
( goto    (label ， linkage )))))) 
((and   ( eq?  target    1 val) ( eq?   linkage    1  return) ) 
(make-instruction -sequence 
' (proc   continue ) 
all-regs 

1  (( assign  val   (op   compi 丄 ed -; procedure - entry ) 
(reg  proc) ) 
(goto    (reg  val) ) ) ) ) 
((and   (not    ( eq?  target    1 val ) ) 
( eq?   linkage    1  return) ) 
( error   " return  linkage ,    target  not  val : COMPILE " 
target)))) 
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5.5.4 命令 列の コンパイル 

この 節で は 命令 列が どのように 表現され、 組み合わされる のかに ついての 

詳細 を 説明し ます。 Section  5.5.1 から 命令 列が 必要な レジスタの リスト、 変更 
される レジスタ、 実際の 命令の リ ストと して 表現され たこと を 思い出して 下さ 
い。 また ラベル （シンボル） を 命令 列の 退化した 場合 だと 考慮し ます。 これ は ど 
の レジスタ も 必要と せず、 また 変更し ません。 故に、 命令 列に より 必要と され 
る、 または 変更され る レジスタ を 決定す るた めに 以下の セレクタ を 用います。 

dei ine    (registers-needed  s ) 

(if    (symbol?   s)    '()    (car  s))) 
( def ine    (register s -modified  s ) 

(if    (symbol?   s)    '()    (cadr   s) ) ) 
( dei ine    (statements  s) 

、if    ( symbol?   s) (list   s )    ( caddr   s ) ) ) 

また 与えられた 命令 列が 与えられた レジスタ を 必要と する か、 変更す るか を 決 
定 する ために 以下の 述語 を 用います。 

dei  ine    (neeas - register?   sea  reg) 
(memq  reg   (registers-needed   seq) ) ) 
( dei ine    (modii les - register?   seq  reg) 
(memq  reg   (registers-modified  seq))) 

これらの 述語と セレクタ を 用いて、 コンパイラ を 通して 使用され る 様々 な 命令 

列の 結合 器 （combiner) を 実装す る こと がで きます。 

基本的な 結合 器 は append-instruction-sequences です。 これ は 引数と し 
て 順に 実行され る 任意の 数の 命令 列 を 取り、 命令文 （statement) が 全ての 命令 
列の 命令文 を 一緒に 接続 し た 命令文で ある 命令 列 を 返します。 結果の 命令 列 に 
より 必要と される、 または 変更され る レジスタの 決定が 繊細な 点 に な リ ま す。 
これ は 命令 列の どれ かにより 変更され る レジスタが 変更され ます。 また これ は 
最初の 命令 列が 実行す る 前に 初期化され なければ ならない レジスタ （最初の 命 
令 列で 必要と される レジスタ） に加えて、 それに 続く 命令 列に より 初期化され 
ない （変更され ない） 他の 命令 列に より 必要と される レジスタ 全てです。 

命令 列 は append-2-sequences によ リー 度に 2 つ 力 《接続され ます。 これ は 
2 つの 命令 列 seql と seq2 を 取り 、 命令文が seql の 命令文の 後に seq2 の 命令 
文が 置かれる 命令 列 を 返します。 これの 変更され た レジスタ は seql か seq2 の 
どち ら かによ リ 変更 された レジスタ です。 そして 必要と される レジスタ は seql 
により 必要と される レジスタと seq2 で 必要と され seql で 変更され ない レジ 
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スタを 加えた ものです。 （集合の 命令 を 用いて、 必要な レジスタの 新しい 集合 は 

seql により 必要と される レジスタの 集合と、 seq2 によ り 必要と される レジス 
タと seql によ リ 変更され た レジスタの 差 集合との、 和 集合です。 ） 

^define    (append- instruct ion- sequences    .    seqs ) 
( dei ine    ( append - 2 - sequence s   seql   seq2 ) 
(make- instruct  ion- sequence 
(list-union 
(registers - needed   seql ) 

(list-difference    (registers - needed   seq2 ) 

(registers-modified  seql))) 
(list-union    (registers-modified   seql ) 

(registers-modified   seq2 ) ) 
( append   ( statements   seql ) ( statements   seq2 ) ) ) ) 
( dei ine    (append - seq - list   seqs ) 
( if    (null?   seqs ) 

(empty- instruct  ion -sequence) 
(append - 2 - sequences 
(car   seqs ) 

( append- s eq-1 ist    ( cdr  seqs))))) 
( append- seq-1 ist   seqs ) ) 

この 手続 はリ ストと して 表現され た 集合 を 操作す るた めの いくつかの 簡単な 命 

令 を 使います。 Section  2.3.3 で 説明され た （順序 無し） 集合 表現と 同様です。 

def ine    (list-union  si s2; 
(cond   ((null?   si) s2) 

( (memq   ( car  si) s2) ( list-union   ( cdr  si) s2) ) 
(else    ( cons    (car  si)    (list-union   ( cdr   si) s2 ) ) ) ) ) 
(define    (list-difference   si s2) 
(cond   ((null?   si) ' ()) 

( (memq  ( car  si) s2) (list-difference  ( cdr  si) s2 ) ) 
(else    ( cons    (car  si) 

(list-difference    (cdr   si) s2) ) ) ) ) 

preserving は 2 つ 目の 主な 命令 列 結合 器です 力 乞 レジスタの リスト regs と 
順に 実行す る 2 つの 命令 列 seql と seq2 を 取ります。 これ は seql の 命令文 
(statements) の その後に seq2 の 命令文が 続く 命令文 を 持つ 命令 列 を 返します。 
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この 命令文に は seql により 変更され るが seq2 で 必要と される regs 内の レジ 
スタを 守る ために seql の 周 リ に 適切な save と restore が 追加され ます。 こ 
れを 達成す るた めに、 preserving は 最初に 必要と される save とそれ に 続く 
seql, それに 続く 必要と される！ ■estore を 持つ 命令 列 を 作ります。 この 命令 列 
は seql により 必要と される レジスタ に加えて レジスタの 保存と 復元 を 必要と 
します。 そして seql で 変更され た レジスタ を 保存と 回復が 行われる もの を 除 
いて 変更し ます。 次に、 この 増補され た 命令 列と seq2 が 通常の 方法で 接続 さ 
れ ます。 以下の 手続 はこの 戦略 を、 維持され るべき レジスタの リスト を 横断し 
ながら 再帰 的に 実装し ます。 42 

V dei ine    (preserving  regs   seal   sea2 ) 
、if    (null?   regs ) 

( append - instruct ion - sequences   seql   seq2 ) 
(let    ((first - reg   (car  regs))) 

(if    ( and    (needs-register?   seq2  f irst-reg) 

(modifies -: register?   seql f irst-reg ) ) 
(preserving   ( cdr  regs ) 
(make -in struct  ion- sequence 
( list-union    ( list   f  irst-reg) 

(registers-needed  seql)) 
(list-difference    (registers-modified  seql ) 

( list   f irst-reg) ) 
( append    ~ ( ( save    , f  irst-reg ) ) 
( statement  s   seql ) 
~ ( (restore    , f irst-reg) ) ) ) 

seq2 ) 

(preserving    ( cdr  regs )    seql   seq2 ) ) ) ) ) 

另 lj の 命令 列 糸吉合 器で ある tack - on - instruction - sequence は compile - lambda 

により 手続の ボディ を 他の 命令 列に 接続す るた めに 使用され ます。 手続の ボデ 
ィは 組み合わされた 列の 一部と して 実行され るた めの" インライン" 形式で は 
ないた め、 それによ る レジスタの 使用 は それが 組 込まれる 命令 列の レジスタ 使 
用に 影響 を 与えません。 従って 手続 ボディの 必要な、 また 変更され る レジスタ 
の 集合 は 別の 命令 列に 接続す る 時に 無視され ます。 

42preserving が append を 3 つの 引数と 共に 呼び出す ことに 注意して 下さい。 この 本 
に 表われる append の 定義 は 2 つの 引数し か 受け付けません が、 Scheme の 標準 は 任意の 
数の 引数 を 取る append 手続 を 提供し ます。 
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( def  ine    (tack- on- instruct  ion- sequence   seq  body-seq) 
(make - instruction - sequence 
(registers-needed  seq) 
(registers - modii led  seq) 
( append   ( statements  seq) 

( statements  body-seq) ) ) ) 

compile - if と compile - procedure - call は parallel - instruction - sequences 

と 呼ばれる 特別な 結合 器 を 使用して テストに 続く  二者択一の 分岐 を 接続し ま 

す。 2 つの 分岐 は 絶対に 順に は 実行され ません。 どんな テストの 評価に 対して 
も、 一方 か、 別の 一方に 入ります。 このため、 2 つ 目の 分岐に より 必要と され 
る レジスタ は 例え もし これらが 1 つ 目の 分岐に より 変更され ようと も 依然と し 
て 結合 後の 命令 列で も 必要と します。 

dei ine    (para 丄 lei - instruction  -  seauences   seqi   seq2 ) 
(make - instruction - sequence 
( li st-union    (registers-needed   seql ) 

(registers -needed   seq2 ) ) 
(list-union   (registers-modified   seql ) 

(registers-modified   seq2 ) ) 
( append   ( statements   seql ) 

( statements   seq2 ) ) ) ) 

5.5.5 コンパイル された コードの 例 

これで コンパイラの 全ての 要素に ついて 学び 終えました。 ここまでの もの 
が どのように 御 互いに 組合せ られ るの か を 見る ために コンパイル 済みの コード 

の 例 を 試して みましょう。 再帰 factorial 手続の 定義 を compile を 呼ぶ ことで 
コ ン パイルして みます。 

、 compile 
1    dei  ine  、： factorial n) 
(if    (=  n 1) 

(*    (factorial (- n 1)) n))) 

1  val 
1  next ) 
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define 式の 値 は レジスタ val に 配置され な ければ な らな いと 指定し ました。 私 
達 は def ine を 実行した 後に コンパイル 済み コードが 何 を 行う のか 気にし ませ 
ん。 そのため リ ンク 記述子に 対する next の 選択 は 気 ま ぐれです。 

compile は 式が 定義で あるか を 判断し ます。 そのため compile-definition 
を 呼び出し （ター ゲッ ト val に 対し） 割り当てられるべき 値 を 求める コード を 
コンパイル します。 続いて 定義 を 導入す る コード、 さらに define の 値 （シンポ 
ル ok) を ター ゲッ ト レジスタに 入れる コード、 最後に リンク コードが 続きます。 
env は 値の 演算の 周りで 維持され ます。 定義の 導入の ために 必要と される ため 
です。 今回の リンク 記述子 は next ですから、 リンク コード は 存在し ません。 従 
つて コンパイル された コー ドの 骨格 は 以下の よ う に な リ ま す。 

〈値 を 求める コードで 変更され るなら erro を 保存〉 

〈定義 値、 タ一 ザット val、 リンク 記述子 nea;i の コンパイル〉 
〈上で 保存 したなら erw の 復元〉 
(perform   (op  def ine - variable ！ ) 

(const  factorial) 

(reg  val) 

(reg  env) ) 
(assign  val ( const   ok) ) 

変数; factorial に対する 値 を 生成す るた めに コンパイル される 式 は、 値が 階 
乗 を 計算す る 手続で ある lambda 式です。 compile は compile-lambda を 呼ぶ 
ことにより これ を 扱います。 compile-lambda は 手続の ボディ を コ ン パイルし、 
それに 新しい ェン ト リ ボイ ントと して ラベル付け を 行い、 新しい ェン ト リ ボイ 
ントの 手続 ボディ を 実行時 環境と 組み合わせ、 結果 を val に 割り 当てる コード 
を 生成し ます。 次に 命令 列 はこの 時点で 挿入され た、 この コンパイルされ たコ 
ードを スキップ します。 手続の コ 一 ド それ 自体 は 手続 定義 環境 を 形式 パラ メ タ 
n を 手続の 引数に 束縛す る フレーム により 拡張する ことから 始めます。 その 次 
に 実際の 手続の ボディが 来ます。 変数の 値の ための この コード は env レジスタ 
を 変更し ません ので、 上で 示された 任意の save と restore は 生成され ません。 
(entry2 における 手続の コード はこの 時点で は 実行され ません。 そのため、 そ 
の env の 使用 は 無関係です)。 従って、 コンパイル された コードの 骨 組 は 以下の 
ようになり ます。 

( assign  val 

(op  make - compiled - procedure リ 
(label  entrv2) 
(reg  env; ； 
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( goto    (label af ter-lambdal ) ) 
entry2 

(assign  env   (op   compiled - procedure - env)    (reg  proc ) ) 
(assign  env 

(op   extend- environment ) 
(const    (n) ) 
(reg  argl) 
(reg  env) ) 
く 手続 ボディ の コンパイル〉 
af ter-lambdal 

(perform   ( op  def ine-variable ！ ) 
( const   factorial ) 
(reg  val) 
(reg  env)) 
(assign  val    (const   ok) ) 

手続の ボディ は 常に (compile-lambda-body によ り)、 タ一 ゲッ ト val と リンク 
記述子 return を 用いる 命令 列と して コンパイル されます。 今回の 場合の 命令 
列 は 単一の if 式から 成り立ちます。 

(if    (=  n 1) 

(*    (factorial (- n 1) ) n)) 

compile-if は 最初に 述語 を 演算し （タ一 ゲッ トは val)、 次に その 結果 を 確認 
して 述語が 偽で あれば 真の 分岐 を 回避し ます。 env と continue が 述語の コ一 
ドの 周りで 維持され ます。 それらが if 式の 残りの 部分で 必要と なる 可能性が 
あるた めです。 if 式が 手続の ボディ を 構成す る 命令 列 内の 最後の 式で あるた 
め （そしてた だ 1 つの 式で あるた め)、 その ターゲット は val で、 リンク 記述子 
は return になり ます。 そのため 真と 偽の 両方の 分岐が タ 一ゲッ ト val と リ ン 
ク 記述子 return と共に コンパイル されます。 （言い換えれば、 どちら かの 分岐 
により 値が 演算され る 条件文の 値が その 手続の 値です。 ） 

〈述語に より 変更され、 分岐に より 必要と されるなら conhrme,  em; を 保存す 
る〉 

く 述語， ターゲット "ひし リンク 記述子 neict の コンパイル〉 
く 上で 1 呆^ ^ したな b  continue,   em; を復兀 する） 
(test    ( op  false? ； に reg  val ； ) 
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(branch    (label f alse-branch4 ) ) 
true-branch5 

〈真の 分岐， ターゲット" ひ 1， リンク 記述子 return の コンパイル〉 
f alse-branch4 

〈偽の 分岐， ターゲット "ひし リンク 記述子 return の コンパイル〉 
af ter-if  3 

述語 （= n 1) は 手続の 呼 出です。 これ は オペレータ （シンボル =) を 探し、 その 
値 を proc 内に 配置し ます。 次に 引数 1 と 変数 n を argl に 集めます。 そして 
proc が プリミティブ、 または 複合 手続 を 含む かどう か を テストし、 それに 応じ 
て プリ ミ ティブの 分岐 か 複合の 分岐へ 飛びます。 両方の 分岐が ラベル after- 
call  にて 再開し ます。 オペレータと オペ ラン ドの 評価の 周りで レジスタ を 維 
持す る 必要性 は どの レジスタ も 保存す る ことに はなり ません。 今回の 場合 は そ 
れらの 評価 は 問題と なる レジスタ を 変更し ない ためです。 


(assign 

croc 

(op 

lookup- 

variable- 

-value )    ( const  =) 

(reg 

env) ) 

(assign 

val 

( const 

D) 

(assign 

argl 

(op li 

st)  (reg 

val)) 

(assign 

val 

(op 

lookup- 

variable- 

-value )    ( const  n) 

(reg 

env) ) 

(assign 

argl 

( op   cons )  (reg 

> 

(test    (op  primitive -procedure? )    (reg  proc ) ) 
(branch    (label  primitive-branchl7) ) 
compiled - bran chl6 

(assign   continue    ( label   after- calll5 ) ) 

(assign  val   (op   compi 丄 ed - procedure - entry )    (reg  proc)) 
(goto    (reg  val) ) 
primitive - bran chl7 
( assign  val 

(op   apply - primitive - procedure ) 
(reg  proc ) 
(reg  argl ) ) 
af  ter-calll5 

真の 分岐 は 定数 1 です が、 （タ一 ゲッ ト val と リ ンク 記述子 return と共に） 以 
下の ように コ ン パイ ル されます。 
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(assign  val ( const 1) ) 
( goto    (reg   continue ) ) 

偽の 分岐の コード は 別の 手続 呼 出です。 手続 は シンボル * で、 その 引数 は n と 
別の 手続 呼 出の 結果 （factorial の 呼 出） です。 これらの 呼 出の 全てが proc と 
argl, それ 自身の プリミティブと 複合の 分岐の 準備 を 行います。 Figure5.17 は 
手続 factorial の 定義の 完全な コ ン パイ ルを示 します。 述語の 周 り で 可能性の 
ある continue と env の save と restore が 実際に 生成され ている ことに 注意 
して 下さい。 これらの レジスタが 述語 内の 手続 呼 出に て 変更され、 また 分岐 内 
の 手続 呼び出 し と return の リンク コードに より 必要 とされる ためです。 

Exercise  5.33: 上で 与えられ たものと は 微妙に 異なる 以下の 階乗 手 

続の 定義に ついて 考えよ。 

(define    (lactoria 丄ー alt  n; 
(if    (=  n 1) 

(*  n   (factorial-alt    (-  n 1))))) 

この 手続 を コ ン パイルし 結果の コー ド を factorial に対して 生成 
された コードと 比べよ。 見つけた 全ての 違いに ついて 説明せ よ。 ど 
ちらの プログラム が 他方 よりもより 効率的 に 実行す るだろう 力、？ 

Exercise  5.34: 反復 階乗 手続 を コ ン パイ ル せよ 

(define    (ェ actoria 丄 n) 

(define    ( iter  product  counter) 
に if    (>   counter  n) 
product 

( iter    ( *   counter  product ) 
(+   counter  1)))) 

(iter 1 1)) 

結果の コードに 注釈 を 付け、 一方の プロセスが スタック 領域 を 増進 
さ せ、 他方が 一定の スタ ッ ク 領域で 実行され る 元と なる、 factorial 
の 反復 版と 再帰 版の コードの 間の 本質的な 違い を 示せ。 

Figure  5.17:  4-  factorial 手続 定義の コ ン パイ ル 結果 

；; 手続 を 構築し、 手続の ボディの コード を 飛ばす 
( assign  val 
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( op  make- compiled—procedure ) 

( label  entry2 ) 

(reg  env) ) 
C goto   (label af ter-lambdal ) ) 
entry2  ；  factorial の 呼 出 はこ こ 力、 ら 入る 

( assign  env  (op  compiled- procedure - env)  (reg  proc ) ) 
( assign  env 

( op  extend- environment ) 

(const    (n) ) 

(reg  argl) 

(reg  env) ) 
；; 実際の 手続の ボディ を 開始す る 
(save  continue ) 
(save  env) 
；; (= n 1) を 求める 
( assign  proc 

( op  lookup-vari able -value ) 

(const  =) 

(reg  env) ) 
( assign  val ( const 1 ) ) 
( assign  argl   (op  list )    (reg  val ) ) 
( assign  val 

( op  lookup-vari able -value ) 

(const  n) 

(reg  env) ) 

( assign  argl   (op  cons )    (reg  val ) (reg  argl ) ) 
(test    (op  primitive-procedure? )    Creg  proc ) ) 
(branch   ( label  primitive-branchl7) ) 
compiled - branch 16 

( assign   continue    (label   af ter-calll5 ) ) 
( assign  val    (op   compiled- procedure - entry) 
(goto   Creg  val ) ) 
primit  ive -branch 17 
( assign  val 

( op  apply-primit ive -procedure ) 

(reg  proc) 

(reg  argl) ) 

after-calll5       ； ここで val は （= n 1) の 結果 を 持つ 
( restore  env) 
(.restore   cont  inue ジ 
(test   (op  false? )    Creg  val ) ) 
(branch   ( label f alse-branch4) ) 


(reg  proc) ) 
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true-branch5     ；  return 1 

( assign  val ( const 1 ) ) 

(goto   (reg  continue) ) 
f alse-branch4 

；; (*  (factorial (- n 1)) n) を 求めて 返す 
( assign  proc 

( op  lookup-vari able -value ) 

(const  *) 

(reg  env) ) 
( save  continue) 
(save  proc  )        ；  * 手続 を 保 ; (子 纩 る 
C assign  val 

、 op  lookup-vari able -value ) 

(const  n) 

(reg  env) ) 
( assign  argl   (op  list )    (reg  val ) ) 
(save   argl) ； * の 引数 リストの 一部 を 保存 
；; (factorial (- n 1)) を 求める。 これ は * のもう一 方の 引数 
( assign  proc 

、 op  lookup-vari able -value ) 

(const  factorial ) 

(reg  env) ) 
(save  proc )     ；  factorial 手続 を 保存 
；; (- n 1) を 求める。 これ は factorial に対する 引数 
C ass ign  proc 

t.  op  lookup-vari  able -value ) 

(const -) 

(reg  env) ) 
( assign  val ( const 1 ) ) 
( assign  argl   (op  list )    (reg  val ) ) 
( assign  val 

( op  lookup-vari able -value ) 

(const  n) 

(reg  env) ) 
( assign  argl    (op   cons ) 
(test    (op  primitive-procedure? )    (reg  proc ) ) 
(branch   ( label  primit ive-branch8 ) ) 
compiled-branch7 

( assign  continue   (label af ter-call6) ) 

( assign  val   (op  compiled- procedure - entry)    (reg  proc ) ) 
(goto   Creg  val ) ) 
pr imit  i ve-branch8 


(reg  val)    (reg  argl ) ) 
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(assign  val 

( op  apply - primitive - procedure ) 
(reg  proc) 
(reg  argl) ) 

after-call6       ； ここで val は （- n 1) の 結果 を 持つ 

( assign  argl   (op  list )    (reg  val ) ) 

(restore   proc )    ；  factorial レ误 9 
；; factorial の迥用 

(test    (op  primitive-procedure? )    (reg  proc ) ) 

(branch   ( label  primit ive -branch 1 1 ) ) 
compi led- branch 10 

( assign  continue   (label af ter-call9) ) 

( assign  val   (op  c omp iled-proce dure -entry )    (reg  proc ) ) 
(goto   (reg  val) ) 
primit  ive -branch 1 1 
( assign  val 

( op  apply-primit ive -procedure ) 

(reg  proc) 

(reg  argl) ) 

after-call9  ； ここで val は （factorial (- n 1)) の 結果 を 持つ 

(restore   argl) ； 木の 弓 I 数 リス 卜の 一部 を 復元 

( assign  argl に op  cons )    (reg  val ) (reg  argl ) ) 

( restore   proc )    ；  * に 民す 

( restore  cont inue ) 
；; * を 適用し その 値 を 返す 

(test    (op  primitive-procedure? )    (reg  proc ) ) 

(branch   ( label  primit ive-branchl4 ) ) 
compiled - branch 13 

；; ここ の 複合 手続 は 末尾 再帰で 呼ばれる こ と に 注意す る こ と 

( assign  val    (op   compiled-procedure-entrv)    (reg  proc ) ) 
(goto   (reg  val) ) 
primit  ive -branch 14 
( assign  val 

( op  apply-primit ive -procedure ) 
(reg  proc) 
(reg  argl) ) 
( goto   (reg  continue) ) 
af ter-calll2 
after - if 3 
af ter-lambdal 

；; 手続 を 変数 factorial に 割り当てる 
(perform   (op  define - variable ！ ； 
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(const  factorial ) 
(reg  val) 
(reg  env) ) 
C ass ign  val ( const  ok) ) 


Exercise  5.35: どの 式が コンパイルされ ると Figure  5.18 に 示され 
る コード を 生成す るか？ 

Figure  5.18: 小 コ ン パイ ラ 出力の 例。 Exercise  5.35 参照 

t. assign  val 

C op  make- compiled—procedure ) 

(label  entryl6) 

(reg  env) ) 
(goto   (label af ter-lambdal5 ) ) 
entry 16 

C  ass  ign  env   (op  compiled- procedure - env)    (reg  proc ) ) 
( assign  env 

( op  extend- environment ) 

(const    (x) ) 

(reg  argl) 


variable -value ) 


(reg  env) ) 
( assign  proc 

(op  lookup- 

( const  +) 

(reg  env) ) 
( save   continue ) 
(save  proc ) 
(save  env) 
( assign  proc 

( op  lookup-vari able -value ) 

(const  g) 

(reg  env) ) 
(save  proc ) 
( assign  proc 

( op  lookup-vari able -value ) 

(const  +) 

(reg  env) ) 
( assign  val ( const  2) ) 
( assign  argl   (op  list )    (reg  val ) ) 
( assign  val 

( op  lookup-vari able -value ) 
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(const  x) 
(reg  env) ) 

( assign  argl   (op  cons )    (reg  val ) (reg  argl ) ) 
(test    (op  primitive-procedure? )    (reg  proc ) ) 
(branch   ( label pr imit i ve-branchl9 ) ) 
compiled-branchl8 

( assign   continue    (label af ter-calll7) ) 

( assign  val    (op   compiled- procedure - entry)    (reg  proc ) ) 
(goto   (reg  val) ) 
primit  ive -branch 19 
( assign  val 

( op  apply— primitive - procedure ) 

(reg  proc) 

(reg  argl) ) 
af ter-calll7 

( assign  argl   (op  list )    (reg  val ) ) 
( restore   proc ) 

(test    (op  primitive-procedure? )    (reg  proc ) ) 
(branch   ( label  primit ive-branch22 ) ) 
compiled-branch2 1 

( assign  continue   (label  after - cal 120)) 
( assign  val   (op  compiled- procedure - entry )    (reg  proc ) ) 
(goto   (reg  val ) ) 
primit  ive-branch2 2 
( assign  val 

( op  apply-pr imit ive -procedure ) 

(reg  proc) 

(reg  argl) ) 
af ter-call20 

( assign  argl   (op  list )    (reg  val ) ) 
( restore  env) 
( assign  val 

( op  lookup-vari able -value ) 

(const  x) 

(reg  env) ) 

( assign  argl   (op  cons )    (reg  val ) (reg  argl ) ) 

( restore   proc ) 

( restore   cont inue ) 

(test    C op  primitive-procedure? )    (reg  proc)) 
(branch   ( label  primit ive -branch2 5 ) ) 
compiled-branch24 
( assign  val 
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(op  compiled— procedure - entry ) 
(reg  proc) ) 
(goto   (reg  val ) ) 
pr imit  i ve-branch25 
( assign  val 

(op  apply - primitive- procedure ) 
(reg  proc) 
(reg  argl) ) 
( goto   (reg  continue)) 
af ter-call23 
after -lambda 15 

(perform   (op  define - variable ! ) 
(const  f ) 
(reg  val) 
(reg  env) ) 
( assign  val ( const  ok) ) 

Exercise  5.36: 私達の コンパイラが 生成す る 組み合わせの オペラ ン 
ド に対する 評価の 順 は どれ か？ 左から 右で あるか、 右から 左で ある 
力、、 または 何ら かの 他の 順で あるか？ コンパイラの 中の どこが この 
順 を 決定す るか？ コンパイラ を 変更し、 それが 何ら かの 別の 評価 
順 を 生成す る よ う にせよ。 （Section  5.4.1 における 明示的 制御 評価 
機の 評価 順の 議論 を 参考に せよ)。 オペ ラン ドの 評価 順 を 変更す る 
ことが 引数 リ ス ト を 構築す る コードの 効率に どのよう な 影響が あ 
るか？ 

Exercise  5.37: スタック 使用の 最適化の ための コンパイラの 
preserving の 仕組み を 理解す る 1 つの 方法 はこの 考え を 用い 
なかった 場合に どんな 余分な 命令が 生成され るか を 見て みる こと 
だ。 preserving を 変更し、 常に save と restore の 命令 を 生成す 
るよう にせよ。 いくつかの 簡単な 式 を コンパイルし、 生成され た 
不必要な スタック 命令 を 確認せ よ。 preserving の 仕組みが 失われ 
ていない ものから 生成され た コードと 比較せ よ。 

Exercise  5.38: 私達の コンパイラ は 不必要な スタック 命令 を 防ぐ 
ことに 関して 賢い もの だ。 しかし、 機械に より 提供され る プリ ミ 
ティ ブな 命令 を 用いて 言語の プリ ミ ティ ブな 手続の 呼 出 を コンパ 
ィル する ことに 関して は 全く 賢くない。 例えば、 （+  a 1) を 求め 
るた めに どれ だけの コードが コ ン パイルされ るか 考えて みる。 こ 
の コード は 引数 リスト を argl に 準備し、 （環境 内で シンボル + を 
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探す ことにより 見つけた） プリ ミ ティ ブな 加算 手続 を proc に 入れ 
る。 そして この 手続が プリ ミ ティブで あるか 複合で あるか を テス 
ト する。 コンパイラ は 常に この テスト を 実行す る コードと、 同様 
に プリ ミ ティブと 複合の 分岐の ための コード （内、 一方の みが 実行 
される） が 生成され る。 私達 は コントローラの プリ ミ ティ ブを実 
装す る 部品 を 示さなかった。 しかし、 これらの 命令が 機械の デー 
タ パス 内の プリ ミ ティ ブな 数値 演算 命令 を 利用す る こ と は 仮定 し 

た。 もし コ ン パイ ラ がプ リミ ティ ブを open-code できたら どれ だ け 
少ない コードが 生成され たか 考えよ。 これ はつ まリ、 もし これら 
の プリ ミ ティ ブな 機械語 命令 を 直接 使用 する コード を 生成す る こ 
とがで きれば、 である。 式 （+  a 1) は 以下と 同じく らい 単純な も 
のに コンパイルされ るだろう。 43 

(assign 

val (op 丄 ookup 一 variab 丄 e 一 va 丄 ue )    ( const  a)    (reg  env) ) 
(assign  val   (op  +)    (reg  val)    (const 1)) 

この 課題で は 私達の コンパイラ を 拡張し、 選択され た プリ ミ ティ 
ブの open- code を サポート する。 特別な 目的の コードが これらの 
プリ ミ ティブな 手続の 呼 出に 対し、 一般的な 手続 適用の コードの 
代わりに 生成され る。 これ を サポート する ために は、 私達の 機械 
に 特別な 引数 レジスタ、 argl と arg2 を 追加す る。 機械の プリ ミ 
ティ ブな 数値 演算子 は 入力 を argl と arg2 から 得る。 その 結果 は 
val,  argl,  arg2 のどれ かに 入れて 良い。 

コ ン パイ ラは ソース プログラム 内の open- code な プリ ミ ティ ブの 
適用 を 認識で きなければ ならない。 compile 手続に 割り振 リ を 追 
加し、 現在 認識 可能な 予約語 （特殊 形式） に加えて これらの プリ ミ 
ティ ブの 名前 を 認識で きる ようにす る。 44 特殊 形式の それぞれに 
対して コンパイラ は コード 生成 器 を 持つ。 こ の 課題で は open- code 
な プリ ミ ティ ブの ための コード 生成 器の 仲間 を 構築す る。 

43 私達 は 同 じ シ ン ボル + を ソース 言語の 手続 と 機械語 命令の 両方 を 示す ために ここで 
使用し ました。 一般的に、 ソース 言語の プリミティブと 機械の プリミティブの 間に 1 対 
1 の 対応 はあり ません。 

44 プリ ミ ティブ を 予約語に 入れる こと は 一般的に は 悪い 考えです。 そうすると ユーザが 
これらの 名前 を 異なる 手続に 束縛し 直す ことができなくなる ためです。 さらに、 もし 使用 
中の コンパイラに 予約語 を 追加す ると、 これらの 名前で 手続 を 定義した 既存の プロ グラ 
ム が 動作 しなくなります。 この 問題 を どのように 回避す るかの 見解に つ いて は Exercise 
5.44 を 参照して 下さい。 
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a  open-code な プリ ミ ティ ブ 全て は 特殊 形式 と は 異なり、 オペラ 
ン ド が 評価 される こと を 必要と する。 全ての open- code の コ 
一 ド 生成 器から 使用され る コード 生成 器 spread-arguments 
を 書 け。 spread-arguments は オペランドの リスト を 取り、 与 
えられた オペ ラン ドを 次に 続く 引数 レジスタ を ター ゲッ トに 
コンパイルし なければ ならない。 オペ ラン ドが open- code な 
プリ ミ ティ ブ への 呼 出 を 含んでも 良い ことに 注意す る こと。 
そのため 引数 レジスタ は オペランド 評価の 間 は 維持され なけ 
れ ばなら ない。 

b プリ ミ ティ ブな 手続 =, *,  -,  + の それぞれ に対して その オペ 
レー タと ター ゲッ ト、 リンク 記述子の 組み合わせ を 取り 引数 
を レジスタに 入れ、 与えられた ター ゲッ トを ター ゲッ トに取 
リ、 与えられた リ ンク 記述子と 共に 命令 を 実行す る コード を 
生成す る コード 生成 器 を 書け。 2 つの オペ ラン ドを 扱う 式 を 
扱う のみで 良い。 これらの コード 生成 器に 対する 割り振り を 
作成せ よ。 

c 貴方の 新しい コンパイラ を 階乗の 例 を 用いて 試して みよ。 結 
果の コード を open— code 無 し で 生成 し た 結果 と 比較せ よ 。 

d  + と * の コード 生成 器 を 拡張し 任意の 数の オペ ラン ドを 持つ 
式 を 取り扱え るよう にせよ。 3 つ 以上の オペラ ン ドを 持つ 式 
は、 それぞれが 2 つ だけ 入力 を 持つ 命令の 列に コ ン パイ ル し 
なければ ならない。 

5.5.6 レキシ カル アドレッシング 

コンパイラ により 実行され る 最も 一般的な 最適化の 1 つ は 変数 検索の 最 

適 化です。 こ こまで 実装した 私達の コンパイラ は 評価 機の lookup-variable- 
value  命令 を 用いる  コード  を 生成し  ます。  これ は 実行時 環境 を 通して フレーム 
毎に 取 リ 組みな が ら、 変数 を 現在 束縛 されて いる 全ての 変数と 比較す る ことで 
変数の 検索 を 行う。 この 検索 はもし フレームが 深く 入れ子に なつたり、 変数の 
数が 多い 場合に は 高 コストに 成り 得ます。 例えば 以下の 式 を 評価した 結果の 適 
用に おいて、 式 （*  x  y  z) の 評価の 間に x の 値 を 探す 問題に ついて 考えみ まし 
ょラ。 

(let    ((x  3)    (y  4)) 
( lambda   (a  b  c  d  e) 
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(let   ((y  (*  a  b  x))    (z   (+  c  d  x))) 
(*  x  y  z)))) 

let 式 は lambda の 組み合わせの ための 単なる 構文 糖です ので、 この 式 は 以下 

と 等価です。 

(, ( lambda   、x  y  ； 

"ambda   (a  b  c  d  e) 

i, ( lambda   (y  z;    、*  x  y  z ) ) 
(*  a  b  x) 
(+  c  d  x)))) 

3 

4) 

lookup-variable-value せ x を 検索す る 度 に、 シ ン ポ' ノレ x  ( ま y、 ま た （ま z に 
eq? でない こと を （最初の フレームで） 確認し なければ なりません。 また （2 つ 
目の フレーム にて） a,  b,  c,  d,  e についても 同様に 必要です。 差し当たり、 私達 
の プログラム は define を 使用 しないと 仮定し ます。 つまり 変数 は lambda の 使 
用に のみ 束縛され ます。 私達の 言語 は レキシ カルス コープで あるた め、 任意の 
式の ための 実行時 環境 は 式が 現れる プログラムの レキシ カルな （語彙的な） 構 
造 を 並列 化する 構造 を 持ちます。 45 従って、 コンパイラ は 上の 式 を 分析した 時 
に、 手続が 適用され る 度に （*  x  y  z) 内の 変数 x が 現在の フレームから 2 つ 外 
の フレームの 最初の 変数と して 見つかる こと を 知る ことができます。 

私達 は 新しい 種類の 変数 検索 命令、 lexical-address-lookup を 発明す る こ 
とに より、 この 事実 を 利用す る ことができます。 この 命令 は 引数と して 環境と 
2 つの 数値から 成る lexical  address (レ キシ カル アドレス) を 取ります。 2 つの 数 
値 は、 いくつの フレーム を 見送る か を 指定す る/ rame  number とその フレーム 
内で いくつの 変数 を 見送る か を 指定す る disptecemenf  number です。 lexical- 
address-lookup  は 現在の フレーム に対して 相対的な レキシ カル ァ ドレスに 格 
納 された 変数の 値 を 生成し ます。 も し 私達の 機械に lexical-address-lookup 
命令 を 追加したなら、 コンパイラ に対して lookup-variable-value で は な 
く、 この 命令 を 使用して 変数 を 参照す る コード を 生成させる ことができます。 
同様に、 コンパイル された コード は set-variable-value! の 代わりに 新しい 
lexical-address-set  ！ 命令 を 使用す る こ とがで きます。 

そのような コード を 生成す るた めに は、 コンパイラ は 参照 を コンパイルし 
ようとす る 変数の レキシ カル ァ ドレス を 決定で きなければ なり ません。 プ ログ 

45 これ はもし 内部 定義 を 許可す るので あれば、 それら 全て を 走査し ない 限り は 正しく 
ありません。 Exercise  5.43 を 参照して 下さい。 
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ラム 中の 変数の レキシ カル ァ ド レス は それが コードの どこに あるの かに 依存し 

ます。 例えば、 以下の プログラム では 式 〈e りの アドレス は （2,0) です。 つまり、 
2 フレーム 後ろで その フレームの 最初の 変数です。 同じ 地点で y はァ ドレス （0, 
0) であり、 c は アドレス （1, 2) に 存在し ます。 式 〈e2〉 において は、 x は （1, 0) 
に、 y は （1,1) に、 c は （0,  2) に 存在し ます。 

(, ( lambda   、x  y  ； 

(lambda    (a  b  c  d  e) 
((lambda   (y  z)  (el)) 
〈"〉 

(+  c  d  x)))) 

3 

4) 

コンパイラに とって レキシ カル ァ ドレス を 使用す る 1 つの 方法 は compile-time 
■ironmeni^ コ ン パイル 時 環境） と 呼ばれる データ 構造 を 管理す る ことです。 
これ は 実行時 環境 内に て 特定の 変数 アクセス 命令が 実行され た 時に、 どの 変数 
が どの フレーム 内の どの位 置に 存在す る ことになる のか を 追跡 します。 コン 
パイル 時 環境 は フレームの リス ト であり、 各 フレームが 変数の 変数の リス ト 
を 保持し ます。 （もちろん 値が 束縛され ない 変数 も 存在し ます。 値 は コンパ ィ 
ル 時には 計算され ないた めです)。 コンパイル 時 環境 は compile の 追加の 引数 
にな リ、 各 コード 生成 器に 渡されます。 lambda の ボディが コンパイル される 
時、 compile-lambda-body がコ ン パイ ル時 環境 を 手続の パラメータ を 持つ フレ 
ーム により 拡張し、 ボディ を 構成す る 命令 列が その 拡張され た 環境 を 用いて コ 
ン パイルされ ます。 コンパイルの 各 時点に て、 compile-variable と compile- 
assignment は 適切な レキシ カル ァ ドレス を 生成す るた めに コンパイル 時 環境 
を 使用し ます。 

Exercise  5. 39 から Exercise  5.43 は コンパ ィ ラ に レキシ カルな 検索 を 組 込む 
ために この レキシ カル ァ ド レス 付けの 戦略の 草案 を どのよう にして 完了させる 
かにつ いて 説明し ます。 Exercise  5.44 は コンパイル 時 環境の 別の 使用法 を 説明 
します。 

Exercise  5.39: 新しい 検索 命令 を 実装す る lexical-address-lookup 

手続 を 書け。 2 つの 引数、 レキシ カル アドレスと 実行時 環境 を 取 
る こと。 そして 指定した レキシ カル ァ ドレスに 格納され た 変数の 
値 を 返す こ t0 lexical-address-lookup はも し 変数の 値が シン ボ 
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ル *unassigned* ならば エラー を 発する。 46 また 指定した レキシ 

カル ァ ドレスの 変数の 値 を 変更す る 操作 を 実装す る 手続 lexical- 
address-set  ！  を 書け。 

Exercise  5.40: コンパイラ を 変更し、 上で 説明され た コンパイル 時 
環境 を 保存す るよう にせよ。 つまり、 compile と 多様な コード 生成 
^ の 弓 I 数に compile- time- environment を 追 カロし、 -t" れ S  compile- 
lambda-body の 中で 拡張せ よ。 

Exercise  5.41: 引数と して 変数と コンパイル 時 環境 を 取リ、 その 
環境に 関する その 変数の レキシ カル ァ ド レス を 返す 手続 find- 
variable  を 書け。  例えば、 上で 示された プログラムの 断片に おい 
て、 式く  ei〉 を コンパイル している 間の コンパイル 時 環境 は （（y  z) 
(a  b  c  d  e)  (x  y)) である。 find-variable は 以下 を 生成し なけ 
れ ばなら ない。 


(f ind- 

variable    1  c 

: '((y 

z; 

:a 

b  < 

: d 

e) 

■:x 

y))) 

(1 2) 

(f ind- 

■variable    1  j 

: ' ((y 

z) 

：3 

b  < 

: d 

に 

■:x 

y))) 

(2  0) 

(find- 

■variable    1  v 

' ' ((y 

z; 

:a 

b  < 

: d 

に 

； X 

y))) 

not-found 

Exercise  5.42:  Exercise  5.41 の find-variable を 使用 して、 compile- 
variable と compile—assignment を 書き直し、 レキシ カノ レア ドレ 
ス 命令 を 出力す るよう にせよ。 find-variable 力 《 not-found を 返 

す 場合に おいて は （つまり、 変数が コンパイル 時 環境 内に は 存在 
しない 場合に は)、 コード 生成 器に 対して 以前と 同じ 環境 命令 を 
使用させる こと で 束縛 を 検索 させなければ ならない。 （コンパイル 
時に 変数が 見つからない 唯一の 場所 は グローバル 環境で ある。 こ 
れは 実行時 環境の 一部で あ リ、 コ ン パイル 時 環境の 一部で はない。 
47 従って、 もし あなたが 望むなら、 それらに 対し env 内の 全ての 


46 これ はも し 内部 定義 を 削除す るた めに この 検索 手法 を 実装す るので あれば 必要と な 
る、 変数 検索に 対する 変更です （Exercise  5.43)。 レキシ カル アドレス をう まく 動かす た 
めに は これらの 定義 を 排除す る 必要が あり ます。 

47 レキシ カル ァ ドレス は グローバル 環境 内の 変数 を アクセス する ために は 利用で きま 
せん。 なぜなら、 これらの 名前 は 対話 形式的に 任意の 時点で 定義と 再定義が 可能な ため 
です。 Exercise  5.43 の 内部 定義 走査 を 用いて コンパイラが 知る ことができる 定義 は、 グ 
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実行時 環境 を 探させる 代わりに、 環境の 命令に、 命令 （op  get- 
global-environment)  により 獲得で きる グローバル 環境 を 直接 探 
させても かまわない)。 変更した コンパイラ を この 節の 最初の 入れ 
子の lambda の 組み合わせ のよう な、 いく つかの 簡単な 事例 を 用い 
て テス ト せよ。 

Exercise  5.43:  Section  4.1. 6 において ブロック 構造に 対する 内部 定 
義は" 実際の "define だと 考慮され るべき でない と 主張した。 そう 
ではなく、 手続の ボディ は 通常の set! を 用いて 正しい 値に 初期化 
された lambda の 変数の よう に、 内部 変数 定義が 導入され たかの よ 
う に 解釈され るべき である。 Section  4. 1.6 と Exercise  4.16 は どのよ 
うに メタ 循環 ィ ンタプ リタ を 変更して 内部 定義 を 走査す る ことで、 
これ を 達成す るか を 示した。 コンパイラ を 変更し、 手続の ボディ 
を コ ン パイ ル する 前に これと同じ 変形 を 実行す る よ う にせよ。 

Exercise  5.44: この 節で は レキシ カル ァ ド レス を 生成す るた めの コ 

ン パイル 時 環境の 使用に 焦点 を 合わせた。 しかし コンパイル 時 環境 
の 他の 使用法 も 存在す る。 例と して、 Exercise  5.38 では コンパイル 
された コー ド の 効率 を open- code な プリ ミ ティ ブ 手続に よ リ 向上 
させた。 私達の 実装 は open- code な 手続 を 予約語と して 扱った。 も 
し プログラムが そのような 名前 を 再 束縛す るなら、 Exercise  5.38 に 
て 説明され た 仕組み は 依然として プリ ミ ティ ブと して open- code 
し、 新しい 束縛 を 無視す るだろう。 例えば、 以下の 手続に ついて 考 
えてみ る。 

、丄 ambda   (+   *  a  b  x  y) 
(+    (*   ax)    (*  b  y))) 

これ は x と y の 一次 結合 を 求める。 これ を 引数 +matrix，  *matrix、 
それに 4 つの 行列 （matrix) と共に 呼ぶ こと も あるだろう。 しかし、 
open- code な コンパイラ は 依然として （+  (*  ax)  (*  b  y)) 内の 
+ と * を プリミティブな + と * として open- code してし まう だろ 
う。 open- code な コンパイラ を 変更し、 プリミティブな 手続の 名前 
を 含む 式に 対して 正しい コード を コンパイル する ために、 コンパ 
ィル時 環境 を 参考に する ようにせ よ。 （この コード は プログラムが 

ロー バル 環境に 従う トップレベルの もの だけです。 定義の コンパイル は、 定義され た 名 
前が コ ン パイ ル時 環境に 入れる こ と に はな リ ません。 
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これらの 名前に 対して define や set! を 行わない 限り 正しく 動く 
ようになる。 ；） 

5.5.7 コンパイル 済み コードと 評価 機の 連結 

私達 はま だ コンパイル された コード を 評価 機 にどの ように ロードす る 力 \ ま 
たは どのように 実行す るかに ついて 説明して いません。 ここで は 明示的 制御 評 

価 機が Section  5.4.4 の 時点に て 定義され た 状態で あると 仮定し ます。 Footnote 
38 で 指定され た 追加の 命令 も 含みます。 Scheme 式 を コンパイルし、 結果と して 
のォ ブジェク ト コード を 評価 機に ロード し、 評価 機に グローバル 環境の 中で 実 
行 させ、 結果 を 表示し、 評価 機の ドライバ ループへ と 入る 手続 compile-and- 
go を 実装し ます。 また 評価 機 を 変更し、 逐次 翻訳され た 式が コンパイル された 
手続 を 逐次 翻訳 された ものと 同じように 呼ぶ ことができる ように もします。 す 
ると コンパイル された 手続 を 機械に 入れて それ を 呼び出す ことができます。 

に compi 上 e - and - go 
' 、deiine  、： factorial n) 
(if    (=  n 1) 

(*    (factorial (- n 1)) n)))) 
； ； ； EC-Eval  value: 
ok 

； ； ； EC-Eval  input : 
(factorial 5) 
； ； ； EC-Eval  value: 
120 

評価 機 に コンパイル された 手続の 取り扱い を 可能に する に は （例 え ば 上記の 
factorial の 呼 出 を 評価す る こ と）、 apply-dispatch(Section  5.4.1) のコー ド 
を 変更して、 それが コンパイル された 手続 を （複合、 または プリミティブな 手 
続から 区別 可能な ものと して） 認識し、 制御 を 直接 コンパイル された コードの 
エントリ ポイント へと 移動 させる 必要が あ リ ま す。 48 


48 もちろん、 逐次 翻訳され た 手続と 同様に コンパイル された 手続 も 複合 （compound, 
非 プリ ミ ティブ） です。 明示的 制御 評価 機で 使用され た 用語との 互換性の ために、 この 節 
では "複合" を 逐次 翻訳され た （コンパイルされ たの 逆 を） 意味す る ものと して 使用し ま 

す。 
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apply - dispatch 

(test    (op  primitive -procedure? )    (reg  proc ) ) 

(branch    (label  primitive-apply) ) 

(test    ( op   compound-procedure? )    (reg  proc)) 

(branch    (label   compound-apply) ) 

(test    ( op   compiled -; procedure? )    (reg  proc)) 

(branch    (label   comp i led- apply ) ) 

( goto    (label  unknown-procedure- type ) ) 
compiled- apply 

(restore   continue ) 

(assign  val ( op   compi 丄 ed - procedure - entry )    (reg  proc)) 
(goto    (reg  val) ) 

compiled-apply での continue の 復元に 注意、 して 下さい。 評 ィ面機 は apply - 
dispatch にて 継続が スタックの 一番 上になる よう に 準備され ています。 一方 
で、 コ ン パイル された コードの ェン ト リ ポィ ン トは 継続が continue の 中に あ 
る こと を 期待して います。 そのため、 conti 皿 e は コンパイル された コードが 実 
行され る 前に 復元され なければ なり ません。 

評価 機 を 開始した 時に いくつかの コンパイル された コード を 実行す る こと 
を 可能に する ために、 branch 命令 を 評価 機の 最初に 追加し ます。 これ はもし 
flag レジスタが 設定され ていれば、 機械 を 新しい ェン ト リ ボイ ン ト へと 飛ばし 
ます。 49 

(branch    (label   external-entrv)  )  ；  flag 力 5     つて いれば 飛ぶ 

read  -  eva 丄ー； print -  loop 

に perform    (op   initialize - stack) ) 


49 今や 評価 機 は branch を 用いて 開始す るので、 私達 は 常に 評価 機 を 開始す る 前に flag 
レジスタ を 初期化し なければ なり ません。 機械 を 通常の REPL にて 開始す るた めに は、 
以 卜 を 用いる ことができます。 

t,  def  ine   ( start-eceval ) 

( set ！    the -global -environment    (setup-environment ) ) 
( set -register-contents ！    eceval 1  flag  false ) 
( start  eceval ) ) 
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external-entry は 機械 力 《糸 吉果を val に 入れ (goto  (reg  continue)) で 終わる 
命令 列の 位置 を 持つ val と共に 開始す る と 仮定し ます。 この ェン ト リ ボイ ン ト 
で 開始す る 場合、 val で 指定され た 位置へ 飛びます。 しかし、 最初に contiime 
(こ 実行力"5 print— result  (こ 戻る よ う （こ 設定し ます。 print— result  It  val 内の f 直 
を 表示し、 次に 評価 機の REPL の 最初へ と 飛びます。 5Q 

external-entrv 

(perform    (op   initialize- stack) ) 
(assign  env   (op  get -global -environment ) ) 
(assign   continue    ( label  print-result)) 
(goto   (reg  val) ) 

これで 以下 手続 を 用いて 手続 定義 を コンパイルし、 コンパイル された コード を 
実行し、 手続 を 試行す る ことができ るよう REPL を 実行す る ことができます。 
コ ン パイル された コー ドに continue 内の 位置に、 val 内の 結果 を 持って 戻つ 
て 欲しいた め、 式 を ター ゲッ ト val と リ ンク 記述子 return を 用いて コンパ ィ 
ル します。 コンパイラ により 生成され た オブジェクト コード を 評価 機で 実行 可 
能な 命令に 変形す るた めに、 レジスタ マシン シミュレータ （Section  5.2.2) の 手 
続 assemble を 使用し ます。 次に val レジスタ を 命令の リス トを 指す ように 初 
期 化 し、 flag を 評価 機が external-entry へ 飛ぶ ように 設定し、 評価 機 を 開始 
します。 

、deiine    ( compile - and - go  expression) 
、丄 et  (.^instructions 
( assemble 

so コンパイル された 手続 は システムが 表示しょう とする かも しれない オブジェ ク 卜で 
あるた め、 システムの 表示 命令 (Section  4.1.4 の) user-print も 変更し、 コンパイルされ 
た 手続の 構成 部品 を 表示しょう としない ようにし ます。 

t, def ine   (user-print   obi ect ) 

( cond   ( (compound-procedure?   ob j ect ) 

(display    (list    1  compound-procedure 

(procedure -parameters   ob j  ect ) 
(procedure-body  obj  ect ) 
1 <pr ocedure-env> ) ) ) 
( ( compiled- procedure?   obj  ect ) 

(display    ' < compile d - procedure > ) ) 
(else    (display  obj  ect ) ) ) ) 
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( statement s 

( compile   expression    1 val 1  return ) ) 
eceval ) ) ) 

(set !    the -global -environment    ( setup-environment ) ) 
( set -register- contents ！    eceval 1 val   instructions ) 
( set -register- contents ！    eceval 1  flag  true ) 
( start   eceval ) ) ) 

も し Section  5.4.4 の 終わりの ように スタック 監視 を 設定したなら、 コンパイル 
された コードの スタック 使用量 を 調査で きます。 

、 compi 丄 e - and - go 
' Adeline  、： factorial n) 
(if    (=  n 1) 

(*    (factorial (- n 1)) n)))) 
(total-pushes  =  0  maximum- depth  =  0) 
； ； ； EC-Eva  I  value: 
ok 

； ； ； EC-Eva  I  input : 
(factorial 5) 

(total-pushes  =  31 maximum-depth  = 1^.) 

； ； ； EC-Eva  I  value: 

120 

この 例 を、 Section  5.4.4 の 終わりで 示された 同じ 手続の 逐次 翻訳され た 版 を 用 
いた （factorial 5) の 評価と 比べて みて 下さい。 逐次 翻訳され た 版 は 144 回の 
push と 最大 スタック 深度 28 を 必要と しました。 これ は 私達の コンパイル 戦略 
に 起因す る 最適化 を 説明して います。 

逐次 翻訳と コンパイル 

こ の 節の プロ グラム を 用いる ことで、 今では 逐次 翻訳と コ ン パイ ルの 代替 
的な 実行 戦略 を 実験す る ことができます。 51 ィ ンタプ リタ は 機械 を ユーザ プロ 
グラムの レベルへ と 上げます。 コンパイラ は ユーザ プログラム を 機械語の レ ベ 


51 コ ン パイ ラを 拡張して コ ン パイ ル された コード に 逐次 翻訳され た 手続の 呼び出 し を 
許可す る ことで さらにう まく 行う ことができます。 Exercise  5.47 を 参照して 下さい。 


656 


ル へと 下げます。 私達 は Scheme 言語 を （または どんな プログラミング 言語 も） 
機械語の 上に 構築 さ れた 体系化の 目的 を 同じと した 仲間 だと 見做す こ と がで き 
ます。 インタプリタ は 対話 的な プログラム 開発と デバッグに 最適です。 プ ログ 
ラムの ステップの 実行が これらの 抽象化 を 用いて 組織化され、 そのため、 プロ 
グラ マに とってより 理解し やす くなります。 コ ン パイ ル された コード はよ リ 速 
く 実行す る ことができます。 プログラムの ステップの 実行 が 機械語 を 利用して 
体系化され、 コンパイラ は 自由に 高い レベルの 抽象化 を 近道す る 最適化 を 作る 
ことができます。 52 

逐次 翻訳 と コンパイルの 代替 もまた、 新しい コンピュータへ 言語 を 移植す 
るた めの 異なる 戦略へ と 導きます。 新しい 機械に Lisp を 実装した いと 願って 
いると 仮定し ます。 1 つの 戦略 は Section  5.4 の 明示的 制御 評価 機と 共に 始めて、 
その 命令 を 新しい 機械の 命令へ と 翻訳す る ことです。 異なる 戦略 はコ ン パイ ラ 
と共に 始めて コード 生成 器 を 変更し、 新 U ヽ 機械の コード を 生成す るよう にし 
ます。 2 つ 目の 戦略 は どんな Lisp プログラム も 最初に 元の Lisp システム 上で 
動く コ ン パイ ラ を 用いて コ ン パイルし、 実行時 ライ ブラ リの コンパイル 済みの 
版と リンクす る ことにより、 新しい 機械の 上で 実行させる こと が 可能 に な リ ま 
す。 53 もっと 良い ことに は、 コンパイラ それ 自身 を コンパイル する ことができ 


52 実行 戦略と は 独立して、 もし ユーザ プログラム を 実行した 場合に エラーに 遭遇した 
時に システム を 殺す こ とや 間違った 値 を 生成す るお お を 許可す るので はなく、 エラーが 
発見され、 その 旨が 伝えられる こと を 望む のなら ば、 明らかな オーバヘッド を 経験す る 
ことになります。 例えば、 配列の 境界 外 参照 は 実行す る 前に 参照の 有効性 を チェックす 
る ことで 発見す る ことができます。 しかし、 チェックの オーバヘッド は 配列 参照 自体の 
何 倍 もの コストに 成り 得ます。 そして プログラマ は そのような チェックが 望ましい かの 
決定に おいて 安全性よ リもス ピー ドに 重き を 置きます。 良い コンパイラ は そのような チ 
エック を 行う コード を 生成す る ことが 可能で あるべき です。 また 冗長な チェック は 回避 
し、 プログラマに コンパイル された コード 内での エラー チェックの 範囲と 型 を 制御で き 
るよう にす るべき です。 

C や C++ のよう な 人気の ある 言語の コンパイラ は ほとんど 何も 実行 コードの 中に ェ 
ラー チェックの 命令 を揷 入し ません。 可能な 限リ 速く 実行す るた めです。 結果と して、 
プログラマ に対して 明示的に エラー チェック を 提供させる ことに 陥ります。 残念な こと 
に、 人々 は 良く この こと を 軽視し ます。 例え スピードが 制約で はない 重要な アプリ ケー 
シ ヨンに おいても です。 こうのよ うな 人々 の プログラム は 高速、 かつ 危険な 生活へ と 導 
きます。 例えば、 1988 年に インターネット を 麻痺 させた 悪名高い" Worm" (ワーム） は 
UNlx(tm)  OS  (オペ レー ティ ング システム） の finger デーモン における 入力 バッファが ォ 
ーバ フローした かどう かの チェック ミス を 利用 しました。 （Spafford  1989 参照） 

53 もちろん、 逐次 翻訳と コンパイルの 戦略の どちら を 用いても、 新しい 機械の 記憶 域 割 
リ 当て、 入出力 （I/O)、 そして 評価 機と コンパイラの 議論に おいて" プリミティブ" とし 
て 扱った 全ての 多彩な 命令 もまた 新しい 機械の ために 実装し なければ なり ません。 ここ 
で 仕事量 を 最小化す るた めの 1 つの 方法と して は これらの 命令 を 可能な 限り Lisp で 書 
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ます。 そして これ を 新しい 機械の 上で 他の Lisp プログラム を コンパイルす るた 
めに 実行す るので す。 54 または、 Section  4.1 の インタプリタの 内 1 つ を コンパ 
ィル して 新し レ 、機械 上で 実行で きる インタプリタ を 生成す る こと もで きます。 


Exercise  5.45: コ ン パイ ル された コードに より 使用 さ れたス タック 

命令 を 同じ 演算の ための 評価 機 に より 使用され た スタック 命令と 
比較す る ことで、 コンパイラの スタック 使用の 最適化の 範囲 を 速 
さ （スタック 命令の 総数の 削減） と 記憶 域 （最大 ス タック 深度の 削 
減） の 両方に おいて 判断す る ことができる。 この 最適化 された スタ 
ックの 使用 を、 同じ 演算の ための 特別な 目的の 機械と 比較す る こ 
とで コンパ ィ ルの 品質の 何 ら かの 指標 を 与える こと がで き る 。 

a  Exercise  5.27 は、 評価 機が 上で 与えられた 再帰 階乗 手続 を 用い 
て n! を 求める のに 必要な プッシュの 数と 最大 スタック 深度 
を n の 関数と して 決定す る よ う 求めた。 Exercise  5.14 は Figure 
5. 1 1 で 示さ れた 特別 な 目的の 階乗 マシンに 対しす る 同じ 測定 
を 求めた。 ここで は 同 じ 分析 を コ ン パイルした factorial 手 
続 を 用いて 実行す る。 

コンパイル さ れた 版の プッ シュの 数と 逐次 翻訳 さ れた 版の プ 
ッ シ ュ の 数 との 比率 を 取得せ よ 次に 同じ 事 を 最大 スタック 深 
度に 対しても 行なえ。 n! を 求める ために 使用され る 命令 数と 
スタック 深度 は ri の 線形で あるた めに、 これらの 比率 は n が 
巨大になる につれ 定数へ と 収束す る はずで ある。 これらの 定 
数 は 何 か？ 同様に、 特定 目的 マシンの 使用量と 逐次 翻訳の 版 
の 使用量との 比率 も 求めよ。 

特定 目的と 逐次 翻訳され た コードとの 間の 比率と、 コンパ ィ 
ル された コードと 逐次 翻訳され た コードとの 間の 比率 を 比較 
せよ。 特定 目的 マシンが コンパイル された コードより も とて 
も 良い ことに 気付く はず だ。 手作りの コントローラの コード 


き、 次に 新しい 機械の ために コンパイル する ことが 上げられます。 究極 的に は、 全てが 
新 しい 機械の ために 手で 書かれた （ガベー ジ コレ クシ ョ ンゃ 実際の 機械の プリミティブ 
を 適用す る 仕組みの 様な） 小さな カーネルに 縮小され ます。 

54 この 戦略 は、 コンパイル された コンパイラ を 用いた、 新しい 機械 上での プログラムの 
コンパイルが 元の Lisp システム 上の プログラムの コンパイルと 同一で あるか どうかと い 
う、 コンパイラの 正確 性の 楽しい テストへ と 至ります。 違いの 原因の 追跡 は 楽しい ので 
す 力、 しばしば イラ イラ もさせます。 その 結果 はとても 小さな 詳細に 非常に 敏感な ため 
です。 
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は 基本的な 汎用 目 的の コ ン パイ ラ により 生成され たもの よ リ 
とても 優れてい る はず だからで ある。 


b パフォーマンス において 手作り 版に より 近い コード を 生成す 
る こと を 手助けす る、 コンパイラ に対する 改善 を 提案で きる 
だろう か？ 

Exercise  5.46:  Exercise  5. 45 のよう な 分析 を 木 再帰 フィボナッチ 手 
続の コンパイルの 効果 を 判断す るた めに 実行せ よ。 

I, def ine   (fib  n) 
(if    (<  n  2) 


(+   (fib    (-  n 1)) 

(fib    (-  n  2))))) 

Figure  5.12 の 特定 目的 フィボナッチ マシン を 用い た 場合の 効果 と 
比較せ よ。 （逐次 翻訳の パフォーマンスの 測定の ために、 Exercise 
5.29 を 参照せ よ）。 フィボナッチ 数で は、 使用され た 時間 的 リソー 
スは n の 線形に はならない。 

Exercise  5.47: この 節で は 逐次 翻訳され た コードが コンパイルされ 
た コード を 呼び出す こ と がで きる よう にす るた めに、 明示的 制御 評 
価 機 を どのように 変更す るか を 説明した。 コンパイル さ れた 手続 
が プリ ミ ティ ブと コンパイル された 手続 のみでな く、 逐次 翻訳され 
た 手続 も 同様に 呼び出す ことができる ようにす るた めに、 コンパ 
イラ を どのよ う に 変更す るの か 示せ。 これ は compile-procedure- 
call を 複合 （逐次 翻訳） の 場合 を 取り扱う ように 変更す る 必要が あ 
る。 全ての 同じ target と linkage の 組み合わせ を compile-proc- 
appl が 行 うように 取り扱うよう 気をつけよ。 実際に 手続 適用 を 行 
うため に は、 コード は 評価 機の compound-apply エントリ ポィ ン 
トへ 飛ぶ 必要が ある。 この ラベル はォ ブジェク ト コードの 中で は 
直接 参照す る こと がで きない。 （アセンブラ が 全ての ラベルに 対し、 
それが アセンブル している、 そこで 定義され る コードに より 参照 
される こと を 要求す るた めで ある）。 従って、 compapp と 呼ばれる 
レジスタ を 評価 機に 追加し、 この エントリ ポイント を 持たせて、 こ 
れを 初期化す る 命令 を 追加す る。 

(assign   compapp に 上 abel   compound-apply) ) 
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(branch    (label   external-entry)  )    ； flag  ；^' 立って レヽれ (ま 

飛ぶ 

read - eva 丄ー； print - loop   . . . 

あなたの コード を テス ト する ために、 手続 g を 呼ぶ 手続 f を 定義 

する ことから 始めよ。 compile-and-go を 用いて f の 定義 を コンパ 

イリ レし、 評価 機 を 開始せ よ。 ここから 評価 機に 対し 入力 を 行い g を 
定義し f の 呼 出 を 試せ。 

Exercise  5.48: こ の 節で 実装され た compile-and-go インター フエ 
イス は 扱いに くい。 コンパイラ を （評価 機が 開始され た 時に） 一度 
しか 呼ぶ ことができない ためだ。 以下の よう に 明示的 制御 評価 機 
の 中から 呼び出す ことができる compile-and-run を 追加す る こと 

で コンパ ィ ラ —ィ ンタ プリ タ 間の ィ ン ターフェ イス を 増補せ よ。 

； ； ； EC-Ev al  input  ： 
に compi 丄 e - and - run 
' Adeline     factorial n) 

(if    (=  n 1) 1 (*    (factorial (- n 1)) n)))) 
； ； ； EC- Eva  I  value: 
ok 

； ； ； EC-Ev  al  input : 
(factorial 5) 
； ； ； EC-Ev  a  I  value: 
120 

Exercise  5.49: 明示的 制御 評価 機の REPL を 用いる 代わ リ と して、 

read- compile- execute- print  loop  ^夹ィ 了す る レン ムヌ マン ノ^ 設計 
せよ。 言い換えれば、 この マシン は 式 を 読み込み、 それ を コンパ 
ィル し、 その 結果の コード を アセンブルして 実行し、 その 結果 を 
表示す る ループ を 実行す る。 これ は 私達の シミュレート された 構 
成 内で 簡単に 実行で きる。 なぜなら、 手続 compile と assemble を 
"レジスタ マ シ ンの 命令" と して 呼ぶ こと を 手配で きる から だ。 

Exercise  5.50: コ ン パイ ラ を 用いて Section  4.1 の メタ 循環 評価 機 を 

コ ン パイルし、 レジスタ マシン シミュレータ と 用いて この プロ グラ 
ムを 実行せ よ。 （一度に 複数の 定義 を コンパイル する ために、 begin 
の 中に 定義 を 詰める ことができる）。 結果と しての ィ ンタ プリ タの 
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実行 は 複数 レベルの 逐次 翻訳の ため、 とても 遅い。 しかし、 実行の 
詳細 全て を 理解す る こ と は 教育的な 課題で あ る 。 

Exercise  5.51: C 言語 （または あなたが 選んだ 何ら かの 他の 低レべ 

ルな 言語） による Scheme の 基本的な 実装 を、 Section  5.4 の 明示的 
制御 評価 機 を C 言語に 翻訳す る ことで 開発せ よ。 この コード を 実 
行す るた めに は、 適切 な メモリ 割当 ルー チンと 他の 実行時 サ ポー 
トも 提供す る 必要が ある。 

Exercise  5.52:  Exercise  5.51 に対する 好 対照と して、 コ ン パイ ラ を 

変更して Scheme の 手続 を C 言語の 命令 列へ とコ ン パイルす るよ 
うにせ よ。 Section  4.1 の メタ 循環 評価 機 を コンパイルして C 言語 
で 書かれた Scheme インタプリタ を 生成せ よ 。 
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ミ ュ一 テ一 タ， 265 

メタ 循環， 387 
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レキシ カル ァ ドレッシング， 405 

副作用 バグ， 245 

レキシ カルス コープ， 30 

半 加算器， 290 

レジスタ， 527 

半 区間 手法， 69 

レジスタ テーブル， 554 

占領， 28 

レジスタ マシン， 527 

厳密， 426 

レ プル， 8 

参照 透明， 244 

ローカル 状態 変数， 230 

反復 プロセス， 34 

反復 改善 法， 80 

一変 数 多項式， 214 

可変長， 169 

万能 機械， 410 

合成， 79 

上位互換性の ある 拡張， 435 

名前 呼 出， 428 

不動 点, 71 

命令， 527,  531 

不変量， 46 

命令 トレー サ， 571 

不定 元， 214 

命令 列， 614 

両頭 キュー， 282 

命令 型 プログラミング， 246 

並行， 316 

命令 実行 手続， 554 

予定表， 297 

命令 数 カウンタ， 571 

事例 分析， 17 

命令文， 615 

付加 的， 85, 179, 189 

回路， 290 

代入 演算子， 230 

固定長， 169 

位置， 573 

圧縮， 581 

体系的 探索， 442 

型の 階層， 208 

依存 型 バック トラック， 443 

型 フィールド， 575 

型 付き ポインタ， 574 

値， 8 

型 推論， 376 

停止 性 問題， 413 

堅牢， 148 

先入れ 先 出し， 276 

増加の オーダー， 42 

先端， 276 

変数， 8 

全 加算器， 292 

変数の 値， 249 

共有， 271 

外部 環境， 248 

再帰， 9 

大域 的， 31 

再帰 方程式， 2 

失敗 継続， 455 

再帰 理論， 411 

実数， 5 

再帰 的， 26 

実行 手続， 420 

出力 プロンプト， 408 

密， 219 

分数 関数， 223 

導出 原理， 469 

分離 符号， 170 

局所 展開， 31 

列， 62, 103 

希望的観測， 87 

列 ァクセ ラレータ， 358 

幅， 98 

制御 構造， 495 

平均 減衰， 72 

制約 ネッ 卜 ワーク， 304 

年代順 バック トラック， 443 

前置 表記法， 6 

式， 5 
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引数， 6 

深い 束縛， 405 

引用， 149 

深さ 優先 探索， 443 

強制， 205,  211, 427 

演算 プロセス， 1 

必要 時 呼 出， 428 

演算子， 6 

慣習 的ィ ン ターフェ イス， 85, 118 

特殊 形式， 11 

成功 継続， 455 

状態 変数， 34,  229 

手続， 4,  35 

獲得, 331 

手続の 定義， 12 

現在 時刻， 300 

手続の 抽象化， 27 

環境， 9,  248 

キ fe 的 認識 園, xxii 

環境 モデル， 229 

抑留， 576 

疎， 219 

抽象 モデル， 94 

相互 排除， 331 

抽象化 バリ 7,  84,  91 

真理 維持， 443 

抽象 構文， 389 

確率 的 アル ゴリ ズム， 54 

接頭 符号， 170 

積分 器， 366 

接頭辞， 170 

空き リスト， 577 

擬似 クオート， 617 

空 リスト， 105 

擬似 乱数， 237 

第一 級， 78 

擬 剰余， 225 

箱と 点 表記法， 101 

擬 除算， 225 

級数の 和， 59 

整数， 5 

終端， 276 

整数 化 因数， 225 

組み合わせ， 6 

文法， 449 

結果 式， 18 

明示的 制御 評価 機， 587 

継続 手続， 455 

時間， 315 

総称 命令， 85 

時間の 瞬間， 316 

線形 反復 プロセス， 34 

木 再帰， 37 

置換, 15 

末尾 再帰， 598 

置換 モデル， 15 

束縛， 28,  248 

束縛され ない， 249 

肯定 式， 495 

束縛 変数， 28 

自動 記憶 域 割当， 573 

桁 上げ 伝播 加算器， 295 

自由， 28 

構文， 388 

表 形式 化， 41, 288 

構文 糖， 11 

補間， 80 

構文 解析， 448 

複合 データ ォブ ジヱク ト， 83 

機械語， 609 

複合 手続， 12 

正規 順序， 425 

解放， 331 

正規 順序 評価， 16 

計算 不可能， 413 

正規 順 評価， 386 

計算 可能性， 411 

法 n に関して 合同， 52 

記号 表現， 85 

派生 式， 398 

評価， 5 
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評価 機， 384 

論理 プロ グラ ミ ング， 386 

論理和， 290 

論理的 推理， 482 

論理 積， 290 

赤黒 不, 165 

転送先， 582 

述語， 17 

逆 変換器， 290 

連分数， 73 

連続 RLC 回路， 374 

遅延 オブジェ ク ト， 341 

遅延 引数， 372 

遅延 評価， 229,  338,  425 

適用 順序， 425 

適用 順序 評価， 16 

閉包 性， 101 


関数 型 プログラミング， 241 

関数 型 プロ グラ ミ ング 言語， 381 

関数 箱， 290 

階層， 101 

階層 化 設計， 147 

隠蔽す る, 249 

隠蔽 原則， 233 

集積 木， 10 

集積 機， 120 

非 厳密， 426 

非 決定 性 演算， 438 

非 決定 性 選択 点， 442 

非 決定的， 321 

非 決定的 演算， 386 

頭 出し リ スト， 282 

高 階 手続， 58 
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奥 付 


表紙 は 1588 年、 AgostinoRamelli の ブック ホイールの メカニズムです。 こ 
れは 初期の ハイ パー テキスト ナ ピゲ ーシ ヨン 支援と 見る こと がで き るので はな 
いでしょう 力、。 こ の 版画の ィ メージ は New  Gottland. の J.  E.  Johnson に よ リ 
提供され ています。 

タイプ フエ イス は 本文 は Linux  Libertine で、 見出し は Linux  Biolinum で 
す。 両方と も Philipp  H.  Poll の 手に よります。 タイプライター フェイス は Raph 
Levien による Inconsolata であり、 Dimosthenis  Kaponis と Takashi  Tanigawa 
に よ リ 補完 された Inconsolata  LGC の 形式で 利用 しています。 
( 日 本 語 版で は 漢字 に IPA フォント を 使用 させて 頂いて ます。 ） 
グラ フィック デザィ ンと タイ ボグラ フィは Andres  Raba に よ リ 行われ ま し 
た。 Texinfo の ソース は Perl スクリプト により LaTeX に 変換され、 XeLaTeX 
により pdf に コンパイルされ ています。 図 は Inkscape を 用いて 描かれました。 
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